Чтение файла

[[Smarik]]

Давно не работал с файлами, почему то не работает. В чем проблемка?

procedure TForm1.N4Click(Sender: TObject);
begin
assignfile(f,'top.txt');
reset(f);
read(f,top);
showmessage(IntToStr(top));
closefile(f);
end;

[alexBlack]

Что не работает ? Где описание переменных ?

[[Smarik]]

Переменные описаны как глобальные f как текстовый файл top как стринг. Вот ошибки
[Hint] Unit1.pas(53): Value assigned to 'ai' never used
[Error] Unit1.pas(103): Left side cannot be assigned to
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

[alexBlack]

Сообщение от [Smarik]

Переменные описаны как глобальные f как текстовый файл top как стринг.

Тогда это что ?
showmessage(IntToStr(top));

и вместо read - readln.

[[Smarik]]

я хочу вывести содержимое в диалоговое окно, впрочем даже в лейбл не выводится даже с readln

[alexBlack]

Сообщение от [Smarik]

я хочу вывести содержимое в диалоговое окно, впрочем даже в лейбл не выводится даже с readln

Да нет же. Вы меня не поняли. Дело в не в readln.
Если

var top:String;

то

ShowMessage(top);

[[Smarik]]

Стрелка показывает именно на readln и если не перевести из числа в строку, то там 4 ошибки, 1 о типах данных...

[alexBlack]

Хм

У Form1 есть свойство top. Назовите переменную по другому

[[Smarik]]

Вот =) спасибо.