客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
这二天用c#开发ActiveX时，发现不管怎么弄，c#就是没办法生成ocx的纯正activeX控件，而且还要强迫用户安装巨大的.net framework（我只是想做一个简单截屏功能的activeX整合到silverlight聊天室中），于是想起了曾经用过一年的delphi，虽然时过境迁，现在早以是.net的天下，但是不可否认，delphi仍是win32原生程序最佳的开发工具之一。 关于Delphi的语法学习，可以参见这个chm文档，基本上一天就能看完 http://d.namipan.com/d/d026cf6a2a78de9569248d7579fc2adccb3f8e01e5ba5500 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.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论