Thema
:
Delphi
Wie kann ich eine TextDatei zum Lesen Öffnen?
Einzelnen Beitrag anzeigen
Daniel B
(Gast)
n/a Beiträge
#
1
Wie kann ich eine TextDatei zum Lesen Öffnen?
7. Jun 2002, 18:16
Den OpenDialog-Teil evtl. entfernen.
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Button1Click(Sender: TObject);
var
tf: TextFile;
begin
if
OpenDialog1.Execute
then
begin
AssignFile(tf, OpenDialog1.FileName);
Reset(tf);
ReadLn(tf);
CloseFile(tf);
end
;
end
;
Zitat