Проблема Ошибка синтаксиса

[volente]

var
InstallLocation: String;

function GetInstallString(): String;
var
InstPath: String;
InstallString: String;
begin
InstPath := ExpandConstant('Software\MetaFans\World of Wonder');
InstallString := '';
if not RegQueryStringValue(HKLM, InstPath, 'InstallLocation', InstallString) then
RegQueryStringValue(HKCU, InstPath, 'InstallLocation', InstallString);
Result := InstallString;
InstallLocation := InstallString;
end;

function InitializeSetup: Boolean;
var
V: Integer;
sUnInstallString: String;
Version: String;
begin
    if RegValueExists(HKEY_LOCAL_MACHINE,'Software\MetaFans\World of Wonder', 'UninstallString') then begin
      RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\MetaFans\World of Wonder', 'DisplayVersion', Version);
      if Version =< ExpandConstant('{#Version}') then begin 
          Result := True;
          GetInstallString();
      end
      else begin
MsgBox(ExpandConstant('{cm:old}'+Version+'.'+#13#10#13#10+'{cm:required}'+'{cm:terminated}'), mbInformation, MB_OK);
         Result := False;
      end;
end
else begin
  MsgBox(ExpandConstant('{cm:required}'+'{cm:terminated}'), mbInformation, MB_OK);
  Result := False;
end;
end;

Подсвечивает строку if Version =< ExpandConstant('{#Version}') then begin.

Сообщите мне если нужен весь код.

 

[Krinkels]

Ну, для начала нужно попробовать вместо "=<" поставить "<="

 

[volente]

@Krinkels, действительно. Благодарю!

 

[Shegorat]

@volente, На самом деле так работать не будет, если версия имеет вид "1.2.3.4".
Для сравнения таких версий нужно использовать функции
StrToVersion, ComparePackedVersion

 

[volente]

@Shegorat, на этот случай у меня есть XDELTA Patch Maker.

 

[sergey3695]

@volente, вам про неправильное сравнение написали. для этого уже есть готовые функции в инно. их использование придаёт читабельность коду и избавляет от возможных ошибок, если входная строка не соответствует определенному виду. При чем тут патчер - не понятно.

 

[volente]

@sergey3695, при том, что я делаю установщик обновления.