Beste Weg zum Lesen und schreiben einer Textdatei

5000 Linien ist nicht viel, es sei denn, die Saiten sind sehr lang.

Der einfachste Weg ist die Verwendung eines TStringList. Es gibt keine Notwendigkeit zur Verwendung eines GUI-Steuerelement, es sei denn, der Benutzer braucht, um zu sehen oder Bearbeiten Sie den Inhalt.

var
  SL: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(YourFileNameHere);
    for i := 0 to SL.Count - 1 do
    begin
      SL[i] := IntToStr(i) + ' ' + SL[i];
      // Do any other processing
    end;

    SL.SaveToFile(YourFileNameHere);
  finally
    SL.Free;
  end;
end;

Wenn (wie du sagst in einem Kommentar oben), müssen Sie dies tun, in einem TMemo für Testzwecke können Sie auf dieselbe Art und Weise:

Memo1.Lines.LoadFromFile(YourFileNameHere);
for i := 0 to Memo1.Lines.Count - 1 do
  Memo1.Lines[i] := IntToStr(i) + ' ' + Memo1.Lines[i];
Memo1.Lines.SaveToFile(YourFileNameHere);

Natürlich, der einfachste Weg, dies zu tun wäre zu schreiben Sie eine Prozedur akzeptiert einen einfachen TStrings Nachkomme jeglicher Art:

procedure AppendValueToStrings(const SL: TStrings; 
  StartingValue: Integer);
var
  i: Integer;
begin
  Assert(Assigned(SL));  // Make sure a valid TStrings has been passed in
  for i := 0 to SL.Count - 1 do
  begin
    SL[i] := IntToStr(StartingValue) + ' ' + SL[i];
    Inc(StartingValue);
  end;
end; 

Dann rufen Sie es entweder mit einem:

SL := TStringList.Create;
try
  SL.LoadFromFile(YourFileNameHere);
  AppendValueToStrings(SL, 10);
  SL.SaveToFile(YourFileNameHere);
finally
  SL.Free;
end;

Memo1.Lines.LoadFromFile(YourFileNameHere);
AppendValueToStrings(Memo1.Lines, 10);
Memo1.Lines.SaveToFile(YourFileNameHere);