Подстановка значения в переменную из текстового файла.

[Niodar]

Здрав. Всем.
Есть бегущая строка из TLabel.
нужно сделать так чтобы текст брался из тестового файла.

переменная :='текст из файла'
Label1.Caption:='переменная'

как реализовать чтобы в переменную подстовлялся текст из файла?

[mihali4]

Самый простой вариант - киньте на форму Memo:

Memo1.Lines.LoadFromFile('myfile.txt');
Label1.Caption:=Memo1.Text;

[Terran]

Вот тоже простой вариантик, но без Memo.

Procedure TForm1.FormCreate(Sender: TObject);
Var
F: TStringList;
Begin
F:=TStringList.Create;
F.LoadFromFile('1.txt');
Label1.Caption:=F.Text;
F.Free;
End;