Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Подскажите как сделать чтобы в ComboBox се отбражалось одн   Найти похожие ветки 

 
ceval   (2004-05-19 20:39) [0]

Добрый вечер  всем!!
Подскажите как сделать чтобы в ComboBox"се отбражалось одно
в программе использывалось другое например:
есть таблица с полем "sisk"  что бы в ComboBox"се отбражалось
названия  "Код" а при поиске  бралось бы значения "sisk" ??

Большое спасибо!


 
begin...end ©   (2004-05-19 20:40) [1]

Хороший вопрос.


 
Vlad ©   (2004-05-19 20:55) [2]

Если я правильно понял, нужно в выпадающем списке показывать одни значения, а им в соответствии хранить другие ?
Если это так, то используйте метод TStrings.AddObject, где в качестве объекта и добавляйте латинские названия.


 
wicked ©   (2004-05-19 20:56) [3]

например, через св-во ItemIndex...
но при этом порядок следования значений поля "Код" должно совпадать с порядком следования значений поля "sisk"...


 
Anatoly Podgoretsky ©   (2004-05-19 20:56) [4]

if A = "Код" then A := "sisk"


 
Гаврила ©   (2004-05-20 01:17) [5]

Да лучше уж через Objects
правильнее это
см [2]


 
ceval   (2004-05-28 12:47) [6]

VLAD ты правельно все понял
Если не сложна как использывать метод TStrings.AddObject
или какой небудь пример
Зарания благодарин!


 
Anatoly Podgoretsky ©   (2004-05-28 13:35) [7]

А пример в справке чем не устаивает, достаточно подробный?


 
Stone777 ©   (2004-05-28 13:51) [8]


> if A = "Код" then A := "sisk"

А если таких записей 100? что Вы собираетесь писать?

Если сопоставлять нужно текстовые данные то вместо AddObject можно воспользоваться просто ADD
например так:
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
t.Clear;
for i:=1 to 3 do begin
t.Add(s[i]);
end;
end;
Если нужно связать данные с какими-либо объектами, то
AddObject в качестве параметров передается строка и связанный с ним объект


 
Миссяй   (2004-05-28 17:18) [9]

тебе это поможет...
format c:


 
ceval   (2004-05-31 20:52) [10]

Спасибо Миссяй за нужный совет воспользуйся ты им сам
А а если по теме напишите какой небудь примерTStrings.AddObject,а то немогу разобраться
Спасибо!!!!!!


 
ceval   (2004-06-01 09:05) [11]

АУ кто-нибудь напишите пример я то не могу разобраться!!??


 
Семен Сорокин ©   (2004-06-01 09:15) [12]

2ceval
type
 PTmp = ^TTmp
 TTmp = record
         str : string;
         code: string;
        end;
...
var
 _p: PTmp;

...
ComboBox1.Clear;

New(_p);
_p^.str := "Российская Федерация";
_p^.code := "RU";
ComboBox1.AddItem(_p^.str, TObject(_p));

New(_p);
_p^.str := "Великобритания";
_p^.code := "GB";
ComboBox1.AddItem(_p^.str, TObject(_p));

// взять код выбранной страны
... := PTmp(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^.code;

// незабыть убить данные

for _i := 0 to ComboBox1.Count-1 do
Dispose(PTmp(ComboBox1.Items.Objects[_i]));


зы. Что-то добрый я с утра :)



Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.083 c
1-1085381152
Дмитрий 2004
2004-05-24 10:45
2004.06.13
Вертикальный QRlabel


3-1084813754
loser
2004-05-17 21:09
2004.06.13
Что такое index is out of date


1-1085910407
Aleksoza
2004-05-30 13:46
2004.06.13
NewComponent


3-1085395105
Alex_xxx
2004-05-24 14:38
2004.06.13
ADO, драйвер по умолчанию


6-1082546678
pavel_guzhanov
2004-04-21 15:24
2004.06.13
Можно ли с остановить и снова стартовать программу с удаленного к