摘要:
Delphi 数据类型 C/C++ ShorInt 8位有符号整数 char Byte 8位无符号整数 BYTE,unsigned short SmallInt 16位有符号整数 short Word 16位无符号整数 unsigned short Integer,LongInt 32位有符号整数 int,long Cardinal,LongWord/DWORD 32... 阅读全文
2013年5月18日 #
摘要:
var x,y,z: Real; begin x := 2; y := 3; { 使用 Math.Power } z := Math.Power(x, y); ShowMessage(FloatToStr(z)); //8 { 不想 uses Math, 就用 System.Exp、System.Ln } z := Exp(Ln(x) * y); Sho... 阅读全文
摘要:
指令 参数存放位置 参数传递顺序 参数内存管理 适用地点 register CPU寄存器 从左到右 被调用者 默认,published 属性存取方法必须使用 pascal 栈 从左到右 被调用者 向后兼容 cdecl 栈 从右到左 调用者 调用 C++ 共享库 stdcall 栈 从右到左 被调用者 API 调用 safecall 栈 从右到左 被调用者 API 调用,如... 阅读全文
摘要:
function GetSubStrNum(const SubStr,Str: WideString): Integer; var pw: PWideChar; i,SubLen: Integer; begin Result := 0; pw := PWideChar(Str); SubLen := Length(SubStr); while i > 0 do begi... 阅读全文
摘要:
{给 Memo 排序的函数} procedure SortMemo(const m: TMemo); begin with TStringList.Create do begin Sorted := True; Text := m.Text; m.Text := Text; Free; end; end; 菊子曰:我在用着的博客编辑软件 阅读全文
摘要:
//10次抽样比较,这样速度会快点,不适合特别大的文件,这样容易漏比 function CompFile(const f1,f2: string): Boolean; var fs1,fs2: TFileStream; ms: TMemoryStream; i,p: Integer; b1,b2: Byte; begin Result := False; if not (FileExi... 阅读全文
摘要:
function GB2Big(GB: string): string; var Len: Integer; begin Len := Length(GB); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Le... 阅读全文
摘要:
{从字符串中提取单词的函数} procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.Sorted := True;... 阅读全文
摘要:
{函数} function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIG... 阅读全文
摘要:
//分割字符串 ExtractStringsvar s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List); //第一... 阅读全文