Thema: Delphi string inkrementieren

Einzelnen Beitrag anzeigen

schlecki

Registriert seit: 11. Apr 2005
Ort: Darmstadt
148 Beiträge
 
Delphi XE2 Enterprise
 
#12

AW: string inkrementieren

  Alt 1. Jun 2011, 10:48
Delphi-Quellcode:
// pad a string to pad_size with pad_string characters (php-like)
function str_pad(const Input : string;
                 pad_size : integer;
                 const pad_string : string = '0';
                 const pad_type : Integer = 0) : string ;
Sowas wie pad_type als Integer versuche ich immer zu vermeiden.

Lesbarer finde ich sowas:
Delphi-Quellcode:
type
  TPadType = (ptPadLeft, ptPadRight);

function str_pad(const Input: string;
                 pad_size: Integer;
                 const pad_string: string = '0';
                 const pad_type: TPadType = ptPadLeft): string;
Das versteht man auch in 100 Jahren noch, ohne nachschlagen zu müssen, was welcher Wert für pad_type bedeutet.
  Mit Zitat antworten Zitat