Вопрос
Как показать текстовый файл в TLabel?
Ответ
procedure TForm1.Button1Click(Sender: TObject);
var
fs : TFileStream;
s : String;
begin
fs := TFileStream.Create('unit1.pas', fmOpenRead or fmShareDenyNone );
SetLength(s, fs.Size);
fs.Read(s[1], Length(s));
fs.Free;
Label1.Caption := s;
end;
Из конференции Delphi
Copyright 
2000-2004 Сообщество Чайников
Контактная информация