Цитата:
|
Сообщение от dr. F.I.N.
Код:
procedure Tfm_main.N13Click(Sender: TObject);
var
a: string;
begin
a := fm_main.MyQ.FieldByName('remote_switch_id').AsString;
WinExec (('ping 10.100.10.' + a), SW_SHOW);
end; |
[DCC Error] Unit1.pas(191): E2010 Incompatible types: 'string' and 'PAnsiChar'