Developers/Delphi[델파이] rushmac
퀀텀그리드(DevExpress QuantumGrid)에서 데이터에서 문자 검색 기능 FindRecordIndexByText 메서드 대해서는 문자열 지원 합니다. FindRecordIndexByText 메서드 설명 해당 레코드를 DeleteRecord 삭제 기능에서 사용되는 예시 입니다. procedure TForm1.Button1Click(Sender: TObject); Var iRow : Integer; begin iRow := cxGrid1DBTableView1.DataController.FindRecordIndexByText(0 , 0 ,'Rushmac' ,False ,True ,True); if iRow >-1 then cxGrid1DBTableView1.DataController.DeleteRe..
델파이에서 월말,전월(익월)1일 등등 Date 날짜 구하는 방법 델파이에서 가끔 사용하면서 월말,전월1일, 익월1일등 필요로 할 경우가 있어서 정리 해보겠습니다. 소스내용 procedure TForm1.Button1Click(Sender: TObject); const sDayNm : array[1..7] of String = ('월요일', '화요일', '수요일', '목요일', '금요일', '토요일', '일요일'); var wDate : TDateTime; y,m,d : word; begin Try wDate := now; //현재일자 DecodeDate(wDate,y,m,d); DayOfTheWeek(wDate); // 요일 구하기 Label1.Caption := '현재일자 : ' + formatDate..
숫자 함수 Int(Float) 함수 실수값에서 소수부분 버리고 정수만 출력 하는 기능.(반올림 상관없이 버리고, 실수형으로 리턴!) procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(FloatToStr(Int(10.2154477))); //다이얼로그박스 출력 시 -> 10 end; Trunc(Float) 함수 실수는 무조건 버리고 정수로 리턴 해주는 함수 입니다. procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(intToStr(Trunc(10.7154477))); //다이얼로그박스 출력 시 -> 10 end; byte(char) 함수 아스키 코드값으로 출력 하는 함수기..
Delphi Tip - TEdit 에서 숫자만 입력하는 방법 입니다. 소스 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // '0'~'9': 0~9 숫자 //#3: Ctrl + C //#8: Tab //#13: VK_RETURN //#22: Ctrl + V if not (Key in ['0'..'9', #3, #8, #10, #13, #22]) then Key := #0; end; 마무리 텍스트 박스 입력란에 숫자만 입력 및 관련 특수문자까지 제거 하는 방법 입니다.
Tip - 100원 이하 절사 방법 델파이 중 trunc 메서드 기능으로 100원 이하 절사 방법 내용 입니다. 100원 이하 절사 방법 코딩 내용 procedure TForm1.Button1Click(Sender: TObject); begin cxCurrencyEdit2.Value := trunc(cxCurrencyEdit1.Value/100)*100; //100원 이하 절사 end; 결과보기
