Hallo
danke für eure Antworten.
Die zeilen können auch 2 - x mal vorkommen, habe meine Frage falsch formulieren.
Das hier scheint dann dafür nicht das richtige zu sein, oder.
Delphi-Quellcode:
var
fd1,fd2 : Textfile;
S,Last : string;
begin
assignfile(fd1,'logfile.txt');
assignfile(fd2,'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(fd1);
rename(fd2,'logfile.txt');
end;
hier habe ich dann auch noch einen fehler:
Zitat:
[Fehler] Unit1.pas(47): Inkompatible Typen: 'String' und 'Text'
deletefile(fd1);