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..
[델파이 팁] 주민등록번호 및 사업자등록번호 유효성 검사하는 함수 주민등록번호 및 사업자번호 유효성 체크하는 함수 입니다. 함수 // 13자리 경우 -> 주민등록번호 체크, 10자리 경우 -> 사업자등록번호 체크 function TForm1.CheckIDNo(const aIDNo: String; aNullIsError: Boolean): Boolean; var TempStr: String; Index, LastDigit: Integer; begin Result := False; TempStr := GetOnlyNumber(aIDNo); // 길이가 0일 경우(입력 안한 경우) if Length(TempStr) = 0 then begin // null을 에러 처리 하라면 에러, null을 에러 처리 하지 ..
델파이 팁 : 전화번호에 하이프("-") 넣는법 전화번호에 "-"(하이픈) 넣는 방법 입니다. 소스 uses에 MaskUtils 선언 합니다. function SetTelephone(vStr :String):String; //전화번호에 하이픈넣기 var vTemp :String; begin vTemp := CtoC(vStr,'-',''); case Length(vTemp) of 7 : Result := FormatMaskText('!000-0000;0; ',vTemp); 8 : Result := FormatMaskText('!0000-0000;0; ',vTemp); 9 : Result := FormatMaskText('!00-000-0000;0; ',vTemp); 10 : begin if Copy(vTe..
델파이 팁 : 금액을 한글로 표현하기 금액을 한글로 변환 하는 방법 입니다. 소스내용 //Parameter : P_Value: 금액 P_Type :정 포함여부( 1: 미포함, 0; 포함) function MoneyToHangul(P_Value : Double; P_Type : Word): String; var LST_Value : String; i : Integer; // LWO_Cnt : Integer; LBO_ZeroSkip : Boolean; begin Result := ''; LST_Value := ''; if P_Value > 0 then begin LST_Value := FloatToStr(P_Value); for i := Length(LST_Value) downto 1 do begin LBO..
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; 마무리 텍스트 박스 입력란에 숫자만 입력 및 관련 특수문자까지 제거 하는 방법 입니다.
델파이 String -> TStringList 전환 (특정 구분자 기준) 특정 구분자로 String 값 대해 미리 정해진 구분자로 TstringList로 전환 하는 방법 입니다. 특정 구분자 -> "| " 고정했습니다. ▼실행▼ procedure TForm1.Button1Click(Sender: TObject); Const _Split ='|'; var str : String; ls_Rcrd : TStringList; begin Try str := '123|456|789|'; ls_Rrcd := GetTextSeperation(_Split , str); finally Memo1.Lines.Add(ls_Rcrd[0]); end; end; ▼Function 문▼ function GetTextSeperatio..
[유료]UniDAC ( Universal Data Access Components ) 델파이 오라클 접근 접속 방법 UniDAC ( Universal Data Access Components )란 Community Edition 및 Windows, Linux, macOS, iOS 및 Android의 Lazarus (및 Free Pascal )를 포함하여 Delphi 및 C ++ Builder의 여러 데이터베이스에 직접 액세스 할 수있는 구성 요소 라이브러리입니다. Delphi 10.3 오라클 DB 접속 델파이 소스 UniConnection1.ProviderName := 'Oracle'; UniConnection1.Server := '127.0.0.1:1521:TESTDB'; UniConnection1.U..
델파이 IDE동작 속도를 향상할 수 있는 AddIn(애드온) DelphiSpeedUp은 작 속도를 향상시키고 전체 IDE의 일반 속도를 높입니다. DelphiSpeedUp 3.1(No further development.) 지원하는 IDE C++Builder 5, 6 Delphi 5, 6, 7 Borland Developer Studio 2005, 2006 CodeGear RAD Studio 2007 (December Update) 델파이7 적용 IDE 다운받은 곳 https://www.idefixpack.de/blog/ide-tools/delphispeedup/ DelphiSpeedUp 3.1 – Andy's Blog and Tools No further development. DelphiSpeedUp..
Tip - 100원 이하 절사 방법 델파이 중 trunc 메서드 기능으로 100원 이하 절사 방법 내용 입니다. 100원 이하 절사 방법 코딩 내용 procedure TForm1.Button1Click(Sender: TObject); begin cxCurrencyEdit2.Value := trunc(cxCurrencyEdit1.Value/100)*100; //100원 이하 절사 end; 결과보기
procedure TForm1.FormShow(Sender: TObject); var wDate : TDateTime; y,m,d : word; begin wDate := now; //현재일자 //wDate := StrToDate(FormatMaskText('0000-00-00;0', '20190901')); //특정일자 DecodeDate(wDate,y,m,d); Label1.Caption := formatDateTime('yyyymmdd',wDate); MaskEdit1.text := formatDateTime('yyyymmdd',IncMonth(wdate,1)-d); //월말 MaskEdit2.text := formatDateTime('yyyymmdd',IncMonth(wdate,-1)-d+1); ..
