重温delphi之控制台程序:Hello World!

原文:重温delphi之控制台程序:Hello World!

这二天用c#开发ActiveX时，发现不管怎么弄，c#就是没办法生成ocx的纯正activeX控件，而且还要强迫用户安装巨大的.net framework（我只是想做一个简单截屏功能的activeX整合到silverlight聊天室中），于是想起了曾经用过一年的delphi，虽然时过境迁，现在早以是.net的天下，但是不可否认，delphi仍是win32原生程序最佳的开发工具之一。

关于Delphi的语法学习，可以参见这个chm文档，基本上一天就能看完

http://d.namipan.com/d/d026cf6a2a78de9569248d7579fc2adccb3f8e01e5ba5500
先来做一个ConsoleApplication（即dos窗口程序）

File-->New-->Other-->Console Application

代码如下:

program Project1;{$APPTYPE CONSOLE}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.