Entwickler-Ecke

Dateizugriff - Textfile nach und nach auslesen?


Borg-Cube - Sa 31.01.04 20:21
Titel: Textfile nach und nach auslesen?
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?


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 - Sa 31.01.04 20:34
Lese es als TStringList!
Dan kannst du drauf zu kommen mit .Item[0] etc.


toms - Sa 31.01.04 20:37

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 - Sa 31.01.04 21:36
Hi,

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


Delphi-Quelltext 
1:
2:
3:
4:
 
WHILE not EOF(<file>) DO
 BEGIN
  readln(<file>,<variable>);
 END;


Kommt besser :)


Borg-Cube - So 01.02.04 00:56
Danke.

Habs hingekriegt.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!