Odczyt lini

0

Jak odczytan np. 5 linie z pliku txt ???

0

Z tego co się orientuję nie ma jakiegos konkretnego polecenia, więc będziesz musiał użyc pętli.

0


var
s:string;
t:textfile;

begin
AssignFile(t,'plik.txt');
Reset(t);
Readln(t,s);
Readln(t,s);
Readln(t,s);
Readln(t,s);
Readln(t,s);
CloseFile(t);

end;

Oczywiście można to zrobić pętelką, ale chciałem pokazać, żeby było wiadomo o co chodzi.

0

Men...
.:DETOX:. - czy takie pytanie przypadkiem nie padło niedawno???
Dokładnie takie same pytanie zadał ktoś, w celu napisania jakiegoś Quizu...

A odpowiedź padła:

var
Plik: TextFile;
S: String;
I: Integer;

begin
...
AssignFile(Plik, {jakiś plik});
Reset(Plik);
for I := 1 to 5 do
begin
ReadLn(Plik, S);
{jakaś operacja na tym stringu}
end;
CloseFile(Plik);
...
end;

0

No i co z tego? - co to ja musze pamiętąc wszystkie posty...

0

To z tego, że użytkownicy zamiast najpierw sprawdzić, czy nie padło takie pytanie wcześniej (99% że padło), pytają od nowa.

0

Jak odczytan np. 5 linie z pliku txt ???

Również można tak bardziej lamersko...
Skorzystać z niewidocznego memo, lub po prostu TStringList.

I tam oczywiście:

lines.loadFromFile(plik);
lines.strings[4] :)

0

Nie - żadnych niewidocznych komponentów!!!!!!

0

Bez sensu! Nie lepiej mój sposób lub ten co napisał .:DETOX:. ? [???]
Dodatkowe komponenty zajmują trochę miejsca, ale to mała stawka.

0

po kiego dodatkowe komponenty? wystarczy TStringList.

poza tym studiując Funkcje Read i EOF mozna sie sporo dowiedzieć i nieźle nakombinować. polecam!

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