InputBox(const ACaption, APrompt, ADefault: string): string;
eg:
procedure TForm1.Button1Click(Sender: TObject);
var
InputString: string;
begin
InputString:= InputBox('Input Box', 'Prompt', 'Default string');end;
eg:
procedure TForm1.Button1Click(Sender: TObject);
var
InputString: string;
begin
InputString:= InputBox('Input Box', 'Prompt', 'Default string');end;
比如Windows API中队文件的操作
如果不相同,就需要另外转换了