核心提示：procedure TForm3.Button1Click(Sender: TObject);var s: string;begin AllocConsole; try Write('请输入 然后按...
procedure TForm3.Button1Click(Sender: TObject);var
s: string;
begin
AllocConsole;
try
Write('请输入 然后按 [ENTER]');
Readln(s);
ShowMessage('您输入了： ' + s);
finally
FreeConsole;
end;
end;
