Textdateien in Delphi

[Marco E.]

Hallo!

ich möchte ein Programm Schreiben, daß mir eine Textdatei öffnet und die enthaltenen Strings ausließt, um sie dann in eine Tabelle zu speichern.
Ich bräuchte schnelle Hilfe.
Vielen dank jetzt schon mal.

Gruß,
Marco

[Andreas Kosch]

Hallo,

das folgende Beispiel ist in der Delphi-Hilfe zum Stichwort <b>ReadLn</b> zu finden:
<pre>
var

F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
begin
AssignFile(F, OpenDialog1.FileName); { Datei ausgewählt }
Reset(F);
Readln(F, S); { Erste Zeile der Datei lesen }
Edit1.Text := S; { String in ein TEdit schreiben }
CloseFile(F);
end;
end;
</pre&gt