var
Str:TStringList;
begin
Str:=TStringList.Create;
...
Edit1.Text:=Str.Strings[ComboBox1.ItemIndex];
...
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).