Hallo
so mach ich das nun aber es sind immer noch doppelte Einträge vorhanden.
Also dachte ich mir lass ich das ganze nocheinmal mit der neuen Datei durchlaufen, klappt aber dennoch nicht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fd1,fd2 : Textfile;
S,Last : string;
begin
assignfile(fd1,'C:\logfile.txt');
assignfile(fd2,'C:\logfile.neu');
reset(fd1);
rewrite(fd2);
Last := '';
while not(eof(fd1)) do
begin
readln(fd1,S);
if (trim(S)<>'') and (S <> LAST) then
writeln(fd2,S);
Last := S;
end;
Closefile(fd2);
Closefile(fd1);
deletefile('logfile.txt');
rename(fd1,'C:\logfile.txt');
end;
gruss capo