混合排序小练习
摘要：2011 年的最后一天了...混合排序 -> 搅乱、重新洗牌; 以 Integer 动态数组为例.//两个辅助函数 Swap、ToStr, 分别用于交换数组元素和呈现为字符串procedure Swap(var Arr: TArray<Integer>; a,b: Cardinal);var tmp: Integer;begin if (a >= Length(Arr)) or (b >= Length(Arr)) or (a = b) then Exit; tmp := Arr[a]; Arr[a] := Arr[b]; Arr[b] := tmp;end;fu
阅读全文
posted @
2011-12-31 13:30
万一
阅读(2057)
推荐(0) 编辑
使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题
摘要：uses IdHTTP;const Url = 'http://del.cnblogs.com';procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create('', TEncoding.UTF8); // idHttpObj := TIdHTTP.Create(nil); idHttpObj.Get(Url, stream); idHttpObj.Free; Mem
阅读全文
posted @
2011-12-30 20:54
万一
阅读(9070)
推荐(0) 编辑
使用泛型, 写一个为任意类型的动态数组添加元素的方法
摘要：一、使用泛型类:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; TArr<T> = class class procedure ArrayAdd(var Arr: T...
阅读全文
posted @
2011-12-24 11:57
万一
阅读(10272)
推荐(2) 编辑
Delphi 中的自动释放策略
摘要：一、指定 Owner 后, 随 Owner 连带释放://uses Vcl.StdCtrls, Vcl.ExtCtrls;var panel: TPanel;procedure TForm1.Button1Click(Sender: TObject);begin panel := TPanel.Create(Self); panel.Parent := Self; with TButton.Create(panel) do //AOwner = panel begin Parent := panel; Caption := 'New Button'; end;end;p...
阅读全文
posted @
2011-12-21 15:42
万一
阅读(18326)
推荐(0) 编辑
忙
摘要：最近特忙, 没时间上博客; 回复不了问题, 抱歉!
阅读全文
posted @
2011-12-14 22:30
万一
阅读(1411)
推荐(0) 编辑
如何使用 SendMessage 选择 ListBox、ComboBox 中的项 - 回复 "倪慧刚" 的问题
摘要：const i = 1;//初始测试数据procedure TForm1.FormCreate(Sender: TObject);begin ListBox1.Items.CommaText := 'aaa,bbb,ccc'; ComboBox1.Items.CommaText := 'aaa,bbb,ccc';end;//对 ListBox1procedure TForm1.Button1Click(Sender: TObject);begin// ListBox1.Selected[i] := True; {常规方法} SendMessage(L...
阅读全文
posted @
2011-12-01 15:25
万一
阅读(7647)
推荐(0) 编辑
管理
