[델파이] format 관련

델파이에서 쓰는 Format의 간단한 사용례

■ Format 함수 정의

class function Format ( Const StrFormat : string; Const Args : array of const ) : string;

■ StrFormat 정의 형식

%[Index:][-][표시할 자리수][.0을 채울 자리수]Type

■ 타입 종류

  d = 정수
  e = 지수표시 
  f = 소수점 두번째 자리 이후 반올림 
  g = 입력된 대로 표시
  m = 통화 
  n = 수치 쉼표 표시(소수점 두번째 자리 이후 반올림)
  p = 포인터 
  s = 문자열 
  u = 부호없는 정수 
  x = 16진수 

■ 포멧 형식 관련 사용례

  sMsg:String;

  sMsg := '';
  sMsg := sMsg + #13#10 + Format('<%%10d>   = <%10d>', [12345]);
  sMsg := sMsg + #13#10 + Format('<%%-10d>  = <%-10d>', [12345]);
  sMsg := sMsg + #13#10 + Format('<%%.7d>   = <%.7d>', [12345]);
  sMsg := sMsg + #13#10 + Format('<%%10.5d> = <%10.5d>', [12345]);
  sMsg := sMsg + #13#10;
  sMsg := sMsg + #13#10 + Format('<%%7.4d>, [123]       = <%7.4d>', [123]);
  sMsg := sMsg + #13#10 + Format('<%%*.4d>, [7, 123]    = <%*.4d>', [7, 123]);
  sMsg := sMsg + #13#10 + Format('<%%*.*d>, [7, 4, 123] = <%*.*d>', [7, 4, 123]);
  sMsg := sMsg + #13#10;
  sMsg := sMsg + #13#10 + Format('Index Usage = %s %s %s %1:s %s',
                     ['A', 'B', 'C', 'D', 'E']);

▶ 결과

<%10d>   = <     12345>
<%-10d>  = <12345     >
<%.7d>   = <0012345>
<%10.5d> = <     12345>

<%7.4d>, [123]       = <   0123>
<%*.4d>, [7, 123]    = <   0123>
<%*.*d>, [7, 4, 123] = <   0123>

Index Usage = A B C B C

■ 포멧 타입 관련 사용례

  sMsg:String;

  sMsg := '';
  sMsg := sMsg + #13#10 + Format('%%d = %d', [-12345]);
  sMsg := sMsg + #13#10 + Format('%%e = %e', [12345.6789]);
  sMsg := sMsg + #13#10 + Format('%%f = %f', [123.456789]);
  sMsg := sMsg + #13#10 + Format('%%g = %g', [12.3456789]);
  sMsg := sMsg + #13#10 + Format('%%n = %n', [12345.6789]);
  sMsg := sMsg + #13#10 + Format('%%m = %m', [12345.6789]);
  sMsg := sMsg + #13#10 + Format('%%p = %p', [addr(sMsg)]);
  sMsg := sMsg + #13#10 + Format('%%s = %s', ['FormatTest']);
  sMsg := sMsg + #13#10 + Format('%%u = %u', [12345]);
  sMsg := sMsg + #13#10 + Format('%%x = %x', [12345]);

▶ 결과

%d = -12345
%e = 1.23456789000000E+004
%f = 123.46
%g = 12.3456789
%n = 12,345.68
%m = \12,346
%p = 0012F5B4
%s = FormatTest
%u = 12345
%x = 3039

원본 링크 : http://wwwi.tistory.com/159

추가 > 

function FormatCurr(const Format: string; Value: Currency): string;

금액에 (,) 찍기