Ну как дети малые, чесное слово.
Код:
procedure Tfm_main.N13Click(Sender: TObject);
var a: string;
b: string;
c: string;
begin
a:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;
b:='10.100.10.';
c:= b+a;
showmessage(c);
WinExec (('ping ' + PChar(c)), SW_SHOW);
//WinExec (('ping ' + '10.100.10.15'), SW_SHOW);
end; |