forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Библиотеки (http://forum.boolean.name/forumdisplay.php?f=124)
-   -   lib_resloader помогите (http://forum.boolean.name/showthread.php?t=11978)

im_zorg 21.02.2010 13:33

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;

odd 21.02.2010 16:01

Ответ: lib_resloader помогите
 
Смотри:
1) Команда LoadText считывает файл полностью, так что в res уже считывается весь файл целиком, считывать дальше построчно нет смысла.
2) Если хочешь читать построчно используй OpenRes/ReadLine (без параметров, они там не нужны) или ReadLinesBlock. Второе предпочтительнее, так как там происходит перекодировка русского текста в случае чего.
3) Если ты там считываешь какие-то числа из файла и записываешь их в массив, то числа удобно записать через запятую и парсить их с помощью библиотеки Lib_parse

im_zorg 21.02.2010 16:49

Ответ: lib_resloader помогите
 
короче вырубил либу убрал нах**

odd 21.02.2010 21:19

Ответ: lib_resloader помогите
 
Цитата:

Сообщение от im_zorg (Сообщение 138541)
короче вырубил либу убрал нах**

Тоже вариант.


Часовой пояс GMT +4, время: 16:20.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot