Dateienlesen und schreiben mit readln und writeln

[F.W.]

Hallöchen wiedermal!

Ich möchte mithilfe von Readln(F: TextFile, S: String) (der so) und so weiter eine Datei bearbeiten.

Einige Werte wurden vorher aus der Datei gelesen, dabei handelt es sich jeweils um komplette Zeilen, alle, die mit "bind" anfangen.
Jetzt wurden diese Werte bearbeitet und sollen wieder in die Datei, die alten bind-Zeilen aber weg!

Ich hab's so probiert:

Delphi-Quellcode:

var
 F: Textfile;
 I: Integer;
 S: String;
begin
   try
 AssignFile(F, FN.Text);
 Reset(F);
 While Eof(F) = False do begin
     Read(F, S);
     if Pos('bind', S) = 1 then // hier wird geprüft, ob die Zeile eine "bind"-Zeile ist
        Writeln; // wenn ja, dann soll diese Zeile gelöscht werden, ich weiß aber nicht wie man das macht
 end;
 for I := 0 to Liste.Items.Count-1 do // am Zeilenende werden die veränderten Werte wieder angefügt
     Writeln(F, 'bind "'+Liste.Items[I].Caption+'" "'+Liste.Items[I].SubItems[0]+'"');

   finally
 CloseFile(F);
   end;
end;

Wie heißt der Befehl zum Zeile Löschen oder wie könnte ich es anders lösen?

[Luckie]

Denk mal andersrum. Les alle Zeilen und schreib alle, Zeilen außer die die du nicht willst.

[yankee]

Delphi-Quellcode:

var F,G:textfile;
    s:string;
assignFile(F,'Dat1.txt');
reset(F);

assignFile(G,'Dat2.txt');
rewtite(G);

while not eof(F) do
begin
    readln(F,s);
    if Pos(bind,S) <> 1 then writeln(G,S);
end;

Ungetestet, probier'S mal.

[F.W.]

Die Datei muss den gleichen Namen behalten.

Ich könnte erstmal auch nur die Zeilen überschreiben, da nur selten etwas dazukommen wird, und dadurch nichts anderes wichtiges überschrieben wird. Aber wie überschreibe ich die Zeile? Ich muss ja auch erstmal testen, ob "bind" in ihr vorkommt.

Delphi-Quellcode:

 Read(F, S);
 if Teste(S) then Writeln(F, SNeu);

???

[Luckie]

Lad das Ding doch in eine Stringliste, wenn es nicht unbedingt mit readln und writeln sein muss.

[F.W.]

Nagut, dann mach ich's halt so, ich wollt's halt mal anders probieren.