Сравнение 2 файлов

[ForzaJuve]

Здравствуйте.
Возникла проблема со сравнением 2 текстовых файлов. Суть проблемы - не могу разобраться с выводом "разницы" (отличий) в этих файлах, тоесть:
Имеется файл 1 с содержанием, к примеру : "яШяа JFIF"
и файл 2 : "яШяа JFIF XX "

Не могу разобраться как, посредством Делфи, мне создать 3 файл (или хотябы занести в Memo и тд.) их разницу, а точнее " XX " ??
Зарание спасибо...

P.S: файлы состоят из 1 строки...

[pomoshnic]

Прочитай два файла в две строчки а потом определи какая длиннее.
В цикле for i:=1 to min do проверяй два символа из строчек if s1[i]<>s2[i] then s3:=s3+s2[i];
А затем прибавь строке s3 все символы большей строки начиная с символа i+1

[ForzaJuve]

огромное спасибо

[ForzaJuve]

Не подскажите почему выбивает ошибку?

procedure TForm1.Timer1Timer(Sender: TObject);
var
   i : longint;
begin

s2:=s1;
s1:='';
if GetTextFromFile('c:\Documents and Settings\User\Рабочий стол\1.txt', s1) then
for i:=0 to 200 do
begin
 if s1[i]<>s2[i] then
 begin
 s3:=s3+s1[i];
 end;
 Memo1.Text:=s3;
end;
end;

[Пепел Феникса]

строки начинаются с 1

[ForzaJuve]

все равно ошибка

[Пепел Феникса]

GetTextFromFile, а что это?

я бы написал так:
на форме три мемо(1:текст который смотрим 2:с которым сравниваем 3:в нем смотрим разницу) и кнопка
на нажатие кнопки вешаем код:

var i:integer;
begin
 Memo3.Text:='';
 for i:=1 to length(Memo1.Text) do if Memo1.Text[i]<>Memo2.Text[i] then Memo3.Text:=Memo3.Text+Memo1.Text[i];
end;

надеюсь загрузить в мемо текст сами сможете(можно заменить мемо на простой string)

[ForzaJuve]

function GetTextFromFile(AFile: string; var Returnstring: string): Boolean;
 var
   FileStream: TFileStream;
 begin
   Result := False;
   if not FileExists(AFile) then Exit;
   FileStream := TFileStream.Create(AFile, fmOpenRead);
   try
     if FileStream.Size <> 0 then
     begin
       SetLength(Returnstring, FileStream.Size);
       FileStream.Read(Returnstring[1], FileStream.Size);
       Result := True;
     end;
   finally
     FileStream.Free;
   end;
 end;

Огромное спасибо, сейчас попробую...

[san72]

Надо считать оба файла определить какая строка будет больше как тут уже написали а чтобы вывести в memo или ещё куда можно использовать COPY и POS, скопировать из большей строки всё что после пробела - это и будут эти "XX"

[ForzaJuve]

всем спасибо - получилось