請問各位先進:

<textarea class="delphi" rows="10" cols="60" name="code"> procedure TfmPrint.Master; begin with RadioGroup1 do case ItemIndex of 0: SetCust;//客戶資料表 1: SetSply;//廠商 end; end; procedure TfmPrint.SetCust; begin ptCust := TptCust.Create(Self); SetReport(ptCust, RadioGroup3.ItemIndex=1); end; procedure TfmPrint.SetSply; begin ptSply := TptSply.Create(Self); SetReport(ptSply, RadioGroup3.ItemIndex=1); end; ........ //如何改寫為 procedure TfmPrint.Master; begin with RadioGroup1 do case ItemIndex of 0: SetPrint(ptCust);//客戶資料表 1: SetPrint(ptSply);//廠商 end; end; procedure TfmPrint.SetPrint(ptPrint:???); begin ptPrint := TptPrint.Create(Self); SetReport(ptPrint, RadioGroup3.ItemIndex=1); end; procedure SetReport(vReport: TQuickRep; vPreView: boolean); var i: integer; begin with vReport do try Prepare; for i := 1 to ComponentCount - 1 do if Components[i] is TQRLabel then with (Components[i] as TQRLabel) do if name = 'QRLabelTotPage' then Caption := IntToStr(QRPrinter.PageCount); if vPreView then Print else Preview; finally Free; QRPrinter := nil; end; end; </textarea> 感謝你撥空看我的問題.

//如何改寫為

procedure TfmPrint.Master;

begin

with RadioGroup1 do

case ItemIndex of

0: SetPrint(ptCust);//客戶資料表

1: SetPrint(ptSply);//廠商

end;

end;

procedure TfmPrint.SetPrint(ptPrint:???);

begin

ptPrint := TptPrint.Create(Self);

SetReport(ptPrint, RadioGroup3.ItemIndex=1);

end;

更改如下：

procedure TfmPrint.SetPrint(ptPrint:Tptint);

begin

SetReport(ptPrint, RadioGroup3.ItemIndex=1);

end;

您的問題應該是，如何傳遞物件至一個程序，把物件當成變數型態的一種就對了。

感謝你的回覆, 經測試後還是無法修改.
我是使用 Dephi V7, QuickRep.