[gebs]

Здравствуйте.

Есть процедура:

Код:

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 ' + 'c'), SW_SHOW);
//WinExec (('ping ' + '10.100.10.15'), SW_SHOW);
end;

showmessage возвращает - 10.100.10.15

Как заставить работать команду пинг с переменной c
Спасибо.

[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;

[gebs]

Сообщение от 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'

[Aristarh Dark]

Ну как дети малые, чесное слово.

Код:

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;

[gebs]

Сообщение от Aristarh Dark

Ну как дети малые, чесное слово.

Код:

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;

Выдаёт туже ошибку, что и выше указана. Компилятор - D2009

[NumLock]

Код:

WinExec (('ping ' + PAnsiChar(c)), SW_SHOW);