void __fastcall TfMain::FormShow(TObject *Sender) { TStringList* sl = new(TStringList); sl->NameValueSeparator = '='; TFile f; if(f.Exists(ExtractFileDir(Application->ExeName) + "\\Library.lb")){ sl->LoadFromFile(GetCurrentDir() + "\\Library.lb"); for(int i = 0; i < sl->Count; i++){ TListItem* Item = lvLib->Items->Add(); Item->Caption = ExtractFileName(sl->Names[i]); Item->GroupID = 0; Item->SubItems->Add(sl->Names[i]); //path [0] TStringList* ss = new(TStringList); ss->NameValueSeparator = '/'; ss->Add(sl->ValueFromIndex[i]); Item->SubItems->Add(ss->Names[0]); //bookmark [1] Item->SubItems->Add(ss->ValueFromIndex[0]); //size [2] ss->~TStringList(); } } sl->Clear(); if(f.Exists(ExtractFileDir(Application->ExeName) + "\\Settings.ini")){ sl->LoadFromFile(GetCurrentDir() + "\\Settings.ini"); leLogin->Text = sl->ValueFromIndex[0]; lePass->Text = sl->ValueFromIndex[1]; if(sl->ValueFromIndex[2] == "1") cbRememberPass->Checked = true; else cbRememberPass->Checked = false; leServer->Text = sl->ValueFromIndex[3]; } sl->~TStringList(); }