Hi,各位先進大家好:

平時使用Delphi,不得已新專案需使用BCB,以下程式想轉BCB

FCommonFrame = class of TFrame;

procedure TFormMain.LoadFrameByClassName(AFrameClassName: TGoverFrame);

begin

if Assigned(FCommonFrame) then

if SameText(AFrameClassName.ClassName, FCurrentFrameClass) then exit

else begin
FGoverFrame.Visible := False;
FreeAndNil(FCommonFrame);

end;

FCommonFrame := AFrameClassName.Create(nil);

FCommonFrame.Parent := pnlCommon;

FCommonFrame.Visible := True;

FCurrentFrameClass := AFrameClassName.ClassName;

end;

BCB 程式

class TCommonFrame : public TFrame{};

void TFormMain::LoadFrameByClass(TCommonFrame *AFrameClass)

{

if (FCommonFrame != NULL) {

if (//應該是型別問題

exit;

}

else {

FCommonFrame->Visible = False;

FreeAndNil(FCommonFrame);

};

};

FCommonFrame = new AFrameClass();

FCommonFrame->Parent = pnlCommon;

FCommonFrame->Visible = True;

FCurrentFrameClass = AFrameClass->ClassName();

}

目前卡在紅字部份,請先進撥冗指導,謝謝!

編輯記錄