Здесь массива нет совсем, имелось ввиду наверное это
Код:
var
com: array[1..5] of string;
//Заполнение массива
...
com[1]:= edit4.Text;
com[2]:= edit4.Text;
com[3]:= edit4.Text;
com[4]:= edit4.Text;
com[5]:= edit4.Text;
...
...
// или
for i := 1 to 5 do com[i]:= edit4.Text;
...
но зачем лишняя прокладка посредством массива, когда можно так
Код:
var
com: string;
begin
com:=
edit4.Text + ' ' +
edit4.Text + ' ' +
edit4.Text + ' ' +
edit4.Text + ' ' +
edit4.Text;
for i := 1 to Length(com) do idtelnet1.sendch(com[i]);
end;
// или сразу вот это
...
var
s: string;
i,j: integer;
begin
for i := 1 to 5 do
begin
// на форме лежат 5 едитов с именем Edit1..Edit5
s:= (FindComponent('Edit'+IntToStr(i)) as TEdit).Text;
for j:=1 to Length(s) do idtelnet1.sendch(s[j]);
end;
end;