IBAN String Formatieren

[BerndS]

Formatiert man das nicht immer in Blöcken zu vier Zeichen?
DE12 3456 7890 1234 5678 90

Das habe ich mal eine einfache Funktion gepackt.

Delphi-Quellcode:

const
  cThinNoBreakSpace = #8239; // siehe https://de.wikipedia.org/wiki/Schmales_Leerzeichen

function FormatIBAN(AIBAN: string; AThinNonBreakSpace: Boolean = False): string;
var
  I: Byte;
  C: Char;
begin
  Result := AIBAN;
  if AThinNonBreakSpace then
    C := cThinNoBreakSpace
  else
    C := #32;
  for I := 1 to 5 do
    Insert(C, Result, I * 5);
end;

Durch das schmale Leerzeichen wird wenig Platz verschwendet und es wird nicht umgebrochen.