Zeichen in String setzen

[sniper_w]

Delphi-Quellcode:

function insert__sp(const val:string):string;
 var n,i :integer;
begin
 n:=1; // zähler für val string, geht 'langsamer' als i
 setlength(result, length(val)*2);// resultierende string ist 2*so gross wie val
 for i:=1 to length(result) do // für jeder char in result string
 if i mod 2=0 then  // wenn i teilbar durch 2 ist
 begin         
 result[i] := val[n]; // dann nichts, einfach merken
 inc(n);
 end else
 begin
 result[i] := '%'; // wenn nicht dann  ist es an der stelle 1,3,5,7....d.h. '%'
 end; 
end;

nicht getestet.


EDIT
Oder willst du das ?:

Delphi-Quellcode:

function insert__sp_2(const val:string):string; // das wäre für dich das Richtige
 var i,n:integer;
begin
 n := 1;
 SetLength(Result, length(val)+length(val) div 2 - 1 );
 for i:=1 to Length(Result) do
 begin
  if (i-1) mod 3=0 then
  begin
   Result[i] := '%';
  end
  else
  begin
   Result[i] := val[n];
   Inc(n);
  end;
 end;
end;