摘要:
procedure TForm1.Button1Click(Sender: TObject); const arr:array[0..3] of WideString=('白日依山尽','黄河入海流','欲穷千里目','更上一层楼'); a=20; b=20; var s:string; x,y:Integer; i,j:Integer; begin x:=20; y:=20; for i:... 阅读全文
posted @ 2011-03-03 00:20
橘子西瓜
阅读(310)
评论(0)
推荐(0)
摘要:
procedure TForm1.FormPaint(Sender: TObject); var trect1:trect; begin canvas.Pen.Color:=clred; //canvas.Pen.Width:=1; //指定画笔的宽度 //canvas.Pen.Style:=psDashDotDot;//指定画笔的样式 with canvas do begin pen.colo... 阅读全文
posted @ 2011-03-03 00:18
橘子西瓜
阅读(613)
评论(0)
推荐(0)
摘要:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, jpeg; type TForm1 = class(TForm) OpenPictureDialog1: TOp... 阅读全文
posted @ 2011-03-03 00:16
橘子西瓜
阅读(506)
评论(0)
推荐(0)
摘要:
媒体播放器控件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Butt... 阅读全文
posted @ 2011-03-03 00:12
橘子西瓜
阅读(525)
评论(0)
推荐(0)
摘要:
调用WindowsAPI播放声音: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin sndplaysound('',snd_async); end; procedure TForm1.Button1Click(Sender: TObject); begin sndplaysound('C:\... 阅读全文
posted @ 2011-03-03 00:09
橘子西瓜
阅读(456)
评论(0)
推荐(0)
摘要:
Delphi中的文件分为文本文件、有类型文件和无类型文件。在一般情况下,文件仅指磁盘文件,外设如打印机、显示器也是文件,这里的文件仅指磁盘文件。 文件的基本操作: 与外部文件联系的建立与中断 在Delphi中要对外部为难进行读写操作前后,需要将该外部文件名分配给一个文件类型的变量;当不需要对外部文件进行读写时,需要中断文件变量与该外部磁盘文件的联系。 文件的打开与关闭 在对文件进行读写操作前后... 阅读全文
posted @ 2011-03-03 00:02
橘子西瓜
阅读(441)
评论(0)
推荐(0)
浙公网安备 33010602011771号