請問怎樣在一個pascal program 內call 另一個pascal program?

不太来了解您的意思； 如果是两个不同的unit来互相调用函数的话，那么就uses 这个单元就可以了; 然后直接调用uses 那个单元中的共享的函数就ok了！ 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

我的意思是: 這兩個program 是在兩個不同的files 中

两个不同的文件Unit1.pas  Unit2.pas 分别存放unit1 unit2

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation

uses unit2;    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin    showme;    end;    procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show;//调用form2窗体并显示出来
end;    end.

unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public        { Public declarations }
  end;    var
  Form2: TForm2;
procedure showme;
implementation    {$R *.dfm}

procedure showme;
begin
showmessage('i am form2');
end;    end.

發表人 - sos_admin 於 2004/09/12 17:56:55