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 