請問這是什麼訊息框 |
答題得分者是: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;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |