[Delphi] 델파이 우리나라 환경에 맞는 전화번호 형식 반환 함수

프로그래밍 하다보면 전화번호 형식을 표준화 해야 하는데, 항상 찾게 되네요... // // 전화번호 형식 변환 // function GetPhoneNumber(aNoDashTelNo: string): string; var tTelNo : String; FLocalNo, FSeoul : Boolean; begin tTelNo := StringReplace(aNoDashTelNo, '-', '', [rfReplaceAll, rfIgnoreCase]); if (Length(tTelNo) <= 0) then begin Result := ''; exit; end; if (Length(tTelNo) > 11) then begin result := copy(aNoDashTelNo,1,12); exit; end; FLocalNo := False; FSeoul := False; if tTelNo[1] = '0' then FLocalNo := True; if ( FLocalNo ) and ( tTel...

원문링크 : [Delphi] 델파이 우리나라 환경에 맞는 전화번호 형식 반환 함수