一下是代码:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('mstsc.exe d:\Default.rdp /v:'+edit1.text+'',1); \\这里是提示出错的那一行!
end;end;end.我是想一按按钮就调用MSTSC.EXE这个程序,并且执行他后面的参数。在/V:后面调用edit1.text。但是
一运行就出那个提示incompatible type:'string'and'pointer'
我在网上也找了相关的解决办法,但是看不懂。呵呵~请大家帮帮忙!谢谢!

解决方案 »

  1.   

    winexec(PChar('mstsc.exe   d:\Default.rdp   /v:'+edit1.text+''),1);
      

  2.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        GroupBox1: TGroupBox;
        Button1: TButton;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        Edit1: TEdit;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
    winexec(Pchar('mstsc.exe d:\Default.rdp /v:'+edit1.text+''),1);
    end;end;\\在这里出现错误!end.改成这样了以后,一运行在上面的END又出现了另一个错误!
    【error】Unit1.pas[37]:'.'expected but '.'found
    这是什么错误啊?怎么解决啊?
      

  3.   

    呵呵,不好意思:)
    请教一下,为什么winexec(Pchar('mstsc.exe   d:\Default.rdp   /v:'+edit1.text+''),1); 
    这行里加入一个PCHAR就可以执行了?还有我不光要删除您说是多余的那行,还要删除上面的procedure Edit1Change(Sender: TObject);这行
    才行?
    我是自学DELPHI,以前也没接触过别的语言~~呵呵~~谢谢!!
      

  4.   

    第一,传入参数类型问题,第二,那个事件你没有实现所以必需删除,还有个办法就是去实现这个事件的响应~事件的意思是:当Edit1中的内容改变时...
    偶也是新生,如果说错了请见谅... -_-
      

  5.   

    建议学习语言基础,例如object pascal,否则,你只能把的delphi当玩具使用了。而且你会很累,直到你放弃。
      

  6.   

    我现在也在看pascal~
    我想边学边实践~这样能记得住啊!呵呵~~
    我翻译了一下这个出错的句子incompatible   type:'string'and'pointer' 
    好像是说不兼容的类型是不是啊?
    那看上面的代码他说的什么和什么不兼容啊?
    那那个Pchar起的什么作用啊?
    呵呵~~
      

  7.   

    像这种系统的函数,要学会使用delphi自己带的帮助。最便捷的办法,把光标点到那个函数名上,点击F1,直接就能蹦出一个框让你来选择你要看的函数的帮助。你调用的函数的第一个参数需要的是一个字符指针型的变量,加一个pchar就能把一个字符串转化成字符指针。越是初学就越要学会使用帮助文档,这是学习编程的重要途径
      

  8.   

    帮助里全是英文啊!看了就头疼~呵呵~~
    谢谢大家!
    我也在努力学习DELPHI!
    谢谢老猪哼哼 Flyfish Rjahty大漠 LYSoft 秀峰!!