在delphi中如何实现 按下一个按纽 两个函数同时执行

您好,

您的問題好像沒真的問出來,
單就您問題的字面意思回答如下:

procedure tform1.button1click(sender :...);
var astr : string;
begin
astr := function1(...);
astr := function2(...);
// 不管多少個都可以吧
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

他的問題很難
正確來說是沒可能?!(怎可能真真正正控制cpu同時執行事情呢?)
他的要求是一個procedure同步執行兩個函數

我只知道可以設定2個timer來同步執行

編輯記錄

就是希望有两个函数或过程同步执行,而且是在同一个FORM里面
设定timer?能说说具体代码怎样实现吗?

同時執行嗎？
使用Thread應該就行了吧＠＠？
（雖然我對Thread不熟...）

看不明白你的问题。

你能不能把你要做到什么效果描述清楚一点？你所谓的【同步执行】是什么意思？

===================引 用 keykill 文 章===================
就是希望有两个函数或过程同步执行,而且是在同一个FORM里面
设定timer?能说说具体代码怎样实现吗?

即便是Thread 也不能真正同時執行啊...只能夠很近似同時而已, 這是把獨立事件丟給系統自己分配進度,底下是個小實驗,一個form放三個button
ktop中有很多討論thread理論的文章,可以看一下理論,寫法最單純的話就像底下這樣

[code delphi]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyThread=class(TThread)
protected
mybtn:TButton;
procedure Execute; override;
procedure MyRunProcess;
public
constructor Create(btn:TButton);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TMyThread }
constructor TMyThread.Create(btn:TButton);
begin
mybtn := btn;
inherited Create(false);
end;
procedure TMyThread.Execute;
begin
inherited;
try
MyRunProcess;//Synchronize(MyRunProcess);
except
on E:Exception do
ShowMessage(e.Message);
end;
end;
procedure TMyThread.MyRunProcess;
var i:integer;
begin
for i := 1 to 5000 do
begin
mybtn.Left := (i div 10) ;
Application.ProcessMessages;
sleep(1); //這是實驗的關鍵, 當你把這行remark掉的時候,會發現button速度是不一樣的,因為效能是系統分配的
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
TMyThread.Create(Button1);
TMyThread.Create(Button2);
end;
end.
[/code]

------
額有朝天骨,眼中有靈光

編輯記錄