重温delphi之控制台程序:Hello World!
2024-10-18 23:33:11
原文:重温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.
最新文章
- ListView的属性及方法详解
- SQL同列合并
- Oracle警告、跟踪文件(10046、死锁等跟踪)
- 删除xcode中的描述文件的路径
- openstack安装、卸载与启动
- Eclipse 中Alt+/快捷键失效的解决办法。
- 77. Combinations
- jstat用法
- Tips: compilation and creating new projects on Android 4.0
- 【4】创建一个自己的Bootstrap模板
- iOS网络通信类库
- SCALA中的函数式编程
- POJ 1330 Nearest Common Ancestors(Tarjan离线LCA)
- maven-配置文件配置src/resource下的文件
- Mac中安装git后,终端运行git出错,提示安装Xcode
- youtube-dl下载youtube视频时查看分辨率以及选择分辨率下载
- BFC和清除浮动
- centOS7docker安装oracle
- Day 4-7 -configparser模块
- if 结构语句
热门文章
- POJ 2175 spfa费用流消圈
- 模拟产生CBC LATCH与buffer busy wait等待事件
- jquery 动态添加和删除 ul li列表
- 使用 PyCrypto 进行 AES/ECB/PKCS#5(7) 加密
- Delphi访问活动目录
- 与众不同 windows phone (1) - Hello Windows Phone
- UVA 116 Unidirectional TSP(dp + 数塔问题)
- ASP.Net状态管理读书笔记--思维导图
- XML SelectSingleNode的使用 根据节点属性获取该节点
- SLIC superpixel实现分析