Developers/Delphi[델파이] IT.러쉬맥
델파이 팁 : 전화번호에 하이프("-") 넣는법 전화번호에 "-"(하이픈) 넣는 방법 입니다. 소스 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..
Developers/Dev_Etc[기타] IT.러쉬맥
카카오(다음) 우편번호 서비스 무료 이용 웹사이트에서 주소를 입력받아서 꼭 필요한 우편번호 수집하는 목적이지만, 그 외 주소수집도 편리하게 이용하는 큰 목적이 아닐까 하는 생각 듭니다. 현재도 무료이고 별도의 인증키 없이도 사용 가능합니다. ▼공식홈페이지 주소▼ http://postcode.map.daum.net/guide ◀http환경 https://spi.maps.daum.net/postcode/guidessl ◀https 환경 Daum 우편번호 서비스 우편번호 검색과 도로명 주소 입력 기능을 너무 간단하게 적용할 수 있는 방법. Daum 우편번호 서비스를 이용해보세요. 어느 사이트에서나 무료로 제약없이 사용 가능하답니다. postcode.map.daum.net 좋은점 Key 발급받을 필요가 없습니다..
델파이 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..
뮤텍스(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..
Tip - 100원 이하 절사 방법 델파이 중 trunc 메서드 기능으로 100원 이하 절사 방법 내용 입니다. 100원 이하 절사 방법 코딩 내용 procedure TForm1.Button1Click(Sender: TObject); begin cxCurrencyEdit2.Value := trunc(cxCurrencyEdit1.Value/100)*100; //100원 이하 절사 end; 결과보기
Indy Component 들 중 IdHTTP라는 Component 이용하여 웹 통신 IdHTTP는 http프로토콜 제공해주는 7가지 중 GET, POST방식 모두 사용해서 통신하여 구현하고자 하는 프로그램에 맞게 사용 가능합니다. 1. Get 방식 일경우(http, https) pURL --> https://도메인주소.com?name1=value1&name2=value2 pAuthorization --> Authorization : 인증키 //{$region 'Https/ Get방식'}//pURL : 웹주소( https://도메인주소.com?파라미터) //pAuthorization : 인증키(Authorization)function httpsGet(pURL, pAuthorization ..
function GetMACAdress2: string; var NCB: PNCB; Adapter: PAdapterStatus; RetCode: char; I: Integer; Lenum: PlanaEnum; _SystemID: string; begin Result := ''; _SystemID := ''; Getmem(NCB ,sizeof(TNCB)); Fillchar(NCB^ ,Sizeof(TNCB) ,0); Getmem(Lenum ,sizeof(TLanaEnum)); Fillchar(Lenum^ ,Sizeof(TLanaEnum) ,0); Getmem(Adapter ,sizeof(TAdapterStatus)); Fillchar(Adapter^ ,Sizeof(TAdapterStatus) ,0); Len..
Developers/Git[깃허브] IT.러쉬맥
개발 소스(Git) 대 쉽게 관리하는 소트웨어(sourceTree) 설치 (windows and Mac) https://www.sourcetreeapp.com/ Sourcetree | Free Git GUI for Mac and Windows A Git GUI that offers a visual representation of your repositories. Sourcetree is a free Git client for Windows and Mac. www.sourcetreeapp.com Git 개발 소스 관리하는 Cilent 툴 화면
