重温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.

 

 

时间: 2024-09-29 07:35:34

重温delphi之控制台程序:Hello World!的相关文章

编写自己的IDE:如何在图形界面中实时捕获控制台程序的标准输出

编写自己的"IDE"-- 如何在图形界面中实时捕获控制台程序的标准输出. IDE是集成开发环境(Integrated Development Environment)的简称.印象里有很多出色的IDE,比如JBuilder和Kylix,比如Visual Studio.不知大家是否留意过,大多数IDE本身只提供代码编辑.工程管理等人机交互功能,我们在IDE中编译代码.调试程序时,IDE需要调用命令行的编译器.调试器完成相应的操作.例如,使用Visual Studio编译C++程序时,我们会

Windows中控制台程序的全屏模式开关

当你的程序以控制台方式运行时,按下ALT+ENTER可以将屏幕变成全屏模式.但如何在程序中用Win32 API函数来实现这个功能呢?据我所知,微软没有提供有关这方面的任何文档.但是,当用户按下ALT+ENTER时,Windows 9x用如下特殊的加速键ID发送WM_COMMAND消息到控制台窗口. #define ID_SWITCH_CONSOLEMODE 0xE00F 这个加速键ID没有对外公开,所以你在Win32 API的有关文档中找不到关于ID_SWITCH_CONSOLEMODE的内容.

控制台程序小工具:输入密码、指令指派、自动补全与帮助集成

一.简介 控制台程序小巧.便捷,开发起来简单.一般,我写项目时习惯在原定客户端之外,写一个控制台的客户端.这样有几个好处: (1)开发量较Web或GUI少得多. (2)运行起来简单,占有资源很少. (3)便于跟踪程序的运行.比如,用 log4net 记录日志的话,将appender-ref设置成ConsoleAppender,可以清楚看清系统运行轨迹,在使用nhibernate/activerecord开发时尤其方便. (4)当为同一个系统开发两种不同的UI时,会自觉的做好分层,这样可以使系统的

strlen-程序访问异常 段异常 C语言控制台程序

问题描述 程序访问异常 段异常 C语言控制台程序 代码如下: char *s *t; scanf(""%s"" s); scanf(""%s"" t); int tLen = strlen(t); int sLen = strlen(s); 解决方案 s 和 t 都是没有初始化的指针,所以程序肯定会出现异常的.定义 s 和 t 后,至少也要为它分配空间,如 s = (char *)malloc(128); ///分配的大小自己

VC 控制台程序串口通讯,串口收到数据如何发送消息给主线程?

问题描述 VC 控制台程序串口通讯,串口收到数据如何发送消息给主线程? 用CSerialPort类实现串口通讯,该类在收到数据后会调用::sendmessage函数,该函数的第一个参数是窗口句柄,但是控制台没有窗口句柄,该怎么发送消息?main函数里怎么响应消息? 解决方案 sendmessage wm_copydata 解决方案二: 控制台程序可以调用http://blog.csdn.net/coredoor/article/details/8582001

断点-关于delphi编写的程序在某些操作系统上运行出错的问题

问题描述 关于delphi编写的程序在某些操作系统上运行出错的问题 大家好 本人从事程序测试工作3年左右 还属于菜鸟级别 目前遇到了一个比较棘手的问题 希望高手可以指点 关于delphi编写的程序在某些操作系统上运行出错的问题:同样的程序在xp系统可以正常运行 在win7某些系统可以 某些系统不行(即使是win7旗舰版32位正常安装的已经打上sp1补丁的系统) 所加的断点不起作用 不能够显示 直接抛系统错误(外部组件异常之类的) 希望精通delphi程序以及操作系统的高手可以指点下 如果可以远程

求大神指教-在c++控制台程序中读取文本文件

问题描述 在c++控制台程序中读取文本文件 我是新手,刚刚入门,学校安排了一个暑期项目,做一个球员信息管理系统. 把数据存储在txt文件中,怎样才可以有序的读取我要找的数据,包括球员的赛季数据个个人信息.... 解决方案 C++读取文本文件 解决方案二: 那要看你是怎么存储的数据,什么顺序存储的就怎么读.可以一个球员的信息占一行,或者xxx个字节.然后一个一个球员的读出来. 解决方案三: 最简单的,可以用json文件等来存取,这样用jsoncpp等可以方便读取,解析数据. 解决方案四: 先定义一

c++ mfc visual-visual studio6.0 mfc程序和控制台程序的简单问题,求大神解答

问题描述 visual studio6.0 mfc程序和控制台程序的简单问题,求大神解答 visual c++6.0中控制台程序的main函数应该放在mfc程序的哪个文件中,成员函数放在mfc的哪个文件中.

c++6 0控制台程序-c++6.0控制台程序,使用mcisendstring函数播放mp3文件,没有声音

问题描述 c++6.0控制台程序,使用mcisendstring函数播放mp3文件,没有声音 执行play()函数中,代码: char a[100]=""; char c='1'; while(c!='9') { if(p0==NULL) { printf("找不到可以播放的歌曲n"); return; } printf("开始播放歌曲n"); strcpy(a,""); strcat(a,"open ")