[delphi] koniec pliku txt

0

Wiem że to banał ale w faq tego nie ma :-( a nie wiem jak to zrobić [???] .
W pascalu to jest takie cos

var
plik:text;
assign (plik,'C:\plik.txt');
while not eof plik do jakieś instrukcje end;

A delphi nie rozumie co to znaczy eof. To jakiej instrukcji trzeba użyć żeby wykryć koniec pliku?

0

Wiem że to banał ale w faq tego nie ma :-( a nie wiem jak to zrobić [???] .
W pascalu to jest takie cos

var
plik:text;
assign (plik,'C:\plik.txt');
while not eof plik do jakieś instrukcje end;

A delphi nie rozumie co to znaczy eof. To jakiej instrukcji trzeba użyć żeby wykryć koniec pliku?

plik : TextFile;
AssignFile (plik,'C:\plik.txt');
While Not Eof(plik) do jakieś instrukcje end;
0

Ale żeś mu młody wytłumaczył :)

var
t: TextFile;
s:string;

begin
AssignFile(t, 'c:/plik.txt');
Reset(t);
while not EOF(t) do readln(t,s);
end;

While not EOF(t), czyli odczytuj plik, aż następi jego koniec, End Of File. To zwykły warunek, sprawdza czy następuje koniec pliku. W powyższym przykładzie do zmiennej s jest zapisywana ostatnia linia w pliku.

Zamiast EOF(t) można zastosować EOLN(t), czyli End Of LiNe (to samo, tylko że koniec linii).

0

I oczywiście na końcu

CloseFile(plik); :-)

0

Dzięki wam ludzie. Już po przeczytaniu posta młodego wiedziałem o co chodzi. Zamiast EOF plik trzeba było dać EOF (plik). Ale zapomiałem odpisać że problem jest juz rozwiązany.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0