Re: как вывести информацию из текстового файла на экран порциями
var
res : resource;
byte : integer;
line : string;
index : integer;
begin
res := openResource('/data.txt');
if (resourceAvailable(res)) then
begin
byte := readByte(res);
line := readLine(res);
closeResource(res);
end;
showForm;
index := formAddString('Byte is: ' + chr(byte));
index := formAddString('Line is: ' + line);
delay(1000);
end.
этот код не пашет выводит byte is: [] line is:
|