본문 바로가기

Developist

Delphi/끄적이기 제네릭을 사용한 IfThen으로 한번에 해결하기 제네릭을 사용하여 다양한 유형의 타입으로 사용이 가능합니다. type IIF = class class function Cast(AExpression: Boolean; const ATrue, AFalse: T): T; static; end; implementation { IIF } class function IIF.Cast(AExpression: Boolean; const ATrue, AFalse: T): T; begin if AExpression then Result := ATrue else Result := AFalse; end; Ex) procedure TForm1.Button1Click(Sender: TObject); var My1: TMyRec; My2: TMyRec; My3: TMyRec; be..
Delphi/끄적이기 Ifthen function IIF(AExpression: Boolean; const ATrue, AFalse: Variant): Variant; begin if AExpression then Result := ATrue else Result := AFalse; end;
Delphi/끄적이기 단순한 일회성 폼 띄우기 type TSubForm = class(TForm) private { Private declarations } FResult : Integer; public { Public declarations } class function inits: Integer; static; //리턴값은 마음대로 선택하여 사용 end;{TSubForm} class function TSubForm.inits: Integer; begin with TSubForm.Create(nil) do begin try Position := poMainFormCenter; {To Do} ShowModal; Result := FResult; finally Free; end; end; end; Call procedure TForm1.Button1C..

티스토리툴바