본문 바로가기

Delphi/간단하게

Delphi/간단하게 cxGrid에서 선택한 Cell의 컬럼정보 가져오기 1. OnCellClick 이벤트에서 가져오기 procedure TForm1.CellClick(Sender: TcxCustomGridTableView; ACellFViewinfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin //ACellViewInfo.Item = Column ShowMessage(ACellViewInfo.Item.Caption); end; 2. OnMouseDown 이벤트에서 가져오기 procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:..
Delphi/간단하게 간단하게 Task로 작업하고 원하는 결과값 리턴 받기 uses .., System.Threading; TDevelopistTask = class public class function FuncWait(const AFunc: TFunc): T; static; end; class function TDevelopistTask.FuncWait(const AFunc: TFunc): T; var oFuture: IFuture; begin oFuture := TTask.Future(AFunc); Result := oFuture.Value; end; 사용법 - 결과값이 리턴될 때까지 대기상태이므로 적절하게 사용하시면 됩니다. if TDevelopistTask.FuncWait( function :Boolean begin Result := False; //to do.. Re..
Delphi/간단하게 간단하게 Little/Big Endian 확인하기 function IsBigEndian: Boolean; var w: Word; c: PChar; begin w := 1; c := Addr(w); //True = Big, False = Little Result := Byte(C^) = 0; end;

티스토리툴바