ComboBox OnSelect

[Random(1)]

Привет друзья! У меня вопрос:

У меня в программе стоит один combobox (style - csDropDown)

В нем items номера: Например: 0503333333, 0514444444 и тогда ли...

Я написал код, когда выбираю один из них, программа автоматически игнорировает первие 3 цифри. То есть onSelect, написал в combobox1.text не "0503333333", а "3333333"

код:

uses ...,strutils;
...
procedure TForm1.combobox1Select(Sender: TObject);
begin
combobox1.text:=ansimidstr(combobox 1.text,4,8);
end;

Дело в том что, не работает Если добавить edit, и заменить на

edit1.text:=ansimidstr(combobox1.text,4,8);

Тогда сработает.
Даже на onchange пробовал, тоже самое. Что мне делать в этом случае?

П.С Данный пример можно и увидеть в МАгент, Логин маил combobox...

Жду советы друзья

[SERG1980]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
combobox1.Items[combobox1.ItemIndex]:=ansimidstr(combobox 1.text,4,8);
end;

[Marsel737]

Random(1), вот это для чего нужно?

ansimidstr(combobox1.text,4,8);

И вообще чтоб выбирать пункты комбобокса ничё писать не нужно, они сами выбираются, просто киньте на форму новый комбобокс, добавьте в негоо итемы и попробуйте сделать то что хотели, если я конечно правильно понял суть вашей проблемы

[Random(1)]

Сообщение от SERG1980

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
combobox1.Items[combobox1.ItemIndex]:=ansimidstr(combobox1.text,4,8);
end;

Sergi,, спасибо за код. Но оно только меняет данный в items. А мне нужно чтобы цифры менялись только в combobox1.text


Marsel737, мне нужно вот например я выбираю 0554443322 после select в combobox1.text было написано не 0554443322 а 4443322 (без 055, без первых 3х цифрах). В items не надо не чего менять

[mihali4]

Timer1.Interval:=50;
ComboBox1.Style:=csDropDown;
...
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Application.ProcessMessages;
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
ComboBox1.Text:=Copy(combobox1.text,4,8);
Application.ProcessMessages;
end;

[Random(1)]

Клевий вариант, спасибо mihali4. Отлично работает, спасибо
большое