摘要:
type TRec1 = record i: Integer; w: Word; end; TRec2 = packed record {压缩结构: 牺牲效率, 减小尺寸} i: Integer; w: Word; end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToStr(SizeOf(TRec1))); {8} ShowMessage(IntToStr(SizeOf(TRec2))); {6}end; 阅读全文
摘要:
Chr //将一个有序数据转换为一个 ANSI 字符Ord //将一个有序类型值转换为它的序号Round //转换一个实型值为四舍五入后的整型值Trunc //转换一个实型值为小数截断后的整型值Int //返回浮点数的整数部分IntToStr //将数值转换为字符串IntToHex //将数值转换为十六进制数字符串StrToInt //将字符串转换为一个整型数,如字符串不是一个合法的整型将引发异常StrToIntDef //将字符串转换为一个整数,如字符串不合法返回一个缺省值Val //将字符串转换为一个数字(传统 Turbo Pascal 例程用于向后兼容)Str //将数字转换为格式化.. 阅读全文
摘要:
//Byteprocedure TForm1.Button1Click(Sender: TObject);var x,y: Byte;begin x := MAXBYTE; //MAXBYTE是常数255 y := not x; //y 的值是 0 x := 5; y := not x; //y 的值是 250 ShowMessage(IntToStr(y));end;//Wordprocedure TForm1.Button1Click(Sender: TObject);var x,y: Word;begin x := MAXWORD; //MAXBYTE是常数65535 y := not 阅读全文
摘要:
'BORLAND' { BORLAND }'You''ll see' { You'll see }'''' { ' }'' { 空串 }' ' { 空格 }#89#111#117 { You }#89'Y'#89 { YYY }#89 + 'Y' + #89 { YYY }#13#10 { 换行 } 阅读全文
摘要:
//结构体的比较普遍的两用法,具体还是得靠多看例子,帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了,i并无实际意义。//TtextRecord作为一个字符串的形式存在内存 阅读全文