请教一个问题,我是刚开始学delphi的。很简单的问题。帮帮我吧?????/ 你用的是日期型的还是string型的。没听明白。如果用的是日期型的,那么分解;decodedate如果用的是字符串,那么用copy 函数取下来相应的字符,然后用stringtoint转成int型的。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 谢谢。我已经用DecodeDate(Present, Year, Month,Day); DecodeTime(Present, Hour, Min, Sec, MSec);分解了,如果把它直接赋给buf[],输出结果时16进制的。我要用的是压缩BCD码,如何赋值,把年(2001)用两个字节表示应如何表示。 type TDateTimeRec = packed record year: word; month: word; day: word; Hour: word; Min: word; Sec; word; MSec: word; end; PTByteArry = TByteArry TByteArry = array [0..sizeof(TDateRec)] of byte;var DateTimeRec: TDateTimeRec; ptrByte: PTByteArry;... DecodeDate(Present, Year, Month,Day); DecodeTime(Present, Hour, Min, Sec, MSec); DateTimeRec.year := year; DateTimeRec.Month; ... {略} ptrByte := @DateTimeRec; ... {以下就可以使用 ptrByte 操作}BTW: Delphi 中很少用到这样的数据处理方法的。 请教大家一个问题:可以输入文字,也可以粘贴图片,用哪个控件比较简单? 请教:如何让label控件倾斜?大家有何好办法? 初到贵宝地!散分!!! 谁有DCU decompiler 3.2 TstringGrid 争取国庆前得四个绿三角!还差14分,哈哈 如何连DBF数据库! 求delphi3.0下载地址,能down.200分 请问windows环境下,的FTP.EXE 的用法(多谢) 一直在用D7,想升级开发工具XE2、XE3、XE4哪个更理想 怎么使用Winsock Api实现Echo的功能 SQL语句的疑惑?
DecodeDate(Present, Year, Month,Day);
DecodeTime(Present, Hour, Min, Sec, MSec);分解了,如果把它直接赋给
buf[],输出结果时16进制的。我要用的是压缩BCD码,如何赋值,把年(2001)用两个字节表示应如何表示。
TDateTimeRec = packed record
year: word;
month: word;
day: word;
Hour: word;
Min: word;
Sec; word;
MSec: word;
end; PTByteArry = TByteArry
TByteArry = array [0..sizeof(TDateRec)] of byte;var
DateTimeRec: TDateTimeRec;
ptrByte: PTByteArry;
...
DecodeDate(Present, Year, Month,Day);
DecodeTime(Present, Hour, Min, Sec, MSec);
DateTimeRec.year := year;
DateTimeRec.Month;
... {略}
ptrByte := @DateTimeRec;
... {以下就可以使用 ptrByte 操作}BTW: Delphi 中很少用到这样的数据处理方法的。