請問這是什麼訊息框 |
|
答題得分者是：l630521
|
|
nickcgh6
一般會員   發表：37 回覆：11 積分：9 註冊：2004-07-23 發送簡訊給我 |
|
|
kgt
高階會員  發表：17 回覆：308 積分：165 註冊：2002-03-13 發送簡訊給我 |
|
|
l630521
資深會員 發表：15 回覆：349 積分：372 註冊：2003-02-17 發送簡訊給我 |
|
|
nickcgh6
一般會員 發表：37 回覆：11 積分：9 註冊：2004-07-23 發送簡訊給我 |
|
|
l630521
資深會員 發表：15 回覆：349 積分：372 註冊：2003-02-17 發送簡訊給我 |
|
|
nickcgh6
一般會員 發表：37 回覆：11 積分：9 註冊：2004-07-23 發送簡訊給我 |
我在com那端是有三個變數，其中一個是傳回來的k
那邊的程式只有 k:=i j;
我ap端這是在edit輸入二個值讓com去做運算 顯示訊息結果
可是我怎麼檢查都沒有問題啊，有人可以解答我嗎？
com:
procedure Tnxu.Method1(i,j: Integer; var k: OleVariant); begin
k:=i j;
end; ap:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,k:integer;
begin
socketConnection1.Connected:=true;
a:=(StrToInt(edit1.Text));
b:=(StrToInt(edit2.Text));
SocketConnection1.AppServer.method1(5,6,k);
showmessage(IntToStr(k));
end;
|
|
l630521
資深會員 發表：15 回覆：349 積分：372 註冊：2003-02-17 發送簡訊給我 |
引言: 我在com那端是有三個變數，其中一個是傳回來的k 那邊的程式只有 k:=i j; 我ap端這是在edit輸入二個值讓com去做運算 顯示訊息結果 可是我怎麼檢查都沒有問題啊，有人可以解答我嗎？ com: procedure Tnxu.Method1(i,j: Integer; var k: OleVariant); begin k:=i j; end; ap: procedure TForm1.Button1Click(Sender: TObject); var a,b,k:integer; begin socketConnection1.Connected:=true; a:=(StrToInt(edit1.Text)); b:=(StrToInt(edit2.Text)); SocketConnection1.AppServer.method1(5,6,k); showmessage(IntToStr(k)); end; procedure TForm1.Button1Click(Sender: TObject); var a,b: Integer k: Variant; begin socketConnection1.Connected:=true; a:=(StrToInt(edit1.Text)); b:=(StrToInt(edit2.Text)); SocketConnection1.AppServer.method1(5,6,k); showmessage(IntToStr(k)); end;請將k設成Variant試看看！ Ian |
|
kgt
高階會員 發表：17 回覆：308 積分：165 註冊：2002-03-13 發送簡訊給我 |
com:
procedure Tnxu.Method1(i,j: Integer; var k: integer); begin
k:=i j;
end; ap:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,k:integer;
begin
socketConnection1.Connected:=true;
a:=(StrToInt(edit1.Text));
b:=(StrToInt(edit2.Text));
SocketConnection1.AppServer.method1(5,6,k);
showmessage(IntToStr(k));
end;
|
發表時間：2005-11-24 02:57:50
IP:219.81.xxx.xxx 未訂閱
系統時間：2024-04-20 18:48:23
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |