String nach vordefinierbarem Muster formatieren

[himitsu]

Notfalls ließe es sich auch sehr einfach etwas selber machen.

Delphi-Quellcode:

Function MyMask(Const Str, Mask: String): String;
  Var i, i2: Integer;

  Begin
    Result := Mask;
    i2 := 1;
    For i := 1 to Length(Result) do
      If Result[i] = '#' Then
        If i2 <= Length(Str) Then Begin
          Result[i] := Str[i2];
          Inc(i2);
        End Else Break;
  End;