DELPHI如何获取并赋值给一个对象的方法

Posted 2023-05-01

参考技术A 直接用myClose();就好了。
或者：
type
myfuntyp=procedure of object;
// ...
var
Form1: TForm1;
// ...
Form1 := TForm1.Create(nil);
Form1.myfun := Form1.myClose; //这个不是类方法，不能不创建实例就直接引用！

如何给一个CTime类型的对象赋值

有两种方法:1、用CTime类先用time_t类型构造一个CTime对象，再定义一个SYSTEMTIME结构，最后用CTime类的成员函数GetAsSystemTime将时间转换到SYSTEMTIME结构中即可。2、用gmtime函数gmtime函数将time_t时间转换到tm结构中并返回一个tm指针，再将tm结构的相对应的项赋给SYSTEMTIME相对应的项即可，不过用这种方法要注意这两种结构在天、星期等方面的记数方法有点区别，一个一般从0开始，一个一般从1开始，赋值时要注意校正，还有要注意的是SYSTEMTIME结构中有一项是毫秒，而time_t是以秒记数的。 参考技术A 定义了一个CTime对象，并通过CTime::GetCurrentTime()获得当前时间；

实现代码如下:
int year,mon,day;
year=t.getYear();
mon=t.getMon();
day=t.getDay();
CString str;
str.format("%d%d%d",year,mon,day); 参考技术B CTime data = CTime::GetCurrentTime();
int year = data.GetYear();
int month = data.GetMonth();
int second = data.GetSecond();