Einzelnen Beitrag anzeigen

FarAndBeyond
(Gast)

n/a Beiträge
 
#42

AW: Leerzeichen in String einfügen

  Alt 1. Feb 2016, 23:42
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;
  Mit Zitat antworten Zitat