先来做一个ConsoleApplication(即dos窗口程序)
File-->New-->Other-->Console Application
代码如下:
program Project1;
uses // 相当于using 命名空间
SysUtils;
var // 定义变量
i:Integer;
s: string ;
_ set : set of Char; // 集合类型
const
Author: string = ' Jimmy ' ; // 常量字符串
resourcestring
Author2 = ' yjmyzz ' ; // 资源字符串
// 定义一个过程
procedure MyProc(msg: string ) ;
begin
Writeln( ' MyProc is Called by: ' + msg);
end ;
// 定义一个函数
function MyFunc(msg: string ): string ;
begin
result : = ' MyFunc is Called by ' + msg;
end ;
// Main方法的开始
begin
WriteLn( ' Hello World ' ); // 输出,相当于c#中的Console.Writeln("xxx")
Writeln( '' );
for i: = 0 to 10 do // 循环
begin
s: = ' 这是数字 ' + IntToStr(i) ;
Writeln(s);
end ;
Writeln( ' -------------------------- ' );
MyProc( ' jimmy ' ); // 调用过程
Writeln(MyFunc( ' Jimmy.Yang ' )); // 调用函数
Writeln( ' -------------------------- ' );
Writeln(Author); // 输出常量
Writeln(Author2); // 输出资源字符串
Writeln( ' -------------------------- ' );
Writeln( ' Integer: ' );
Writeln(SizeOf(Integer));
Writeln(High(Integer));
Writeln(Low(Integer));
Writeln( ' -------------------------- ' );
Writeln( ' i= ' + inttostr(i));
Dec(i); // i减1,相当于i: = i - 1 ;
i: = i - 1 ;
Writeln( ' i= ' + inttostr(i));
Writeln(Odd(i));
Writeln( ' -------------------------- ' );
Writeln(FormatDateTime( ' yyyy年mm月dd日 hh:nn:ss ' ,Now));
Writeln( ' -------------------------- ' );
i: = Integer( ' A ' );
Writeln(i);
Writeln(Ord( ' a ' ));
Writeln(Chr( 97 ));
Writeln(# 10 + ' 按任意键退出... ' );
Readln; // 等待键盘输入
end .