String-Result auf welche länge setzen?

[shmia]

Dein Frage ist so gut wie unverständlich.
Aber ich zeige hier mal ein Beispiel, wie man mit SetLength und Zeigern arbeitet:

Der "Trick" bei folgender Funktion ist, dass zuerst so viel Speicher mit SetLength reserviert wird,
wie das Ergebnis max. haben kann.
Am Ende wird dann auf die wirkliche Größe reduziert.

Delphi-Quellcode:

function KonvertUmlaute(const s: string): string;
var
   i,slen: integer;
   src,dst: PChar;
begin
   slen := Length(s);
   SetLength(Result, slen * 2);  // Ergebnis kann u.U. doppelt so groß

   if slen = 0 then
      Exit;

   src := PChar(@s[1]);
   dst := PChar(@Result[1]);

   for i := 1 to slen do
   begin
      case src^ of
         'ä': begin dst[0] := 'a'; dst[1] := 'e'; Inc(dst,2); end;
         'ö': begin dst[0] := 'o'; dst[1] := 'e'; Inc(dst,2); end;
         'ü': begin dst[0] := 'u'; dst[1] := 'e'; Inc(dst,2); end;
         'Ä': begin dst[0] := 'A'; dst[1] := 'E'; Inc(dst,2); end;
         'Ö': begin dst[0] := 'O'; dst[1] := 'E'; Inc(dst,2); end;
         'Ü': begin dst[0] := 'U'; dst[1] := 'E'; Inc(dst,2); end;
         'ß': begin dst[0] := 's'; dst[1] := 's'; Inc(dst,2); end;
      else
         dst^ := src^;
         Inc(dst);
      end;
      Inc(src);
   end;
   
   SetLength(Result, dst-PChar(@Result[1]));
end;