13.12.2009, 14:27
|
|
Участник форума
Регистрация: 23.10.2009
Сообщений: 103
С нами:
8710432
Репутация:
7
|
|
Код:
begin
AssignFile(Text, 'data/text1.txt');
Reset(Text);
while not Eof(Text) do
begin
ReadLn(Text, Data);
Edit1.Text := Data;
end;
CloseFile(Text);
end.
Ошибка в такой легкой задачи... все компилиться, но текст из фпйла не выводит в эдит, хотя текст в файле есть. Что делать? |
|
|