Txt den Combobox veri çekme

[brs]

Selam,

"Ayarlar.ini" Txt den veri çekmek istediğimde edit veya captiona veri geliyor fakat verileri Comboboxa cekmek istediğimde veri gelmiyor

Kod: Tümünü seç

procedure TForm3.FormShow(Sender: TObject);
var
  Oku: TIniFile; // Uses IniFiles ekle
begin
  try
    Oku := TIniFile.Create('C:\Ayarlar.ini');

  Caption := Oku.ReadString('Ayarlar', 'Kelime', '');

  Combobox1.Text := Oku.ReadString('Ayarlar', 'Kelime', '');

    Oku.Free;
  except
    Application.MessageBox('Veri Bilgilerini Alma Sırasında Hata Oluştu!',
      'Uyarı!', MB_Ok or MB_ICONQUESTION);
  end;
end;

[barisatalay]

Selamlar comboboxun texini kaydetmek yerine .itemIndex'ini TIni içerisine kayıt ettirirseniz istediğinizi yapabilirsiniz.

[brs]

Selamlar comboboxun texini kaydetmek yerine .itemIndex'ini TIni içerisine kayıt ettirirseniz istediğinizi yapabilirsiniz.

Teşekkür ederim Denemiştim
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Oku.ReadString('Ayarlar', 'Kelime', ''));

[barisatalay]

Combobox1.itemindex := oku.readinteger('Ayalar','kelimeindex',-1);

Bunu kastedmiştim

[brs]

Combobox1.itemindex := oku.readinteger('Ayalar','kelimeindex',-1);

Bunu kastedmiştim

Kod: Tümünü seç

ReadString alan readinteger

yapınca hata veriyor

[barisatalay]

Bilgisayarınızı ben kullanmadıgım için hata mesajını bilmeden yorum yapamam

[brs]

[mrmarman]

Bize ilgili Combox'taki Items.TEXT içeriğini yazar mısın ... Örnek hazırlayıp ortak paydada buluşalım... Suya yazı yazmayalım.

[brs]

CobboBox style özelliğini csDropDownList yapınca veri çekmiyor fakat Style özelliğini csDropDown yapınca sorun yok?

Kod: Tümünü seç

procedure TForm3.KaydetClick(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('C:\Ayarlar.ini');
  Ini.WriteString('Ayarlar', 'Kelime', ComboBox1.Text);
  Ini.WriteString('Ayarlar', 'Turkce', ComboBox2.Text);
  Ini.Free;
end;

procedure TForm3.FormShow(Sender: TObject);
var
  Oku: TIniFile; // Uses IniFiles ekle
begin
  Oku := TIniFile.Create('C:\Ayarlar.ini');
  ComboBox1.Text := Oku.ReadString('Ayarlar', 'Kelime', '');
  ComboBox2.Text := Oku.ReadString('Ayarlar', 'Turkce', '');

  ComboBox3.ItemIndex := ComboBox3.Items.IndexOf(Oku.ReadString('Ayarlar', 'Turkce', ''));
  Oku.Free;
end;

[mrmarman]

Şimdi iki konu var.

1. INI dosyasından neyi neden çektiğini anlamadım. Bu şu aşamada önemsiz.

2.ComboBox'un Style özelliği DropDownList olursa, Listede yoksa görüntüleme yapamazsın çünkü bu yasaktır. Bunu yapabilmen için aşağıdaki şekilde kurgulaman gerekir.
(a) Listede yoksa eklersin
(b) IndexOf ile listedeki yoksa bile sonradan eklenmiş olana odaklanırsın.

Şimdi bunun üzerinden denemelerini yapabilirsin.

Örnek :

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
var
  Oku: TIniFile; // Uses IniFiles ekle
  strDeger : String;
begin
  Oku := TIniFile.Create('C:\Ayarlar.ini');
  ComboBox1.Text := Oku.ReadString('Ayarlar', 'Kelime', '');
  ComboBox2.Text := Oku.ReadString('Ayarlar', 'Turkce', '');

  ComboBox3.Style := csDropDownList;
  //Değeri okuduk.
  strDeger := Oku.ReadString('Ayarlar', 'Turkce', '');
  //ComboBox içerisinde var mı kontrol ettik, yoksa ekledik.
  if ComboBox3.Items.IndexOf(strDeger) < 0
    then ComboBox3.Items.Add( strDeger );
  //Artık var olan değere odaklandık.
  ComboBox3.ItemIndex := ComboBox3.Items.IndexOf(strDeger);

  Oku.Free;
end;

[brs]

Elinize Sağlık