string inkrementieren

[schlecki]

Zitat von blackfin:

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.