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

最新推荐文章于 2023-08-29 20:36:56 发布

delphi308

最新推荐文章于 2023-08-29 20:36:56 发布

阅读量1.6k

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

79 篇文章

订阅专栏

本文介绍了一个简单的Delphi控制台程序实例，演示了如何使用Delphi进行基本的控制台应用程序开发，包括变量声明、流程控制、字符串操作等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

先来做一个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.