RadioGroup veri adına göre id öğrenme

furkancanoz

Merhabalar, projem gereği karakterleri tuttuğum, karakter_id ve karakter_ad olarak bir tablom ve bu verileri çekip atadığım karakterListAd ve karakterListId adında iki adet TStringList'lerim var.
Bu karakterListAd'daki listeyi TRadioGroup'un Itemlerine atıyorum ama TRadioGroup'ta Values değeri olmadığı için id listesini Values'e atayamıyorum.
Her şeyi SQL kodları ile kayıt ettiğim için Data Controls (DBRadioGroup) elemanlarını kullanmıyorum. TRadioGroup ile aynı DbRadioGroup'ta olduğu gibi Items ve Values özelliğini nasıl kullanabilirim. Yani yapmak istediğim şey şu; TRadioGroupta görünen Items'lara tıklandığında seçili verinin id sini bir değişkende tutacağım. Mesela TRadioGroupta "Furkan" Seçildi, Kayıt et Butonuna tıkladığım zaman furkan'ın veritabanından id'sini alacak. Bunu nasıl yapabilirim?

Halil Han BADEM

furkancanoz Merhaba,
bunun için RadioButton1.Hint property özelliğini kullanabilirsiniz.
Örneğin:
RadioButton1.Hint := IntToStr(Query.FieldByName('id').AsInteger);
şeklinde kullanabilirsin.

furkancanoz

Halil Han BADEM Bunu RadioGroup'un OnClick eventine mi yazmam gerekiyor hocam? Oraya yazdığımda hep 1 gösteriyor.

procedure TForm3.RadioGroup2Click(Sender: TObject); begin RadioGroup2.Hint := IntToStr(FDQuery1.FieldByName('karakter_id').AsInteger); ShowMessage(RadioGroup2.Hint); end;

Halil Han BADEM

furkancanoz Hayır, hangi radiobuton nesnesini kullanmak istiyorsan ona yazman gerekiyor.


RadioButton1.Caption := 'Furkan';
RadioButton1.Hint := '1';

RadioButton2.Caption := 'Halil Han';
RadioButton2.Hint := '2';

Tek tek kayıtları eklemek istiyorsan for döngüsü ile kolayca halledebilirsin.

bydelphi

bence 2 stringliste gerek yok.
şöyle birşey deneyebilirsin.
id leri tstringlist nesnene object olarak ekleyip kullanabilirsin.

procedure TfMain.Button1Click(Sender: TObject);
var liste : TStrings;
ad :string;
id:integer;
begin

try

   liste := TStringList.Create;

   liste.AddObject('ali'  , TObject(1)  );
   liste.AddObject('veli' , TObject(2)  );
   liste.AddObject('can'  , TObject(3)  );

   ad := liste.Strings[2];
   id := integer(liste.Objects[2]);

   ShowMessage(ad + '  ' + IntToStr(id));

finally
  FreeAndNil(liste);
end;

end;