Einzelnen Beitrag anzeigen

Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#9

Re: Satz aus .txt file löschen

  Alt 25. Jun 2006, 11:49
Ich würde da ja auf keinen Fall über ein Memo gehen. Zumal die doch unter .NET auch keine LoadFromFile-Methoden mehr haben...
Mal so schnell zusammengebastelt:
Delphi-Quellcode:
procedure deleteLine(path, line : String);
var
  reader : StreamReader;
  writer : StreamWriter;
  s, tmp : String;
begin
  reader := StreamReader.Create(path, Encoding.Default);
  s := reader.ReadLine;
  while (s <> nil) do
  begin
    if not s.equals(line) then
      tmp := tmp + s + #13#10;
    s := reader.ReadLine;
  end;
  reader.close;
  writer := StreamWriter.Create(path, false, Encoding.Default);
  tmp := tmp.Substring(0,tmp.Length-2);
  writer.Write(tmp);
  writer.Close;
end;
Sicher nicht optimal, aber dafür 2 Minuten . Z.B. könnte man noch den Stringbuilder (?) einbauen, um die Stringaddition noch zu verbessern:
tmp := tmp + s + #13#10;
Alexander
  Mit Zitat antworten Zitat