요즘에 델파이를 배우는 분들 중에는 잘 모르시는 분들이 많을꺼 같아서 올립니다.
설명은 너무 쉬워 생략하고 혹 모르신다면, 한번 해보세요.
Format(‘%*d’,[10,5] ) // >_________5<
Format(‘%-*d’,[10,5] ) // >5_________<
Format(‘%.*d’,[10,5] ) // >0000000005<
Format(‘%-10s’,[FormatFloat(‘,0;;영’,1200)]) // 0인경우 ‘영’ 이 나옵니다. nil은 0 이 나옵니다.
Format(‘%10s’,[FormatFloat(‘,0;;영’,1200)]) // 0일경우 다른걸 출력하려면 ‘영’을 바꾸세요.
5개의 결과물은 직접 확인 해보시면 쉽게 아실겁니다.
예전 클리퍼함수중에는 PADL, PADR, PADC 등이있었습니다.
PADC만 빼고는 Format 함수로 대체 가능 하지요. 그래서 한번 만들어 보았습니다.
PADC만 빼고는 Format 함수로 대체 가능 하지요. 그래서 한번 만들어 보았습니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Function PadC(Str: String; Len: Integer): String; Var L, R: Integer; F: String; Begin If Len <= Length(Str) then Result := Str else begin Len := Len - Length(Str); L := Len div 2; R := Len - L + Length(Str); Result := StringOfChar(' ', L) + Format('%-*s', [R, Str]); end; end; Function PadR(Str: String; Len: Integer): String; begin Result := Pad(Str, Len); end; Function Pad(Str: STring; Len: Integer): String; Begin Result := Format('%-*s', [Len, Str]); End; Function PadL(Str: STring; Len: Integer): String; Begin Result := Format('%*s', [Len, Str]); End; |
참고만 하시길…
<< 제작 : 김말동 >>
최신 댓글