控制台

vars:string;beginAllocConsole;tryWrite('Type here your words and p...查看全文

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8

控制台

vars:string;beginAllocConsole;tryWrite('Type here your words and press Enter');Readln(s);ShowMessage(Format('You typed: "%s"',[s]));finallyFreeConsole;end;end;

写文章