Auslesen aus Dateien

[Diego_S]

hi community

ich hab ne dringendende frage, die da lautet: Wie kriege ich sachen aus datein zeilenweise ausgelesen
(dateityp text)
Wäre echt dankbar für hilfe

bis dann

Diego_S

[Diogenes]

...

var
Datei: Text;
Zeile: string; {Für laaange Zeilen: array[ 0 .. irgend] of Char - NullTerminierte Strings!}
...

begin
...
Assign( Datei, ´C:\DER\PFAD\DES\MANITU.TXT´); {Verbindung machen von physikal. Datei zur Pascal-Text-Variable.}
Reset( Datei); {Zum Lesen öffnen}
while not EoF( Date) do {Mach solange du nicht am Ende bist.}
begin
ReadLn( Datei, Zeile); {Eine Zeile lesen} 8)
Process( Zeile) {verarbeiten}
end;
Close( Datei); {Datei zu - Verbindung trennen.}


That´s it!

[Diego_S]

@ diogenes

vielen dank für diesen sehr gut kommenteierten quelltext *g*
wird mir sicher helfen

also danke :]

[Diogenes]

Bitte. ist mein Job hier on Board.