L
listhano
Unregistered / Unconfirmed
GUEST, unregistred user!
有这样一个备份 OnClick:事件 谁能告诉我 TiniFile类是怎样构造出来的；最好给一个解释！
===============================================
procedure TForm1.BitBtn1Click(Sender: TObject);
var AppPath :string;
Myini:TiniFile;
begin
try //备份数据
MyIni := TIniFile.Create('student.ini');
MyIni.WriteString('DataBack','BackTime',FormatDateTime('yyyy-mm-dd',Date));
AppPath := ExtractFilePath(Application.ExeName);
CopyFile(PChar(AppPath+'student.mdb'),PChar(AppPath+'studenbak.mdb'),false);
Form1.PshowMessage('提示','数据已经成功备份！',0);
MyIni.Free;
except
MyIni.Free;
Form1.PshowMessage('系统错误','数据备份失败！',0);
end;
end;
==================================================
我提的问题是:
Myini:TiniFile;//Myini是一个变量 Myini:TiniFile;//TiniFile是一个类 TiniFile 是一个定义的类。在上述程序段(这个程序段上半部分没有，因此，我不知道这个类怎样定义的)。在类型定义段：
type
TiniFile＝class();
.......
这个怎样写？
===============================================
procedure TForm1.BitBtn1Click(Sender: TObject);
var AppPath :string;
Myini:TiniFile;
begin
try //备份数据
MyIni := TIniFile.Create('student.ini');
MyIni.WriteString('DataBack','BackTime',FormatDateTime('yyyy-mm-dd',Date));
AppPath := ExtractFilePath(Application.ExeName);
CopyFile(PChar(AppPath+'student.mdb'),PChar(AppPath+'studenbak.mdb'),false);
Form1.PshowMessage('提示','数据已经成功备份！',0);
MyIni.Free;
except
MyIni.Free;
Form1.PshowMessage('系统错误','数据备份失败！',0);
end;
end;
==================================================
我提的问题是:
Myini:TiniFile;//Myini是一个变量 Myini:TiniFile;//TiniFile是一个类 TiniFile 是一个定义的类。在上述程序段(这个程序段上半部分没有，因此，我不知道这个类怎样定义的)。在类型定义段：
type
TiniFile＝class();
.......
这个怎样写？
