Developers/Delphi[델파이] 러쉬맥닷넷
퀀텀그리드(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..
델파이에서 idSMTP 이용하여 eMail Send 기능. 기존 Delphi7에서 Indy component 포함되어, idSMTP 이용해서 메일 보낼 수 있도록 했지만, SSL을 사용 하기 때문에 현재는 XE10에서 idSMTP 사용하여, 메일 보낼 수있는 방법 알려드리겠습니다. 저가 사용한 컴포넌트 -> IdSMTP, IdSSLIOHandlerSocketOpenSSL, IdMessage 입니다. 소스내용 function SendMail(peMailAddr,pSubject, pText : WideString) : WideString; var SMTP: TIdSMTP; SSL: TIdSSLIOHandlerSocketOpenSSL; MM: TIdMessage; begin //peMailAddr -> 받는 ..
숫자 함수 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) 함수 아스키 코드값으로 출력 하는 함수기..
[델파이 팁] 주민등록번호 및 사업자등록번호 유효성 검사하는 함수 주민등록번호 및 사업자번호 유효성 체크하는 함수 입니다. 함수 // 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을 에러 처리 하지 ..
Developers/JavaScript[자바스크립트] 러쉬맥닷넷
자바스립트로 뒤로가기 버튼 비활성화 자바스크립트로 제어 하다가 [뒤로가기] 버튼 클릭 시 화면 표기 안 되는 상황이 발생 할 수 있습니다. 자바스크립트로 [뒤로가기]버튼 비활성하는 코드 입니다. 소스 //뒤로가기 버큰 비활성화소스 마무리 가끔 이용하면서 간단하면서, 꾝 필요할 때 있습니다.
자바스크립트로 Redirect 하는 방법 Redirect?이용 가능한 웹 페이지를 하나 이상의 URL 주소로 만들어주는 월드 와이드 웹 기법이다. URL 포워딩(URL forwarding)이라고도 한다. 넘겨받은 URL을 웹 브라우저가 열려고 하면 다른 URL의 문서가 열리게 된다. 이와 비슷한 용어인 도메인 리다이렉션은 URL 도메인에 속하는 모든 페이지가 다른 도메인으로 연결되는 것을 말하며, 이를테면 wikipedia.com과 wikipedia.net은 자동으로 wikipedia.org로 연결되는 것을 들 수 있다. URL 리다이렉션은 여러 목적이 있다: URL 단축, 웹 페이지가 이동될 때 발생되는 죽은 링크의 예방, 하나의 웹사이트를 가리키는 동일 소유자의 여러 도메인 이름 허용, 웹사이트 안팎..
Developers/Dev_Etc[기타] 러쉬맥닷넷
highlight.js line-numbers 설정방법 highlight.js에 라인번호(Line Number) 설정하는 방법 알려드립니다. 적용방법 먼저, https://github.com/wcoder/highlightjs-line-numbers.js/에서 highlightjs-line-numbers.js 파일 다운로드 합니다. 해당 파일(highlightjs-line-numbers.js) 첨부하였습니다. highlightjs-line-numbers.js 파일 대해 티스토리 기준(스킨편집] -> [파일업로드]) 업로드 합니다. [스킨편집] -> [Html 편집] -> [CSS]에서 맨 마지막 줄에 다음과 같이 코드 추가 합니다. /* for block of numbers */ .hljs-ln-numbe..
2019/10/28 - [Developers/Dev_Etc[기타]] - highlight.js line-numbers 설정방법 블로그 또는 개인(회사)홈페이지에 코드구분강조(highlight) 적용 방법 개인(회사) 홈페이지 또는 블로그에 개발 코드 사용 할 경우에는 보기 좋게 사용언어 타입에 맞게 코드 구분 강조할 수 있는 highlight 라이브러리 중에 하나 입니다. highlightjs란? 185개 언어 및 89개 테마 적용 자동 언어 감지 다국어 코드 강조 node.js 사용가능 모든 마크업과 함께 사용 모든 js 프레임 워크와 호환 highlightjs.js 적용방법 중 CDN방식 홈페이지에 접속하면 Hosted와 Custom package 두가지 방법 중 먼저 hosted 방식 알려드립니다...
델파이 팁 : 전화번호에 하이프("-") 넣는법 전화번호에 "-"(하이픈) 넣는 방법 입니다. 소스 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; 마무리 텍스트 박스 입력란에 숫자만 입력 및 관련 특수문자까지 제거 하는 방법 입니다.
