Показать сообщение отдельно
Старый 21.02.2010, 13:33   #1
im_zorg
Знающий
 
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений
(для 61 пользователей)
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;
(Offline)
 
Ответить с цитированием