摘要： //例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); //分配空间后和静态数组一样使用 StrArr := nil; ... 阅读全文

摘要： //1. 标准方法： var MyArr: array[0..10] of Integer; //定义静态数组 //2. 可以使用非0下标： var MyArr: array[9..10] of Integer; //不能提倡，这样不容易与系统函数沟通 //3. 根据预定义类型来声明数组： type TMyArr = array[0..10] of Integer; /... 阅读全文

摘要： {感谢 robin（xuebin418@163.com）提供} //转换 function Str_Gb2UniCode(text: string): String; var i,len: Integer; cur: Integer; t: String; ws: WideString; begin Result := ''; ws := text; len :... 阅读全文

摘要： //获取 RadioGroup 项目名称 procedure TForm1.RadioGroup1Click(Sender: TObject); begin Text := RadioGroup1.Items[RadioGroup1.ItemIndex]; end; //当点击 RadioGroup 中的第几个选项时... procedure TForm1.RadioGroup1Clic... 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button:... 阅读全文

摘要： //添加 Memo1、Label1、Label2、还有Button1 procedure TForm1.Button1Click(Sender: TObject); var s: string; i,sum,e,c,t: Integer; begin s := Memo1.Text; e := 0; c := 0; sum := Length(s); for i :... 阅读全文

摘要： //全以红色举例： //1. RGB 模式： Self.Color := $0000ff; //不过和HTML中的 #ff0000 是反的，应该叫 BGR。 //2. RGB 分值，譬如： Self.Color := RGB(255,0,0); //3. Delphi 中的标准模式： Self.Color := $000000ff; //其中低3位字节代表RGB(BGR)相应的颜色；... 阅读全文

摘要： 虚拟键码 对应值 对应键 VK_LBUTTON1鼠标左键 VK_RBUTTON2鼠标右键 VK_CANCEL3Cancel VK_MBUTTON4鼠标中键 VK_XBUTTON15 VK_XBUTTON26 VK_BACK8 Backspace VK_TAB9 Tab VK_CLEAR12 Clear VK_RETURN13 Enter VK_SHIFT16 Shift VK_... 阅读全文

摘要： http://docwiki.embarcadero.com/CodeSamples/en/Main_Pagehttp://docwiki.embarcadero.com/RADStudio/en/Main_Pagehttp://www.marcocantu.com/http://blog.marc... 阅读全文

摘要： unit WinVerUtils;{#===============================================================================# Name: WinVerUtils.pas# Author: Aleksander Oven# Created: 2007-02-25# Last Change: 2007-02-25# Versio... 阅读全文