Показать сообщение отдельно
Старый 23.09.2007, 12:55   #1
mobilla
AnyKey`щик
 
Регистрация: 15.09.2007
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Не читается 3я строчка

Помогите новичку… Вообщем не читается третья строчка, а просто светится белый экран…
Где я мог допустить ошибку?

program Resource;

var data : resource;//наш ресурс
str, str2, str3 : string;
index : integer;

begin
data := OpenResource('/data.txt');//открытие ресурса

if (resourceAvailable(data)) then //проверка

begin

str := ReadLine(data);//читаем строку
str2:= ReadLine(data);
str3:= ReadLine(data);

CloseResource(data);//закрываем ресурс
end;

ShowForm; //создаём форму...
index := FormAddString('Text_1 :' + str);//выводим инфу из ресурса
index := FormAddString('Text_2 :' + str2);
index := FormAddString('Text_3 :' + str3);
Delay(10000);//задержка
end.
(Offline)
 
Ответить с цитированием