combobox

[berfilm]

Я новичок. как реализовать в комбобох выбирается страна( открывается список стран) как выбрали нужную страну, открываются все регионы из этой страны, как выбрали регион , выпадает список городов, как это реализовать на делфи?

[mMAg]

Заполни комбобокс по умолчанию странами. После выборастраны удали все записи в нем и заполни названиями соответствующих регионов и т.д. Поле Items и его методы в помощь

[uberchel]

С начала опишите, откуда грузится то будет из текстового или еще откуда и отдельно будут располагаться файлы стран, регионов, городов ?

[russian-stalker]

var
  Form1: TForm1;
country:array[0..2] of string;
obl:array[0..2] of string;
city:array[0..2] of string;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text=country[0] then
begin
combobox2.Items.Add(obl[0]);
end else
if combobox1.Text=country[1] then
begin
combobox2.Items.Add(obl[1]);
end else
if combobox1.Text=country[2] then
begin
combobox2.Items.Add(obl[2]);
end else
begin
combobox2.Text:='';
combobox2.Items.Clear;
combobox3.Text:='';
combobox3.Clear;
end;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if combobox2.Text=obl[0] then
begin
combobox3.Items.Add(city[0]);
end else
if combobox2.Text=obl[1] then
begin
combobox3.Items.Add(city[1]);
end else
if combobox2.Text=obl[2] then
begin
combobox3.Items.Add(city[2]);
end else
begin
combobox3.Text:='';
combobox3.Clear;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
country[0]:='Страна 1';
country[1]:='Страна 2';
country[2]:='Страна 3';
obl[0]:='Область 1';
obl[1]:='Область 2';
obl[2]:='Область 3';
city[0]:='Город 1';
city[1]:='Город 2';
city[2]:='Город 3';
for I := 0 to 2 do
combobox1.Items.Add(country[i]);
end;

Ох-ох-ох. Замучился писать.