摘要：
function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := S... 阅读全文
2014年7月24日
摘要：
//Char 类型与其编码值的转换:var b: Byte; c: Char;begin b := Ord('A'); {返回: 65} b := Ord(#65); {返回: 65} b := Ord($41); {返回: 65} b := Ord(#$41); {返回: 65} b := Byt... 阅读全文
摘要：
begin#E760FCA2FAE65266BDD1FF6C0EFFC3F393884C05FC3A6DD28ADC5FF4C7F1B33E9D61FBA87215DE6943704303AA7FC173C86C02EA311540C99B08DA852FB79A9D53A3CE14EF524D7D 阅读全文
摘要：
先说赋值://赋值方法1: 给直接量begin SetWindowText(Handle, '新标题');end;//赋值方法2: 定义它要的类型var p: PChar;begin p := '新标题'; SetWindowText(Handle, p);end;//赋值方法3: 转换成它要的类型... 阅读全文