218,118-218,118-218,118-218,118-218,117-218,117
my code:
Code: Select all
Program TreeAnalyzer;
Var
tiles : string;
procedure GetTiles;
var
List : TStringList;
i : integer;
begin
List := TStringList.Create;
List.LoadFromFile('D:\tiles.txt');
for i := 0 to List.Count-1 do begin
tiles := tiles + List.strings[i];
end;
end;
Begin
tiles := '';
GetTiles;
Addtosystemjournal(tiles);
End.
2
i need that script return all line in tile.txt. Where is error in code?
tnks =]