Jak wyświedlić trzecią linje z pliku bez pierwzej i ostatnej ?
0
0
var
Plik: TextFile;
i: Integer;
Linia: string;
begin
AssignFile(Plik, NazwaPliku);
Reset(Plik);
for i := 1 to 3 - 1 do //trzeba odjąć linię 0
ReadLn(Plik);
ReadLn(Plik, Linia);
CloseFile(Plik);
end;
0
tenx że zam na to nie wpadłem ;-)