我對程序和函數不熟我研究到現在還是不太清楚的是 procedure aaa(x,y:integer); begin if x>y then begin showmessage('test'); end else begin showessage('error'); end end; procedure TForm1.Button1Click(Sender: TObject); begin aaa(1,2); end; 以上是使用整數型態的那麼以下是 procedure aaa(s:string); begin s:='1234'; end; procedure TForm1.Button1Click(Sender: TObject); begin //在此我怎麼呼叫以上的程序呢??? end;

你好： 你要問如何利用程序取得傳回值嗎宣告為傳址的參數既可。 < class="code">procedure aaa(var s:string); begin s:='1234'; end;

sun_chih_yen 你好:    

引言: procedure TForm1.Button1Click(Sender: TObject); begin //在此我怎麼呼叫以上的程序呢??? aaa(1,2); aaa('ko'); end;

先宣告 private { Private declarations } procedure ChangPath(Path :String); ... ... procedure TForm1.ChangPath(Path :String); begin //寫程式 end; .. ... .... procedure TForm1.DirectoryListBox1Change(Sender: TObject); begin //使用函數 ChangPath(DirectoryListBox1.Directory); end;

以下是我的程式碼還是有錯...到底我是錯在那裡呢??? procedure aaa(var s:string); //定義aaa程序 begin s:='123'; showmessage(s); end; procedure TForm1.FormCreate(Sender: TObject); begin aaa; //呼叫aaa程序 end; end.

你好： 搞不清楚您的問題耶你是要問怎麼呼叫程序嗎? 就是直接呼叫並給齊參數既可呀。 如下 < class="code"> procedure aaa(s:string); //定義aaa程序 begin showmessage(s); end; procedure TForm1.FormCreate(Sender: TObject); begin aaa ('< >大豬豬愛小豬豬< >'); end; 如果不是請您詳述一下遭遇的問題好嗎 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

感謝ha0009我終於可以了我的問題是要問怎麼呼叫程序因為我沒有什麼概念感謝您細心教導