1 program Project1; 2 uses Windows; 3 begin 4 MessageBox(0,PChar('Ok!'),PChar('Title'),0); 5 end.
program Project1; {$APPTYPE CONSOLE} var str: string; begin Writeln('请输入:'); Readln(str); Writeln('你输入的是:' + str); Readln; end.
1 program Project1; 2 uses Windows; 3 begin 4 MessageBox(0,PChar('Ok!'),PChar('Title'),0); 5 end.
program Project1; {$APPTYPE CONSOLE} var str: string; begin Writeln('请输入:'); Readln(str); Writeln('你输入的是:' + str); Readln; end.