[Delphi] Textdatei

Fanatic · 27. Juni 2008

Textdatei

Tach.

Wie kann ich eine Textdatei so auslesen, dass immer die eine Zeile nach der anderen in eine Listbox eingefügt wird.

Sollte alles automatisch ablaufen ohne Zwischenschritt.

Hab folgendes gefunden:

Code:

procedure lese (dateiname:name; 
var feld:wortfeld; 
var anzahl:integer);
var i:integer;
datei:textfile;
begin
assignFile(datei,dateiname);
reset(datei);
i:=1;
while not eof(datei) do begin
readln(datei,feld[i]);
inc(i);
end;
anzahl:=i-1;
closeFile(datei);
[B]end[/B];

Nur wie kann ich den Inhalt der jeweiligen Zeile so zwischenspeichern, dass ich anschließend wieder auf diesen zugreifen kann, um ihn in die Listbox per Additems anzufügen?

Wortfeld in Var kennt mein Delphi nicht?!

Anzeige

asdrexit · 27. Juni 2008

AW: Textdatei

Wenn du die VCL-lib von Borland verwenden willst gehts recht einfach mit der TStringlist klasse:

Code:

var
 l: TStringlist;
begin
 l := TStringlist.Create;
 l.loadfromfile('./test.txt');

 listbox.addstrings(l);
 //oder
 listbox.lines = l; 

 l.free;
end;

Das hängt den Inhalt der Datei Test.txt an die listbox dran bzw ersetzt den Inhalt der listbox.
Auf die einzelnen Zeilen kannst du dann mit l[x] bzw listbox.items[x] zugreifen (x für die zeile)

Rushh0ur · 27. Juni 2008

AW: Textdatei

Code:

var hFile : TextFile;
 S : String;

[...]

 AssignFile(hFile, '...');
 Reset(hFile);

 while not EOF(hFile) do
 begin
 Readln(hFile,S);
 // Mache etwas mit der eingelesenen Zeile die in S gespeichert ist
 end;
 CloseFile(hFile);

So kannste du alle Zeilen aus eine Datei auslessen und bearbeiten.

Bei dem Object TListBox kannst du außerdem mit "ObjectName.Items.LoadFromFile('Dateiname');" direkt eine Textdatei laden.

Mfg Rushh0ur

Fanatic · 28. Juni 2008

AW: Textdatei

Danke. Geht : )

Nützliche Suchen

[Delphi] Textdatei

Videos zum Themenbereich