IT 정보 개발자Life

Developers/Delphi[델파이] (18)

반응형

[Delphi] 퀀텀그리드 [DevExpress QuantumGrid] 데이터 문자 검색 기능

Developers/Delphi[델파이] rushmac 2020. 8. 5.

퀀텀그리드(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..

[Delphi] 월말,전월(익월)1일 등등 Date 날짜 구하는 방법

Developers/Delphi[델파이] rushmac 2020. 8. 5.

델파이에서 월말,전월(익월)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..

[Delphi ] idSMTP eMail 발송 기능

Developers/Delphi[델파이] rushmac 2020. 8. 5.

델파이에서 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 -> 받는 ..

[Delphi] 숫자 관련함수

Developers/Delphi[델파이] rushmac 2020. 8. 4.

숫자 함수 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] 주민/사업자번호 유효성 체크

Developers/Delphi[델파이] rushmac 2019. 11. 1

[델파이 팁] 주민등록번호 및 사업자등록번호 유효성 검사하는 함수 주민등록번호 및 사업자번호 유효성 체크하는 함수 입니다. 함수 // 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을 에러 처리 하지 ..

[Delphi Tip] 전화번호에 하이픈(-) 삽입

Developers/Delphi[델파이] rushmac 2019. 10. 2

델파이 팁 : 전화번호에 하이프("-") 넣는법 전화번호에 "-"(하이픈) 넣는 방법 입니다. 소스 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..

[Delphi_Tip] 금액을 한글로 표기

Developers/Delphi[델파이] rushmac 2019. 10. 2

델파이 팁 : 금액을 한글로 표현하기 금액을 한글로 변환 하는 방법 입니다. 소스내용 //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..

[델파이] TEdit 에서 숫자만 입력 가능!

Developers/Delphi[델파이] rushmac 2019. 10. 2

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; 마무리 텍스트 박스 입력란에 숫자만 입력 및 관련 특수문자까지 제거 하는 방법 입니다.

[Delphi] String -> TStringList 전환하기

Developers/Delphi[델파이] rushmac 2019. 10. 8

델파이 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..

[devart unidac] oracle(오라클) 접속 방법

Developers/Delphi[델파이] rushmac 2019. 10. 4

[유료]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..

[Delphi] DelphiSpeedUp 3.1 IDE AddIn

Developers/Delphi[델파이] rushmac 2019. 9. 24

델파이 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..

[delphi] 프로그램 중복 실행 방지

Developers/Delphi[델파이] rushmac 2019. 9. 24

뮤텍스(Mutex)로 프로그램 중복 실행 방지... 프로젝트 dpr 안에 프로그램 중복 실행 방지 코드 입력으로 간단히 처리 소스 program Project2; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} Var Mutex: THandle; begin Mutex := CreateMutex(nil, True, '중복실행 방지'); if (Mutex > 0) and (GetLastError = 0) then begin try Application.Initialize; Application.Title := '중복실행 방지'; Application.MainFormOnTaskbar := True; Application.CreateForm(TFor..

반응형
Copyright © IT 정보 개발자Life All Rights Reserved
Code Is Content by GitHub   Powered by Rushmac
Total :    Today :    Yesterday :

티스토리툴바