任何在程序中实现控制台的功能？

[SydPink]

AUTOCAD的命令行可以命令的方式实现精确绘制，谁有经验的啊？送分了？

[nhdj]

我靠，由难度，你需要自己定义很多命令，然后获取命令名、参数1、参数2、.....
然后根据命令和参数执行你的功能。

[lxpbuaa]

例子：
procedure TForm1.IntCommand(Command: String);
var
Strs: TStrings;
OutStr: String;
begin
Strs := TStringList.Create;
Strs.Text := StringReplace(Command, #32, #13, [rfReplaceAll]);
if (StrIComp('Name', PChar(Strs[0])) = 0) and (Strs.Count > 1) then
OutStr := 'Your Name is: ' + Strs[1]
else OutStr := 'error Command';
Memo1.Lines.Add(OutStr);
Strs.Free;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then IntCommand(Memo1.Lines[Memo1.Lines.Count-1]);
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[SydPink]

我也是觉得啊。
所以没好想法。谁做过。来说说啊！
用个RICHEDIT？EDIT？