so in etwa?
ich mein sieht grauslich aus aber wäre das prinzip richtig?
Delphi-Quellcode:
i := 0;
i2 := 0;
countsum := getlinecount('C:\myfile.txt');
sl := TStringlist.Create;
sl2 := TStringlist.Create;
sl.loadfromfile('C:\myfile.txt');
sl2.loadfromfile('C:\my2ndFile.txt');
while i < countsum do begin
i := i + 1;
i2 := i2 + 1;
if sl[i] = sl[i2] then writeln('Kein Unterschied');
end;
...