Diverse Probleme mit Strings, SetLength und SizeOf

[nahpets]

Hingedaddelt:

Delphi-Quellcode:

function InsertZeichen(sZeichenfolge : String; chZeichen : Char; iPosition : Integer) : String;
var
  i : Integer;
begin
  Result := '';
  for i := 1 to Length(sZeichenfolge) do begin
    if i mod iPosition  = 0 then Result := Result + chZeichen;
    Result := Result + Copy(sZeichenfolge,i,1);
    // oder
    Result := Result + sZeichenFolge[i];
  end;
end;