朱颂东的博客

摘要： procedure TForm1.Button1Click(Sender: TObject); var queue:TQueue; i:integer; s:string; begin queue.head:=1; queue.tail:=1; for i:=1 to 9 do begin queu 阅读全文

摘要： 新学期开始了，小哈是小哼的新同桌（小哈是个小美女哦~），小哼向小哈询问 QQ号，小哈当然不会直接告诉小哼啦，原因嘛你懂的。所以小哈给了小哼一串加密过的数字，同时小哈也告诉了小哼解密规则。规则是这样的：首先将第 1个数删除，紧接着将第 2 个数放到这串数的末尾，再将第 3 个数删除并将第 4 个数放到 阅读全文

摘要： var arr:array[0..5] of integer; i,j:integer; itemp:integer; begin arr[0]:=1; arr[1]:=71; arr[2]:=5; arr[3]:=31; arr[4]:=2; arr[5]:=12; for i:=0 to 5 d 阅读全文

摘要： var arr:array[0..5] of integer; i,j:integer; itemp:integer; begin arr[0]:=1; arr[1]:=71; arr[2]:=5; arr[3]:=31; arr[4]:=2; arr[5]:=12; for i:=5 downto 阅读全文

摘要： var arr:array[0..10] of integer; arr2:array[0..5] of integer; i,j:integer; begin for i:=0 to 10 do arr[i]:=0; arr2[0]:=2; arr2[1]:=3; arr2[2]:=7; arr2 阅读全文

摘要： 用delphi2010调试一个以前的程序，因为以前的程序是delphi7下编写的，大家都知道delphi7下的用的是indy9，后面的主流版本都是用indy10啦。 所以以前用的 Temp1 := UTF8Decode(Temp);Temp1 := Utf8ToAnsi(Temp);Temp1 := 阅读全文

摘要： TServerSocket：如何在发送消息之前检查ListView上的特定客户端是否仍处于连接状态？ 无需检查连接。如果客户端实际上已断开连接，则在触发处理程序Connections[]时，该客户端将不再位于服务器列表中OnTimer。您应该为OnClientDisconnect分配了处理程序，以T 阅读全文

摘要： @ 与 ^ 运算符//例1：procedure TForm1.Button1Click(Sender: TObject);varstr: string;p: Pointer;beginp := @str; //变量 str 的地址p := @Form1; //变量 Form1 的地址p := @TF 阅读全文

摘要： procedure TfraItem.circleImage;var Bmp: TBitmap; Rhandle: HRGN; filename:string;begin Bmp := TBitmap.Create; Bmp.Assign(Image1.Picture.Graphic); Rhand 阅读全文

摘要： delphi RichView的使用介绍 RichView 组件 由 9 个组件模块组成，分别是： 1、TRVStyle：主要是定义RICHVIEW样式，定义后，其它RIHCVIEW都可以引用此样式。 2、TRichView ：主要用于显示文本，图像，等等 3、TRichViewEdit： 主要用于 阅读全文