combobox و باز گرداندن مقدار در edit

[moohssenn]

سلام
من یک کمبو باکس رو فرمم گذاشتم و این کمبو باکس را از یه جدول دیگه پر کردم . در موقع ذخیره کردن در جدول اصلی بانک اطلاعاتی متن هر آیتم رو در فیلد مربوطه ریختم به صورت زیر :


AdoTabel1.FieldByName('Name').AsString:=ComboBox1. Items[ComboBox1.ItemIndex];
اما الان مشکلم توی edit کردن هستش . میخواستم بدونم چطوری combobox مربوطه رو طوری در ویرایش نشون بدم که بره روی مقداری که تو فیلد مربوطه ذخیره شده و اونو select بکنه ؟

[SYNDROME]

با سلام
از تابع زیر استفاده کنید.


Function FindItemComboBox(ComboBox :TComboBox; TextSearch:String):Integer;
var
i:integer;
begin
FindItemComboBox:=-1;
For i:=0 To ComboBox.Items.Count-1 Do
Begin
IF (ComboBox.Items.Strings[i] = TextSearch) Then
Begin
FindItemComboBox := i;
Break;
End;
End;
end;

نحوه استفاده از تابع بالا به شکل زیر است.


ComboBox1.ItemIndex := FindItemComboBox(ComboBox1 , 'SYNDROME');

مقدار رشته "SYNDROME" یکی از Itemهای ComboBox می باشد.
موفق باشید