[rimm]

Как я понял, функция readLine считывает следующую строку из ресурса. Значит, если в ресурсе несколько строк то функция должна вызываться циклически (например, в цикле с предусловием resourceAvailable(res)=true). Только вот облом какой-то: ресурс не содержит кирилицы, написан в редакторе MP, в нем 3 строки:
some text for trying it to output
string2
string3
Но эмулятор (MidpX J2ME Emulators Package) ничего не показывает.
Считывание же 1-ой строки без цикла свой результат приносит.
В чем же дело???
program OpenTxtResourse;
var
s: array[1..10] of string;
m: array[1..10] of integer;
res : resource;
line : string;
index : integer;
begin
res := OpenResource('/data1.txt');
while resourceAvailable(res) do
begin
s[2] := ReadLine(res);
line:=line+s[2];
end;
closeResource(res);
showForm;
index := formAddString('Byte is: ' + line);
delay(10000);
end.