Textfile nach und nach auslesen?

Borg-Cube · Beiträge: 38 Delphi 2009

Hallo

Ich habe hier ein Textfile und möchte gerne eine zeile nach der anderen Auslesen. Mit folgendem Code kann ich nur die erste Zeile auslesen. Wo und wie muss ich da eine schleife einbauen um jede Zeile zu erhalten?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var tf:TextFile;
     user,pfad:string;
begin
   pfad:='c:\Datei.txt';

   AssignFile(tf, pfad);
   Reset(tf);
   Readln(tf, user);
   main.status.Lines.Add(user);

   CloseFile(tf);

delphist · Beiträge: 64 WIN XP, 98, 95; SUSE LINUX 8.1, 6.1, 6.0

Lese es als TStringList!
Dan kannst du drauf zu kommen mit .Item[0] etc.

_________________
3w + freehostlist + de
3w + bild-stoerung + de

toms · Beiträge: 1099 Erhaltene Danke: 2

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  tf: TextFile;
  user, pfad: string;
begin
  pfad := 'c:\Datei.txt';
  AssignFile(tf, pfad);
  Reset(tf);
  repeat
    Readln(tf, user);
    main.status.Lines.Add(user);
  until EOF(tf);
  CloseFile(tf);
end;

BungeeBug · Beiträge: 901

Hi,

die Möglichkeit geht ist aber schlecht wenn die Textdatei leer ist

markieren

Delphi-Quelltext

1:
2:
3:
4:

WHILE not EOF(<file>) DO
 BEGIN
  readln(<file>,<variable>);
 END;

Kommt besser

Borg-Cube · Beiträge: 38 Delphi 2009

Danke.

Habs hingekriegt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme