Ещё привлекло внимание вот это место,
Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
cmd:string;
begin
memo1.Clear;
if idtelnet1.Connected then begin cmd:='logout' + #13; for i:=1 to length(cmd) do idtelnet1.SendCh(cmd[i]); end;
if combobox1.ItemIndex = 0 then begin memo1.Lines.Add('telnet 10.244.00.02'); serv:='10.244.00.02'; end; //if
... здесь было много-много оборудования
if combobox1.ItemIndex = 163 then begin memo1.Lines.Add('telnet 10.244.00.03 '); serv:='10.244.0.03'; end;
idtelnet1.Host:=serv;
end; можно переделать, особенно
Цитата:
|
... здесь было много-много оборудования
|
прям просится здесь подсократить, если не трудно, можно полную версию процедуры показать, или здесь или в личку.