Tilføj +'er til string

Det behøver ikke at være en hel funktion. Jeg har bare brug for et hint for jeg er helt på bar bund.





-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------

Kode 

var
 original,new : string;
 len,t : integer;
begin
  original := 'hej';
  len := length(original);
  SetLength(new, len*2-1);


  for t:=0 to len do
  begin
    new[t*2-1]:=original[t];
    if (t<len) then new[t*2]:='+';
  end;
  form1.caption:=new;
end;

Kode 

function AddChars(S: String; C: Char; IgnoreSpaces: Boolean = True): String;
var
  I: Integer;
begin
  if Length(S) = 0 then Exit;
  for I := 1 to Length(S)-1 do begin
    if IgnoreSpaces then begin
      if S[I] <> ' ' then
        Result := Result + S[I] + '+'
      else begin
        Delete(Result, Length(Result), 1);
        Result := Result + ' ';
      end;
    end else
      Result := Result + S[I] + '+';
  end;
  Result := Result + S[Length(S)];
end;

Kode 

var
  S: String;
begin
  S := 'Hej';
  S := AddChars(S, '+'); // Hvis mellemrum skal ignoreres
  S := AddChars(S, '+', False); // Hvis mellemrum IKKE skal ignoreres
  ShowMessage(S);
end;

Kode 

StringReplace(Strengen, ' ', '+', [rfReplaceAll]);