lib_resloader помогите
Решил перейти на эту либу пишу вот так
uses resloader;
var
res,line: string;//
map: array [0..10, 0..10] of integer;
x,y:integer;
procedure LoadMap;
begin
res :=LoadText('map/map.txt');
for y := 0 to 10 do
begin
line := ReadLine(res);//сдесь жалуется ошибка в параменте 1
for x := 0 to 10 do
map[x,y] := StringToInteger(GetChar(line,x));
end;
end;
|