Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/Strings/Query.pas

Pascal/Delphi Source File | 1998-02-13 | 230 b | 9 lines

procedure TForm1.Button1Click(Sender: TObject);
var
  Filename: String;
begin
  Filename := '\Delphi 4 Bible\Source\Readme.Txt';
  if InputQuery('Test', 'File?', Filename) then
    Memo1.Lines.LoadFromFile(Filename);
end;