[ BobMarley @ 14.03.2004. 21:30 ] @
probao sam ovako Code: var fileData : TStringList; saveLine : String; lines, i : Integer; begin fileData := TStringList.Create; fileData.LoadFromFile('c:\blabla.txt'); lines := fileData.Count; for i := lines-1 downto (lines div 2) do begin saveLine := fileData[lines-i-1]; fileData[lines-i-1] := fileData[i]; fileData[i] := saveLine; end; for i := 0 to lines-1 do ShowMessage(fileData[i]); end; samo to mi preokrece cjeli fajl naopako pa tek onda pročita prvu liniju, što mi ne odgovara jer se u pitanju zna naći ogroman fajl pa mi je ovo trošenje vremena+resursa. Kako da otvoreni Text fajl seekam na zadnju liniju i pročitam ju ? |