//--------------------------------------------------------------------------- void TRsyncConfigAdapter::SaveConfig(){ TStringList* lines = new TStringList(); TModuleHolder* currentModule = GetModuleHolder(GLOBAL_MODULE); for(int i = 0; i < currentModule->nvp->Count; i++){ lines->Add(currentModule->nvp->Strings[i]); } //Now get remaining modules for(int j = 0; j < modules->Count; j++){ currentModule = (TModuleHolder*)modules->Items[j]; if(currentModule->moduleName == GLOBAL_MODULE){ continue; } lines->Add("[" + currentModule->moduleName + "]"); for(int i = 0; i < currentModule->nvp->Count; i++){ lines->Add(currentModule->nvp->Strings[i]); } } lines->SaveToFile(CONFIG_FILE); delete lines; }
//--------------------------------------------------------------------------- TStringList* StringToTok2( AnsiString Words, AnsiString Dlmtr1, AnsiString Dlmtr2 ) { AnsiString Work = Words.Trim(); int spos; TStringList *Making = new TStringList; int spos1 = Work.AnsiPos(Dlmtr1); int spos2 = Work.AnsiPos(Dlmtr2); while (spos1 || spos2) { // int spos = 0; if (!spos1 && spos2) spos = spos2; else if (!spos2 && spos1) spos = spos1; else spos = (spos1 < spos2) ? spos1 : spos2; Making->Add(Work.SubString( 1, spos-1)); Work = Work.SubString( spos+1, Work.Length() - spos); Work = Work.Trim(); spos1 = Work.AnsiPos(Dlmtr1); spos2 = Work.AnsiPos(Dlmtr2); } // while if (Work != "") Making->Add(Work); return Making; }
TStringList GetFileList(wxString folder, const wxString& mask, bool includeFullFolderPath) { TStringList result; wxString FName; if (wxDir::Exists(folder) == false) { return result; } wxDir dir(folder); if (dir.GetFirst(&FName,mask,wxDIR_FILES)) { do { if (includeFullFolderPath) { wxString FullFileName = IncludeTrailingPathDelimiter(folder) + FName; result.Add(FullFileName); } else { result.Add(FName); } } while(dir.GetNext(&FName)); } return result; }
//--------------------------------------------------------------------------- /// Metoda odpowiada za wyci¹gniêcie oraz sparsowanie poszczególnych danych produktu /// po czym przypisuje te dane do przekazanego obiektu. void __fastcall ParsujDane::ZaladujDaneProduktu() { AnsiString znacznikDaneProduktu, znacznikMarka, nazwaMarki, znacznikModel, nazwaModel, znacznikKod, kodProduktu, znacznikRodzUrz, rodzajUrzadzenia, znacznikKategoria, kategoria, dodUwagi, str; int index; TStringList *listaKat = new TStringList; try { listaKat->Add("Komputery"); listaKat->Add("Fotografia"); listaKat->Add("Telefony_i_akcesoria"); listaKat->Sort(); //---- znacznikDaneProduktu = "keys : ["; DaneProduktuText = ZnajdzDane(Text, znacznikDaneProduktu, ']'); UsunZnacznik(DaneProduktuText, "'"); //---- ` znacznikKategoria = "Cat1: \'"; kategoria = ZnajdzDane(Text, znacznikKategoria, '\''); bool x = listaKat->Find(kategoria, index); if (!listaKat->Find(kategoria, index)) { BladKategorii = true; ShowMessage("Proces parsowania tekstu nie powiód³ siê - brak parsera dla wybranej kategorii!"); return; } //---- znacznikMarka = "\"Producent: "; nazwaMarki = ZnajdzDane(DaneProduktuText, znacznikMarka, '\"'); //---- znacznikModel = "\"" + nazwaMarki; znacznikModel = znacznikModel.LowerCase(); DaneProduktuText = DaneProduktuText.LowerCase(); nazwaModel = ZnajdzDane(DaneProduktuText, znacznikModel, '\"'); //---- while (true) { DaneProduktuText.Delete(DaneProduktuText.Pos(","), 1); if (DaneProduktuText.IsEmpty()) break; str = ZnajdzDane(DaneProduktuText, '\"', '\"'); if (str.Pos(":") == 0) continue; dodUwagi += str + ";"; } //---- znacznikKod = "productID: \'"; kodProduktu = ZnajdzDane(Text, znacznikKod, '\''); //---- znacznikRodzUrz = "catmin: \'"; rodzajUrzadzenia = ZnajdzDane(Text, znacznikRodzUrz, '\''); // ---- FProdukt->DodajDaneProduktu(nazwaMarki, nazwaModel, kodProduktu.ToInt(), rodzajUrzadzenia, dodUwagi); } catch(...) { if (listaKat != NULL) delete listaKat; listaKat = NULL; throw; } if (listaKat != NULL) delete listaKat; listaKat = NULL; }
//--------------------------------------------------------------------------- void __fastcall TMainForm::ConsumeProducts() { TStringList * products = new TStringList(); if (FInAppPurchase->IsProductPurchased(EuropeID)) { products->Add(EuropeID); } if (FInAppPurchase->IsProductPurchased(NoAdsID)) { products->Add(NoAdsID); } FInAppPurchase->ConsumeProducts(products); products->DisposeOf(); }
void TIniFile::ReadSectionNames(const wxString &Section, TStringList &Strings) { wxString N; wxString V; int I; // Assert( !! Strings , SStringsUnassignedError ); Strings.BeginUpdate(); try { Strings.Clear(); if (FFileBuffer->Count() > 0) { I = GetSectionIndex(Section); if (I != -1) { ++I; while ((I < FFileBuffer->Count()) && !IsSection (FFileBuffer->Item(I))) { N = GetName(FFileBuffer->Item(I)); if (N != EmptyStr) { Strings.Add(N); } ++I; } } } } /* ? *//* FINALLY */ catch (...) { Strings.EndUpdate(); } }
void TIniFile::ReadSections(TStringList &Strings) { long I; wxString Section; // Assert( !! Strings , SStringsUnassignedError ); Strings.BeginUpdate(); try { Strings.Clear(); if (FFileBuffer->Count() > 0) { I = 0; while ((I < FFileBuffer->Count())) { if (IsSection(FFileBuffer->Item(I))) { Section = Trim(FFileBuffer->Item(I)); Delete(Section, 0, 1); Delete(Section, Length(Section) - 1, 1); Strings.Add(Trim(Section)); } ++I; } } } /* ? *//* FINALLY */ catch (...) { Strings.EndUpdate(); } }
//--------------------------------------------------------------------------- TStringList* StringToTokiens( AnsiString Words, AnsiString Dlmtr ) { AnsiString Work = Words.Trim(); int spos; TStringList *Making = new TStringList; while ((spos = Work.AnsiPos(Dlmtr)) != 0) { Making->Add(Work.SubString( 1, spos-1)); Work = Work.SubString( spos+1, Work.Length() - spos); Work = Work.Trim(); } // while if (Work != "") Making->Add(Work); return Making; }
TStringList * Defines::GetList(String key) { int indexS = -1, indexF = -1; for (int i=0; i<l->Count; i++) { switch(indexS) { case -1: if (l->Strings[i]==String("@")+key) indexS = i; break; default: if (l->Strings[i]==String("/")+key) { indexF = i; i = l->Count; } break; } } if (indexS !=-1 && indexF!=-1) { TStringList * out = new TStringList(); for (int i=0; i<(indexF-indexS-1); i++) out->Add(l->Strings[indexS+1+i]); return out; } else return 0; }
//--------------------------------------------------------------------------- void TfrmMain::apply(::Move& move) { TStringsEnumerator *e = move.getEffects()->GetEnumerator(); while(e->MoveNext()) { if(e->Current[1] == '!') { Memo5->Lines->Delete(Memo5->Lines->IndexOf(e->Current.SubString(2,e->Current.Length())) ); } else //add something { Memo5->Lines->Add(e->Current); } } TStringList *tmpState = new TStringList(); TStringsEnumerator *eM = Memo5->Lines->GetEnumerator(); while(eM->MoveNext()) { tmpState->Add(eM->Current); } Memo5->Clear(); tmpState->Sort(); Memo5->Lines->AddStrings(tmpState); tmpState->Free(); eM->Free(); }
//--------------------------------------------------------------------------- void TRsyncConfigAdapter::SetParamValue(AnsiString moduleName, AnsiString paramName, AnsiString paramValue){ TModuleHolder* aHolder = GetModuleHolder(moduleName); if(aHolder == NULL){ return; //"Invalid module name"; } TStringList* params = aHolder->nvp; bool newModule = true; for(int i = 0; i < params->Count; i++){ AnsiString oneLine = params->Strings[i]; AnsiString sName, sValue; if(ParseNameValue(oneLine, sName, sValue)){ if(sName == paramName){ params->Strings[i] = " " + paramName + " = " + paramValue; newModule = false; break; } } } if(newModule){ params->Add(" " + paramName + " = " + paramValue); } }
void __fastcall TfrmMain::WMDropFiles(TWMDropFiles& Message) { int Count = DragQueryFile(reinterpret_cast<void*>(Message.Drop), 0xFFFFFFFF, NULL, 0); try { char FileBuf[MAX_PATH+1]; if (Count > 0) { TStringList* FileList = new TStringList(); try { for (int i = 0; i < Count; i++) { DragQueryFile(reinterpret_cast<void*>(Message.Drop), i, FileBuf, sizeof(FileBuf)); FileList->Add(FileBuf); } FileList->Sort(); reSource->Lines->BeginUpdate(); try { reSource->Lines->Clear(); for (int i = 0; i < FileList->Count; i++) reSource->Lines->Add(StringFromFile(FileList->Strings[i])); } __finally { reSource->Lines->EndUpdate(); } } __finally { delete FileList; } } } __finally {
TStringList* __fastcall TYoutubeGrabFormBase::PrepareLinks() { TStringList* result = NULL; try { //Check categories try { this->UploadProperties->CheckCategories(); } catch (UnicodeString msg) { this->UploadProperties->GetCategoryControl()->SetFocus(); throw msg; } //Remove empty lines and trim UnicodeString link; int pos = 0; for (int i = 0; i < this->memLinks->Lines->Count; i++) { link = this->memLinks->Lines->Strings[i].Trim(); if (link.IsEmpty()) { this->memLinks->Lines->Delete(i); i--; continue; } this->memLinks->Lines->Strings[i] = link; } //Check if no links if (this->memLinks->Lines->Count == 0) { this->memLinks->SetFocus(); throw UnicodeString(L"Please provide YouTube links."); } //Extract IDs UnicodeString id; result = new TStringList; for (int i = 0; i < this->memLinks->Lines->Count; i++) { link = this->memLinks->Lines->Strings[i]; id = YT_ExpractID(link); if (id.IsEmpty()) { UnicodeString msg = L"Invalid YouTube link \"" \ + link + L"\".\r\n" \ + L"No YouTube video ID found."; this->memLinks->SetFocus(); this->memLinks->SelStart = pos; this->memLinks->SelLength = memLinks->Lines->Strings[i].Length(); throw msg; } result->Add(id); pos += link.Length()+2; } } catch (UnicodeString msg) { Framework->ShowErrorMessage(msg, this->Caption, true); delete result; return NULL; } return result; }
void __fastcall TfMain::FormClose(TObject *Sender, TCloseAction &Action) { TFile f; TStringList* sl = new(TStringList); for(int i = 0; i < lvLib->Items->Count; i++) sl->Add(lvLib->Items->Item[i]->SubItems->Strings[0] + '=' + lvLib->Items->Item[i]->SubItems->Strings[1] + '/' + lvLib->Items->Item[i]->SubItems->Strings[2]); sl->SaveToFile(ExtractFileDir(Application->ExeName) + "\\Library.lb"); sl->Clear(); sl->Add("Login="******"Pass="******"Pass="******"RememberPass=1"); else sl->Add("RememberPass=0"); sl->Add("Server=" + leServer->Text); sl->SaveToFile(ExtractFileDir(Application->ExeName) + "\\Settings.ini"); sl->~TStringList(); }
Debug::~Debug() { if(ntimes==0) return; if(!debug_on_exit) return; TStringList *L = new TStringList; double elapsed = 1000.0*((double)accumulated_counter.LowPart)/((double)FrequencyCounter.LowPart); double average_elapsed = elapsed / (double) ntimes; L->Add("Number of times called:"+AnsiString(ntimes)); L->Add("Elapsed time msec:"+AnsiString(elapsed)); L->Add("Average elapsed time msec:"+AnsiString(average_elapsed)); L->SaveToFile("c:\\debug.txt"); delete L; }
void __fastcall TForm1::FileSaveAs1Accept(TObject *Sender) { String a = FileSaveAs1->Dialog->FileName; if (a!=""){ // Speichern if (ExtractFileExt(a).UpperCase()!=".AD")a=a.SubString(1,a.Length()-ExtractFileExt(a).Length())+".ad"; TStringList *List = new TStringList(); List->Add(IntToStr(Max)); List->Add(Edit1->Text); for (int i=0;i<Max;i++){ List->Add(ListBox1->Items->Strings[i]); for (int b=0;b<66;b++){ List->Add(IntToStr(Data[i][b])); } } List->SaveToFile(a); } }
//--------------------------------------------------------------------------- TStringList * __fastcall TForm1::Parse(AnsiString str ,AnsiString delimeter) { TStringList *list = new TStringList ; int pos = str.Pos(delimeter); if(pos<=0) { list->Add(str);//no delimeter so only this return list ; } while(pos >0) { AnsiString unit = str.SubString(1,pos-1); str = str.SubString(pos+1,str.Length()-pos); list->Add(unit); pos = str.Pos(delimeter); } return list ; }
bool Defines::AddToList(String key, String data) { TStringList *s = GetList(key); if (s==0) return 0; s->Add(data); SetList(key,s); delete s; return 1; }
void __fastcall TfrmMain::btn_item_saveClick(TObject *Sender) { TStringList *list = new TStringList(); for (int i = 0; i < list_filter->Count; i++) { list->Add((int)list_filter->Items->Objects[i]); } list->SaveToFile(String(LoginerPath) +"\\Data\\"+ GameAccount + "\\Items.dat"); delete list; }
//--------------------------------------------------------------------------- int CTerminalRobotTyper::SendBonusKeys(){ int keysCount =0; //设置并刷新终端监控信息 Bonus *currentBonus =(Bonus *)terminal->currentRequest; TStringList *line =new TStringList(); line->Add(IntToStr(currentBonus->id)); line->Add(currentBonus->seq); line->Add(FloatToStr(currentBonus->bonus/100)); terminal->panel->topLineContent =line; Synchronize(&terminal->panel->FillTopLineContent); delete line; //发送序列码按键 keysCount +=terminal->box->TypeInnerString(terminal->xmlConfig->Keyboard->BobusPrefix); //兑奖按键前缀 //调用动态库函数,生成打印号码的按键序列,不包括最后的确认! char keys[256] ={0}; terminal->GeneralBonusKeyStr(currentBonus->seq, keys); keysCount +=terminal->box->TypeInnerString(AnsiString(keys)); keysCount +=terminal->box->TypeInnerString(terminal->xmlConfig->Keyboard->BobusPostfix); //兑奖按键后缀,体彩是F1打印兑奖回执 return keysCount; }
BOOST_FIXTURE_TEST_CASE(test4, base_fixture_t) { if (1) { TStringList strings; strings.SetOnChange(MAKE_CALLBACK(base_fixture_t::onStringListChange, this)); strings.Add(L"line 1"); // BOOST_CHECK_EQUAL(true, OnChangeNotifyEventTriggered); BOOST_CHECK_EQUAL(true, onStringListChangeTriggered); } }
String TPropertyHandler::GetClassNamesValues(TComponent* comp, String prName) { TObject *subObj = (TObject *)GetOrdProp(comp, prName); if (subObj == NULL) return ""; // In case the prop-value is empty (like Action). /* TObject* subObj is needed to find out if the subprop points to another Component (like ActiveControl). If it is only the value of that property is returned (ie.: "CheckBox1"). If it is a class like Font all of the props+values of comp->Font are returned. */ if (dynamic_cast<TComponent*>(subObj)) { // Find out if subObj points to another Component by casting. return prName + "=" + GetValue((TComponent*)subObj,"Name"); } /* subObj does not point to another Component, but we can convert it to a TComponent* subComp so it can be used te get the subProps+values. This sounds weird but don't forget that a TFont encapsulated in a TForm becomes a descendant of TForm, which is a descendant of TComponent!! */ TComponent* subComp = (TComponent*)subObj; TStringList *tempList = new TStringList; String temp; try { PTypeInfo TypeInfo = (PTypeInfo)subComp->ClassInfo(); PPropInfo* PropList = new TPropList; GetPropInfos(TypeInfo, (PPropList)PropList); tempList->Sorted = true; for (int i=0; i < PropertyCount(subComp); i++) { String subProp = String(PropList[i]->Name); tempList->Add( prName + "." + subProp + "=" + GetPropValue(subComp, subProp, true) ); } delete[] PropList; temp = tempList->Text; // Remove trailing carriage-returns: int cr = temp.LastDelimiter("\r"); if (cr) temp.Delete(cr, 2); } __finally { delete tempList; } return temp; }
void TGlFm::getAllUsersId(TStringList &list) { FDQuery_send_mes->SQL->Text = "SELECT id FROM TBL_USER"; FDQuery_send_mes->Open(); int usersCount = FDQuery_send_mes->RecordCount; for (int k = 0; k < usersCount; k++) { list.Add(FDQuery_send_mes->FieldByName("id")->AsString); FDQuery_send_mes->Next(); } FDQuery_send_mes->Close(); }
TStringList GetListBoxItems(wxListBox *lb) { TStringList Result; if (lb->GetCount() > 0) { for (size_t i = 0; i < lb->GetCount(); i++) { Result.Add(lb->GetString(i)); } } return Result; }
void __fastcall TMainForm::N2Click(TObject *Sender) { TStringList *savetable = new TStringList; if (Save->Execute()) { for (int i = 0; i < Grid1->RowCount; i++) { savetable->Add(Grid1->Rows[i]->DelimitedText); } savetable->SaveToFile(Save->FileName + ".tx1"); Console->Lines->Add("Сохранен файл " + Save->FileName); delete savetable; } }
BOOST_FIXTURE_TEST_CASE(test7, base_fixture_t) { TStringList Lines; Lines.SetSorted(true); if (1) { Lines.SetDuplicates(dupAccept); Lines.Add(L"aaa"); Lines.Add(L"aaa"); Lines.Add(L"bbb"); BOOST_CHECK(3 == Lines.GetCount()); BOOST_CHECK(0 == Lines.IndexOf(L"aaa")); BOOST_CHECK(2 == Lines.IndexOf(L"bbb")); } Lines.Clear(); if (1) { Lines.SetDuplicates(dupIgnore); Lines.Add(L"aaa"); Lines.Add(L"aaa"); Lines.Add(L"bbb"); BOOST_CHECK(2 == Lines.GetCount()); BOOST_CHECK(1 == Lines.IndexOf(L"bbb")); } Lines.Clear(); if (1) { Lines.SetDuplicates(dupError); Lines.Add(L"aaa"); Lines.Add(L"bbb"); BOOST_CHECK_THROW(Lines.Add(L"aaa"), std::exception); } }
TStringList GetFolderList(wxString baseFolder, bool includeFullFolderPath) { TStringList result; wxString FName; wxDir dir(baseFolder); if (dir.GetFirst(&FName,wxEmptyString,wxDIR_DIRS)) { do { if (includeFullFolderPath) { wxString FullDirName = IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(baseFolder) + FName); result.Add(FullDirName); } else { result.Add(FName); } } while(dir.GetNext(&FName)); } return result; }
void __fastcall TForm1::Button3Click(TObject *Sender) { if(Edit1->Text ==""){ ShowMessage("Silahkan isi Nama Pengguna"); return; } if(Edit2->Text ==""){ ShowMessage("Silahkan isi Kata Sandi"); return; } bool ada2 = false; for(int i=0;i<Edit2->Text.Length();i++){ if(Edit2->Text.SubString(i,1)==" "){ ada2 = true; } } if(ada2 == true){ ShowMessage("Space not allowed"); Edit2->SetFocus(); return; } TStringStream * kirim = new TStringStream(); TStringList * lst = new TStringList(); lst->Add("nama="+Edit1->Text); TStringStream * terima = new TStringStream(); TStringStream * terima2 = new TStringStream(); PMasuk->Post("URL/to/check2.php",lst,terima); String hasil = terima->DataString; PMasuk->Disconnect(); lst->Add("pass="******"daftar"){ PMasuk->Post("URL/to/daftar.php",lst,terima2); Form2->Label1->Text = "Tulis sesuatu, "+Edit1->Text; Form2->Show(); ShowMessage("Selamat datang, "+Edit1->Text); }else if(hasil=="masuk"){ ShowMessage("Nama Pengguna kamu sudah terdaftar, silahkan masuk untuk melanjutkan"); } }
void __fastcall TForm1::Button3Click(TObject *Sender) { TStringList *List = new TStringList(); List->Add(Edit1->Text+"_Anz: .db "+IntToStr(Max)+",0"); List->Add(Edit1->Text+":"); for (int i=0;i<Max;i++){ String a = ".db "; for (int b=0;b<64;b++){ if (b%8==0){ a=a+"0b"; } a=a+IntToStr(Data[i][-1+(((int) b/8)+1)*8-b%8]); if (b%8==7){ a=a+","; } } a = a+IntToStr(Data[i][64])+","+IntToStr(Data[i][65]); List->Add(a); } List->SaveToFile(ExtractFilePath(Application->ExeName)+Edit1->Text+".asm"); }
//--------------------------------------------------------------------------- void __fastcall TOptDialog::ReadAntList(void) { AnsiString AntPcvFile_Text=AntPcvFile->Text; TStringList *list; pcvs_t pcvs={0}; char *p; if (!readpcv(AntPcvFile_Text.c_str(),&pcvs)) return; list=new TStringList; list->Add(""); list->Add("*"); for (int i=0;i<pcvs.n;i++) { if (pcvs.pcv[i].sat) continue; if ((p=strchr(pcvs.pcv[i].type,' '))) *p='\0'; if (i>0&&!strcmp(pcvs.pcv[i].type,pcvs.pcv[i-1].type)) continue; list->Add(pcvs.pcv[i].type); } RovAnt->Items=list; RefAnt->Items=list; free(pcvs.pcv); }