Не читается 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.
|