Цитата:
|
Сообщение от Bargest
...Но если понадобятся задержки, и как следствие - отдельный поток для передачи, то пользователь может успеть случайно изменить введенное в Edit5 после того, как началась отправка и прошел, к примеру, Edit2. Тогда переданная инфа будет неверна. Я бы не стал так делать, учитывая поведение современных пользователей и закон Мерфи.  |
Код:
for i := 1 to 5 do
(FindComponent('Edit'+IntToStr(i)) as TEdit).Enabled:= false;
...
..
.
for i := 1 to 5 do
(FindComponent('Edit'+IntToStr(i)) as TEdit).Enabled:= true; 
По теме:
А если сделать так (оформить в отдельную процедуру)
Код:
procedure TForm1.psl(ds: array of AnsiString);
var
i,j: integer;
begin
for i := Low(ds) to High(ds) do
if ds[i]<>'' then for j := 1 to Length(ds[i]) do idtelnet1.sendch(ds[i][j]);
end;
и вызывать в коде
Код:
var
com: array [0..16] of AnsiStirng;
begin
com[1]:= 'command1';
com[2]:= 'command15';
com[4]:= 'command9';
com[5]:= 'command4';
com[7]:= 'command3';
psl(com);
end;
то тогда можно заполнять коммандами любые ячейки массива, не важно где и сколько, пустые будут пропускаться.