找一个函数(20分)

这个函数的作用就是弹出一个对话框，要求输入一个值，这个值会赋给我传入的字符串变量。这个函数是如何拼写的？以前用过，现在想不起来了，求救！

inputbox

晕倒！
function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;

InputBox 吧：）

inputquery

上面这两个都可以，
uses Dialogs;

procedure TForm1.Button1Click(Sender: TObject);
var
InputString: string;
begin
InputString:= InputBox('Input Box', 'Prompt', 'Default string');
end;

procedure TForm1.Button1Click(Sender: TObject);

var
NewString: string;
ClickedOK: Boolean;
begin
NewString := 'Default String';
Label1.Caption := NewString;
ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
if ClickedOK then { NewString contains new input string }
Label1.Caption := 'The new string is ''' + NewString + '''';
end;
区别就是inputbox需要引用dialogs单元

使用Inputbox，哈哈哈，这个我会。碰上了哦。

菜鸟乱发言！呵呵

多人接受答案了。