Как загрузить текст.txt в label1

[Sergeu]

Люди програмисты помогите, я сечас делаю говорилку и хочу добавить туда функцию анекдоты но я не хочу загрезнять сис код и поэтому решил загружать их из .txt файлов, подскажите как это делать! плиз!

[mihali4]

Сообщение от Sergeu

не хочу загрезнять сис код

Есть "грёзы", есть "грязь". Есть "загрязнять".
Ну, да ладно - горбатого могила исправит.
По теме

Как загрузить текст.txt в label1

ListBox1.Items.LoadFromFile('текст.txt');
Label1.Caption:='';
for i:=0 to ListBox1.Items.Count-1 do
Label1.Caption:=Label1.Caption+ListBox1.Items[i];

Только вот лэйбл не предназначен для больших текстов...

[albatros]

короче объяви переменную типа textfile;

var
t: textfile;
s: string;// строка

есть такая процедура по реализации файловой переменной assignfile(text,'указываешь относительный или абсолютный путь к файлу');
дальше есть три процедуры :
чтение из файла reset(t);
запись в файл в конец appened(t);
перезапись файла rewrite(t);

Тебе я как понял нужно чтение из файла.
Построчно читаешь процедурой readln(t,s) и выводишь например в мемо , поддержива.

и после чего закрываешь файл процедурой close(t);
Также есть ещё булевская функцию определяющая конец файла
EOF(t); (end of file);
читаешь файл построчно, пока функция EOF не будет иметь значение TRUE;
т.е.

while not EOF(t) do
begin
readln(t,s);
Memo1.Lines.Append(s);
end;
Memo1.Repaint;

[albatros]

Блин ошибся думал ты хотел в memo

[Sergeu]

ListBox1.Items.LoadFromFile('текст. txt');
Label1.Caption:='';
for i:=0 to ListBox1.Items.Count-1 do
Label1.Caption:=Label1.Caption+List Box1.Items[i];

я не понял а причём там лист бокс мне веть нужно загружать весь текст в лэйбл ну код примерно так должен выглядить но он не срабатывает
Label1.caption.LoadFromFile('текст. txt');

[Sergeu]

А извеняюсь всё понял всё работает спосиб

[Pedro]

я не понял а причём там лист бокс

Притом, что в лэйбл напрямую текст не загрузишь, либо работай с файловой переменной, либо листбокс/мемо ну или еще что нибудь.

[Sergeu]

Сообщение от Pedro

Притом, что в лэйбл напрямую текст не загрузишь, либо работай с файловой переменной, либо листбокс/мемо ну или еще что нибудь.

да я потом разобрал код и понял это!

[QunneD]

Или можно еще так

var
   s : TStringList;
begin
   s := TStringList.Create;
   s.LoadFromFile('текст.txt');
   Label1.Caption := s.Text;
   s.Free;
end;

Через StringList мой самый удобный способ что либо делать