1:
2:
3:
4:
5:

C92917D2E4D98789EE51928EECA075E8K3NDI45JKS90OMLJD56JLSDJ7LSK6DK .........

wird zu:

C929-17D2-E4D9-8789-EE51 ......................					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:String;
begin
  a :=  Edit1.Text;
  a[5] :='-';
  Edit2.Text := a;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var orginal, neu: String;
begin
i := 1;
j := 1;
while i <= length(orginal) do
begin
neu[j] := orginal[i];

inc(j);

  if (i mod 5 = 0) and (i <> length(orginal)) then
  begin
    neu[j] := '-';
    inc(j);
  end;

inc(i);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var orginal, neu: String;
begin
  original := Edit1.Text;
  i := 1;
  j := 1;
  während i+4 <= länge(orginal) do begin
    kopiere von der stelle i bis i+4 den text aus original in neu;
    füge am ende von neu ein '-' an;
    inkrementiere i um 4;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function InsertGivenChar(const Src: string; InsChr: char; InsertAfter: integer): string;
var i,j: integer;
begin
  SetLength(Result,Length(Src) + Length(Src) div InsertAfter);
  i := 1;
  j := 1;
  while i <= Length(Src) do
    begin
      Result[j] := Src[i];
      inc(j);
      if ((i mod InsertAfter) = 0) and (i < Length(Src)) then
        begin
          Result[j] := InsChr;
          inc(j);
        end;
      inc(i);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function InsertHyphens4A(const AText: AnsiString): AnsiString;
var
  i, TextLen: Integer;
  Src, Dst: PAnsiChar;
begin
  TextLen := Length(AText);
  SetString(Result, nil, TextLen + Pred(TextLen div 4));
  Src := PChar(AText);
  Dst := PChar(Result);
  for i := 1 to Pred(TextLen div 4) do
  begin
    PLongWord(Dst)^ := PLongWord(Src)^;
    Inc(Src, 4);
    Inc(Dst, 4);
    Dst^ := '-';
    Inc(Dst);
  end;
  PLongWord(Dst)^ := PLongWord(Src)^;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function InsertHyphens(const AText: string; AChars: Integer): string;
var
  i, TextLen: Integer;
  Src, Dst: PChar;
begin
  TextLen := Length(AText);
  SetString(Result, nil, TextLen + Pred(TextLen div AChars));
  Src := PChar(AText);
  Dst := PChar(Result);
  for i := 1 to Pred(TextLen div AChars) do
  begin
    CopyMemory(Dst, Src, AChars * SizeOf(Char));
    Inc(Src, AChars);
    Inc(Dst, AChars);
    Dst^ := '-';
    Inc(Dst);
  end;
  CopyMemory(Dst, Src, AChars * SizeOf(Char));
end;					

1:
2:
3:
4:
5:
6:
7:
8:

  // Final_Format_ ( '-' ).....
  Insert('-',STRING1,5);
  Insert('-',STRING1,10);
  Insert('-',STRING1,15);
  Insert('-',STRING1,20);

  // String__CUT!
  SetLength(STRING1, 24);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Function InsertDashes(S: String): String;
var
    X: Integer;
    SP,DP: PChar;
Begin
    SetLength(Result, Length(S) + Length(S) div 4);
    SP := @S[1];
    DP := @Result[1];
    For X := 1 to Length(S) do
    Begin
        DP^ := SP^;
        Inc(SP);
        Inc(DP);
        If (X and 3) = 0 then
        Begin
            DP^ := '-';
            Inc(DP);
        end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Function UnterteileString (Const aString : string; aTeilerZeichen : Char; aAbstand : Integer) : String;
Var
  i : Integer;

Begin
  i := aAbstand+1;
  Result := aString;
  While i <= Length (Result) do begin
    Insert (aTeilerZeichen,Result,i);
    inc (i, aAbstand+1);
  End
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Function UnterteileStringShorterSource (Const S : string; C : Char; A : Integer) : String;
Var
  i : Integer;
Begin
  Result := S;
  i := (Length(S) div A) * A + 1;
  While i > 1 do begin
    Insert (C, Result, i);
    Dec(i, A);
  End;
End;					

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:

(***********************************************************)
(*** Aufruf: InsStr(a, 3, '-');                          ***)
(***********************************************************)
procedure InsStr(Var aStr: string; At: integer; Chr: char);
var
 LengthIdx,RunIdx   : integer;
 TmpStr   : string;
 SourceChar, DestinationChar: PChar;
begin
 LengthIdx := length(aStr);
 if (LengthIdx = 0) or (LengthIdx < at) then exit;
 TmpStr := aStr;
 setlength(aStr, LengthIdx + LengthIdx div at);
 SourceChar := @TmpStr[at];
 DestinationChar := @aStr[at];
 RunIdx  := at;
 while RunIdx < LengthIdx do
 begin
  if RunIdx mod at = 0 then
  begin
   inc(DestinationChar);
   DestinationChar^ := chr;
  end;
  inc(RunIdx);
  inc(SourceChar);
  inc(DestinationChar);
  DestinationChar^:= SourceChar^;
 end;
end;