Сравнение текстовых файлов

[demon-sheff]

Доброе время суток! Пишу обновление для своей программы через ФТП. Так вот проблемма заключается в следующем: не знаю как сравнить данные в 2 текстовых полях version и ver.
так выглядит

procedure TForm1.SpeedButton3Click(Sender: TObject);
Var
    version,ver:WideString;
    ms:TMemoryStream;
    zap:byte;
begin
      IdFTP1.Host:='10.10.100.200'; // ftp адрес сервера
      IdFTP1.Port:=21;
     IdFTP1.Username:='admin'; //логин
      IdFTP1.Password:='admin';    //Пароль
      IdFTP1.Passive:=true;
     if IdFTP1.Connected then
IdFTP1.Disconnect
else
try
      IdFTP1.Connect;
      except
      on E:Exception do
      ShowMessage('Ошибка подключения: '+E.Message);
      end;
      if IdFTP1.Connected then
       try
     IdFTP1.ChangeDir('/');// Установить папку на сервере
    IdFTP1.Get('Soft/update/version.ini','C:/Soft/log/version.ini',true);//Файл Откуда-Куда
     IdFTP1.Get('Soft/update/Install.exe','C:/Soft/log/Install.exe',true);//Файл Откуда-Куда
     Memo2.Lines.LoadFromFile('C:/Soft/log/version.ini');
      version:=Memo2.Text;
      ver:= Memo3.Text;
    except
    on E:Exception do
      if version=ver then
      begin
        Application.MessageBox('Вы используете последнюю версию программы!','Внимание',MB_OK);
      end
      else
      begin
      zap:=WinExec('C:/Soft/log/Install.exe',SW_Restore);
         end;
end;
      ms.Free; IdFTP1.Disconnect;
    end;

[Человек_Борща]

Через CompareStr - самое простое.
Более сложным и правильным будет сравнение версий

[demon-sheff]

А не можете более подробно написать, я только учусь

procedure TForm1.SpeedButton3Click(Sender: TObject);
Var
    version,ver:WideString;
    ms:TMemoryStream;
    zap:byte;
     i:integer;
begin
      IdFTP1.Host:='10.10.100.200'; // ftp адрес сервера
      IdFTP1.Port:=21;
     IdFTP1.Username:='admin'; //логин
      IdFTP1.Password:='admin';    //Пароль
      IdFTP1.Passive:=true;
     if IdFTP1.Connected then
IdFTP1.Disconnect
else
try
      IdFTP1.Connect;
      except
      on E:Exception do
      ShowMessage('Ошибка подключения: '+E.Message);
      end;
      if IdFTP1.Connected then
       try
     IdFTP1.ChangeDir('/');// Установить папку на сервере
    IdFTP1.Get('Soft/update/version.ini','C:/Soft/log/version.ini',true);//Файл Откуда-Куда
     IdFTP1.Get('Soft/update/Install.exe','C:/Soft/log/Install.exe',true);//Файл Откуда-Куда
     Memo2.Lines.LoadFromFile('C:/Soft/log/version.ini');
      version:=Memo2.Text;
      ver:= Memo3.Text;
     i:=CompareStr(version,ver);
    except
    on E:Exception do
      if i<>0 then
      begin
        Application.MessageBox('Необходимо обновить программу!','Внимание',MB_OK);
      end
      else
      begin
      zap:=WinExec('C:/Soft/log/Install.exe',SW_Restore);
         end;
end;
      ms.Free; IdFTP1.Disconnect;
    end;

Так? Только вот не работает...

[demon-sheff]

Все тему можно закрывать. Разобрался. Спасибо!