eine erklärung bitte

[MaBuSE]

Zitat von adi_svadi:

kann mir mal einer ganz kurz diese unit erklären (so im groben).

Meine Antwort ist als Kommentar im Quellcode

Delphi-Quellcode:

...
procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;                      // Variable für Textdatei
    i:Integer;                       // Schleifenvariable
begin
  AssignFile(f,'c:\test.txt');       // weist der Variablen einen Textdatei c:\test.txt zu
  ReWrite(f);                        // Textdatei wird geleert (gelöscht) und zum Schreiben geöffnet
  for i:=0 to Memo1.Lines.Count-1 do // für jede Zeile im Memo tue
    WriteLn(f,Memo1.Lines[i]);       // diese Zeile in Datei schreiben
  closeFile(f);                      // Datei schliessen, und damit Speichern beenden
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile;                // Variable für Textdatei
    s:string;                  // Variable für gelesene Textzeile
begin
  Memo1.Clear;                 // Memo leeren (Inhalt löschen)
  AssignFile(f,'c:\test.txt'); // weist der Variablen einen Textdatei c:\test.txt zu
  Reset(f);                    // Textdatei wird zum Lesen geöffnet
  while not eof(f) do          // solange das Dateiende noch nicht erreicht wurde, tue
  begin
    ReadLn(f,s);               // Eine Zeile aus Textdatei in Variable s lesen (laden)
    Memo1.Lines.Add(s);        // Diese Zeile (variable s) am Ende des Textes im Memo anfügen
  end;
  closeFile(f);                // Datei schliessen, und damit Laden beenden
end;
...

Ach ja: Herzlich willommen in der DP