delphi相关资料
文章平均质量分 61
walce
这个作者很懒,什么都没留下…
展开
-
如何将Delphi的字符串直接转成汉字?
能用程序把caption = #25511#21046#22120 转成 caption = 控制器吗?var lpStr : WideString;begin setlength(lpstr, 3); lpStr[1] := #25511; lpStr[2] := #21046; lpStr[3] := #22120; caption := lpstr;*************原创 2005-04-12 18:30:00 · 1323 阅读 · 0 评论 -
如何逆操作(解密函数to加密函数)
函数如下Function DIP(str:string):string;varm,str1:string;asc,asc1:byte;i:integer;beginm:=asdfdghjvvvsd;for i:=1 to length(str) do begin asc:=ord(str[i]); asc:=asc and $F; asc1:=ord(m[i]); a原创 2005-04-12 19:17:00 · 1180 阅读 · 0 评论 -
edit中只让输入数字跟相关符号
if not(key in[0..9,#8]) then begin key:=#0; messagebeep(1); showmessage(密码只能为数字 ) end; ******************************************e:= (Sender as TEdit); //需要限制输入的控件可共享这段代码if not(k原创 2005-04-16 22:32:00 · 1104 阅读 · 0 评论 -
如何将某文件夹下的指定扩展名的所有文件显示出来
例如:将c:/my music里的所有mp3文件的文件名添加到listbox里procedure TForm1.Button1Click(Sender: TObject);begin CreateDirTree(c:/my music/);end;procedure TForm1.CreateDirTree(path: string);var SR:TSearchRec; found原创 2005-04-12 18:47:00 · 1366 阅读 · 0 评论 -
delphi菜单管理
菜单的设计,应该每个delphi人都觉得不是很难的一件事.只要点点点点,就ok的一件事,每本书上都有讲到这些,google和baidu都能找到很多资料..我本来想把自己做的,给传上来,但想到这个的简单度,也就不传了.原创 2005-04-16 14:46:00 · 1085 阅读 · 0 评论 -
mp3................
Delphi 3.0是一个非常优秀的软件,利用它可很快地制作出一个简单的MP3音乐点歌台。 原理:制作一个MP3播放程序(本文以Winplay3为例)的外壳,建立中文歌曲名与MP3文件的关联,从而实现中文歌名的“点歌”。 步骤: 一、新建一个文件 创建一个新的工程(New Project)和空白窗体(Form1),将Form1的Caption属性改为“我的点歌台”,在Form1中加入两个原创 2005-04-17 16:55:00 · 1141 阅读 · 2 评论 -
Delphi文本和图形的打印
对于每一个Windows应用程序开发者来说,打印功能的实现都是极为棘手的,因为要涉及到相当多的代码,而且常常是相当复杂,但是在Delphi中实现文本和图像的打印功能却是非常容易的。 文本的打印功能 Delphi中文本的打印功能就如同在DOS中一样容易,需要做的只是取得打印参数,打开打印机,然后发送文本的每一行内容。在Delphi中提供了一个printers程序单元,它说明了一个tprin原创 2005-04-25 20:22:00 · 5464 阅读 · 0 评论