Deutsches Lazarusforum

Herzlichen Dank, jetzt funktioniert wirklich alles
Lag wohl daran, dass ich vorwiegend bequemerweise nach Seiten auf Deutsch gesucht hab'.

Grüße,
ancistrus

So in etwa sah mein erster Versuch aus, erschien mir auch sinnvoller. Geht aber nicht. Access violation.

procedure TForm1.Button1Click(Sender: TObject);
Var datei: file of string;
pfad,puffer: string;
begin
pfad := Edit1.Text;
AssignFile(datei,pfad);
Reset(datei);
REPEAT
Read(datei,puffer ...

Danke, das funktioniert super!

Aber der andere Weg muss doch auch irgendwie funktionieren, man will ja mit einer Datei vll.
auch mal was anderes machen als nur in einer Listbox darzustellen...?
Interessieren würd' mich das schon.

Grüße,
ancistrus

Ist nicht installiert, scheint bei der 12.1. nicht standardmäßig dabei zu sein.

Hallo!

Ich hab' ein Problem. Ich wollte wie folgt auf eine Textdatei zugreifen:

procedure TForm1.Button1Click(Sender: TObject);
Var datei: file of char;
pfadstr: string;
pfad,puffer: char;
begin
pfadstr := Edit1.Text;
pfad := pfadstr[1];
AssignFile(datei,pfad);
Reset(datei);
REPEAT
Read(datei ...