Tak wygląda zapis (który działa wartości są poprawnie zapisane)
- Kod: Zaznacz cały
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->ShowModal();
ComboBox1->Items->Add(nowi[i].c_str()); // dodanie do comboboxa
AnsiString nazwaPliku = ExtractFilePath( Application->ExeName ) + "Ustawienia.ini";
TIniFile *Ini = new TIniFile(nazwaPliku);
Ini->WriteInteger("Uzytkownicy", "ilu", i);
Ini->WriteString("Uzytkownicy", " user"+IntToStr(i), nowi[i].c_str());
i++;
delete Ini;
}
A tak odczyt i tu już nie moge odczytać wartości
- Kod: Zaznacz cały
void __fastcall TForm1::FormShow(TObject *Sender)
{
AnsiString nazwaPliku = ExtractFilePath( Application->ExeName ) + "Ustawienia.ini";
// odczyt comboboxa z pliku ini
TIniFile *Ini = new TIniFile("Ustawienia.ini");
i=Ini->ReadInteger("Uzytkownicy", "ilu", 1) ;
Label3->Caption=i ; //sprawdzenie ile wynosi i (błąd, zawsze pokazuje zero)
for (i;i>0;i--)
{
Label3->Caption=i;
ComboBox1->Items->Add (Ini->ReadString("Uzytkownicy", "user"+i, "error"));
}
i=1;
delete Ini;
}
i to zmienna typu integer a nowi[i] to tablica 10 elementowa typu string.
Jakieś propozycje co źle zrobiłem?