ComboBox'da seçili texti almak

[ozcank]

Arkadaşlar ComboBox içinde NAKIT,CEK,SENET YAZILI ben bunlara göre işlem yapmak istiyorum şöyle bir kod yazdım ama olmadı yardım ederseniz sevinirim.

Kod: Tümünü seç

procedure TForm7.ComboBox1Change(Sender: TObject);
begin
If ComboBox1.Items:='NAKIT' Then
Begin
ShowMessage('Nakıt');
end;
end;

[mahmut]

Yaptıgınişlem doğru fakat bit tana : fazladan koymussun

Kod: Tümünü seç

procedure TForm7.ComboBox1Change(Sender: TObject); 
begin 
If ComboBox1.Items='NAKIT' Then 
Begin 
ShowMessage('Nakıt'); 
end; 
end; 

işini görebileceği gibi aynı kodu combobox çıkışınada koyabilirsin
iyi çalışmalar

[rsimsek]

Doğru kullanım aşağıdaki gibi olmalı

Kod: Tümünü seç

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
//if ComboBox1.Items[Combobox1.ItemIndex] = 'NAKIT' then
  showmessage(ComboBox1.Items[Combobox1.ItemIndex]);
end;

[aslangeri]

s.a.
peki şöyle desek nasıl olur.

Kod: Tümünü seç

.....
combobox.text='NAKİT'
.....

kolay gelsin.

[fduman]

Öyle daha kolay olur @aslangeri

Bu arada @mahmut ve @ozcank'nın acilen TStringList dersi alması gerekli.

[fduman]

Başlığı daha anlaşılır bir cümle ile değiştirdim. Lütfen başlıklarda ilgi çekmek için ünlem kullanma @ozcank. Çok rahatsız edici.

[tuanna]

ya aslında pek yeri değilde

arkadaşlar forumlara lütfen resimlerininzi koymayınız.... biliyorsun bu resimleri alıp sahte arakadaşlık sitesinde kullanacak kadar karaktersiz....forum kurallarından ve bana verilen terbiyeden sadece bu kadar diyebiliyorum...
insanlar var...

[fduman]

Haklısın. Hiç aklıma gelmedi. Kaldırayım.