|
TList，AnsiString和DynamicArray的妙用(1)
System::AnsiString LabPath=ExtractFilePath(".\\");
TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini"); void myList::ReadList(AnsiString TS)
{
System::AnsiString LabPath=ExtractFilePath(".\\");
TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini"); Form2->AddList();
for(int i=0;i<Form2->LabelList->Count;i++)
{
TLabel *Lab;
Lab=(TLabel *)Form2->LabelList->Items[i];
Lab->Left=LabIni->ReadInteger(TS,"Left"+IntToStr(i), Lab->Left);
Lab->Top=LabIni->ReadInteger(TS,"Top"+IntToStr(i),Lab->Top);
}
} //----------------------------------------------------------------------------
void myList::WriteList(AnsiString TS)
{
System::AnsiString LabPath=ExtractFilePath(".\\");
TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");
Form2->AddList();
for(int i=0;i<Form2->LabelList->Count;i++)
{
TLabel *Lab;
Lab=(TLabel *)Form2->LabelList->Items[i];
LabIni->WriteInteger(TS,"Left"+IntToStr(i), Lab->Left);
LabIni->WriteInteger(TS,"Top"+IntToStr(i),Lab->Top);
}
} file://---------------------------------------------------------------------------------------------------- strUCt mySEL {
| 
