Как показать текстовый файл в TLabel
Как показать текстовый файл в TLabel
Как показать текстовый файл в 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;