[Anfänger] Problem beim Einlesen und Ausgabe von Text Datein

[Sir Rufo]

Das mit dem Memo ist schon mal ganz schlecht.

Ein TMemo ist ausschließlich für eine visuelle Darstellung/Erfassung gedacht und nicht für die Logik.

Wenn du den Dateinamen für die Ein und Ausgabedatei, sowie die Anzahl der Fässer hast dann am besten so

Delphi-Quellcode:

procedure VerladeFaesser( const VerladeDatei, ContainerDatei : TFileName; Anzahl : integer );
var
  VerladeListe, ContainerListe : TStrings;
begin
  ContainerListe := TStringList.Create;
  try
    VerladeListe := TStringList.Create;
    try

      VerladeListe.LoadFromFile( VerladeDatei );

      while ( ContainerListe.Count < Anzahl ) and ( VerladeListe.Count > 0 ) do
        begin
          ContainerListe.Add( VerladeListe[ 0 ] );
          VerladeListe.Delete( 0 );
        end;

      ContainerListe.SaveToFile( ContainerDatei );

    finally
      VerladeListe.Free;
    end;
  finally
    ContainerListe.Free;
  end;
end;