WOW, was man so alles findet wenn man hier und da mal mitliest...
Danke für die interessanten Infos, die
PAS werd' ich mir mal ziehen...
Mal sehen wo ich im Benchmark liege...
Mein erster Ansatz wäre das hier gewesen:
Delphi-Quellcode:
Function InsertChar(MyChar: String; Pos: Integer; Text: String): String;
Var
I, Counter: Integer;
NewStr : String;
Begin
If Text = ''
Then
Begin
Result:= 'No Input...';
Exit;
End;
If Length(Text) >= Pos
Then
Begin
Counter:= 0;
For I:= 1 To Length(Text)
Do
Begin
Counter:= Counter +1;
NewStr := NewStr +Text[I];
If Counter = Pos
Then
Begin
Counter:= 0;
NewStr := NewStr +MyChar;
End;
End;
Result:= NewStr;
End
Else Result:= Text;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption:= InsertChar('_', 4, Edit1.Text);
Edit1.Clear;
End;