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;
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 ?
BobMarley (me) ...the legend