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

Question

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

Answer 1

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

Answer 2

例子：
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;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————