оптимизация кода программы

[romanln2012]

КОД:

for i := 1 to length(end_ch) do begin
if end_ch[i] = '1' then edit1.Text:=edit1.Text +'1';
if end_ch[i] = '2' then edit2.Text:=edit2.Text +'2';
if end_ch[i] = '3' then edit3.Text:=edit3.Text +'3';
if end_ch[i] = '4' then edit4.Text:=edit4.Text +'4';
if end_ch[i] = '5' then edit5.Text:=edit5.Text +'5';
if end_ch[i] = '6' then edit6.Text:=edit6.Text +'6';
if end_ch[i] = '7' then edit7.Text:=edit7.Text +'7';
if end_ch[i] = '8' then edit8.Text:=edit8.Text +'8';
if end_ch[i] = '9' then edit9.Text:=edit9.Text +'9';
end;

возможно как то сократить?

[artemavd]

А чем это не устраивает?)

[romanln2012]

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

А чем это не устраивает?)

Преподаватель не любит когда много однотипных повторений)

[BDA]

var
   edit: TComponent;
 ...
for i := 1 to length(end_ch) do begin
if end_ch[i] in ['1'..'9'] then 
begin
edit:=findcomponent('edit'+end_ch[i]);
if edit<>nil then
	tedit(edit).text:=tedit(edit).text+end_ch[i];
end;

Хотя лучше создать массив эдитов, которые будут автоматически генерироваться при запуске формы, и тогда к ним легко можно будет обращаться.

[evg_m]

case end_ch[i] of
'1':  edit1.Text:=edit1.Text +'1';
'2':  edit2.Text:=edit2.Text +'2';
'3':  edit3.Text:=edit3.Text +'3';
'4':  edit4.Text:=edit4.Text +'4';
'5':  edit5.Text:=edit5.Text +'5';
'6':  edit6.Text:=edit6.Text +'6';
'7':  edit7.Text:=edit7.Text +'7';
'8':  edit8.Text:=edit8.Text +'8';
'9':  edit9.Text:=edit9.Text +'9';
end;

[3D Hunter]

for i := 1 to Length(end_ch) do
  if end_ch[i] in ['1' .. '9'] then
    with TEdit(FindComponent('edit'+end_ch[i]) do Text := Text + end_ch[i];

[Utkin]

romanln2012, между прочим Ваш код оптимальней всех представленных. Хоть он и китайский, но в данном случае наилучший. Ну если только код от evg_m, более лаконичен.

[3D Hunter]

С точки зрения процессора - да С точки зрения ТС и любого человека - нет ТС наверное имел в виду второе все же.