begin
// Загружаем строки:
showcanvas;
res := openResource('/data.txt');
if resourceAvailable(res) then
begin
Texts := readLine(res);
closeResource(res);
end;
res8.load('/data.txt'); // файл с текстом
// Выводим все на экран:
setColor(255, 255, 255);
fillRect(0, 0, getWidth, getHeight);
setColor(40, 40, 40);
h := getStringHeight('');
for i := 1 to res8.length do
drawText(res8.line(i), 4, 4 + (i - 1) * h);
drawText(Texts + ' ' + res8.loaded + ' ' + res8.length, 0, 0);
rePaint;
// Выгружаем строки (если они больше не нужны):
res8.unload;
// Ждем.
repeat delay(1000); forever;
end.
data.txt:
First
Second
...
На дисплей: First 0 0
Что то не получается - просто модифицировал пример из Lib_res8_ru.txt.
Помогите, pls