Stringfunktionen verprassen Speicher

[Cappuccino]

Hallo,
ich habe von FastMM gesehen, das eine Funktion Speicher verbrät, in dieser Funktion wird ein String in 2 Teile getrennt.
Da geht jedes mal quasi die Länge des übergebenen Strings verloren.
Wenn man das 5000 mal macht, sind auch 50 Bytes eine Menge.

Die Funktion spaltet einen übergebenen String auf in 2 Teile, vor dem Trenner und nach dem übergebenen Trennzeichen

Bsp:
strPara := 'Welt=Delphi';
strResult := TrenneParaAb('=',strPara);

dann wird
strResult = 'Welt';
strPara = 'Delphi';

Delphi-Quellcode:

function TrenneParaAb(const Zeichen: String; var Para:String):String;
var
  i : integer;
begin
  result:='';
  If Pos(Zeichen,Para) > 0 then begin
    If length(Zeichen)=1
      then begin
        { 1 Zeichen }
        i:=Pos(Zeichen,Para);
        If i>0 then begin
          result:= copy(Para,1,Pred(i));
          delete(Para,1,i);                    <-------------- Die Zeile gibt FastMM an
        end;
      end
      else begin
        { Hier mehrere Zeichen übergeben }
        i:=Pos(Zeichen,Para);
        If i>0
        then begin
          result:=copy(Para,1,Pred(i));
          delete(Para,1,(i+Pred(length(Zeichen))));
        end;
    end;
  end; { If Pos }
end;

Gibt es bessere Stringfunktionen als die von Delphi?

Hier noch das Listing von FastMM

Aufrufstack, von wem der Block momentan belegt wird (Rücksprungadressen):
403132 [sys\system.pas][System][System.@GetMem][2654]
405575 [sys\system.pas][System][System.@NewAnsiString][12429]
40595B [sys\system.pas][System][System.InternalUniqueString][13256]
4059E6 [sys\system.pas][System][System.@LStrDelete][13380]
4870D3 [..\common\FileUtils.pas][FileUtils][FileUtils.TrenneParaAb][415]



Für Tips wäre ich dankbar,

Gruß
Tom

[mkinzler]

Warum so kompliziert?

[Cappuccino]

Wie einfacher?

[DeddyH]

Explode

[heiopei]

morgn,
vereinfachen kannst du deinen code auf jeden fall schon mal so (würd ich jetzt mal sagen, keine garantie ):

Delphi-Quellcode:

function TrenneParaAb(const Zeichen: String; var Para:String):String;
var
  i : integer;
begin
  result:='';
  If Pos(Zeichen,Para) > 0 then begin
    i:=Pos(Zeichen,Para);
    result:=copy(Para,1,Pred(i));
    delete(Para,1,(i+Pred(length(Zeichen))));
  end;
end;

was du mit speicherverprassen meinst, hab ich noch nicht ganz verstanden.

[mkinzler]

Delphi-Quellcode:

function TrenneParaAb(const Zeichen: String; var Para:String):String;
var
  sl: TStrings;
begin
  result:=''; 
  sl := TStringList.Create;
  sl.StrictDelimiter := True;
  sl.Delimiter := Zeichen;
  sl.DelimitedText := Para;
  Result := sl[1];
  Para := Sl[0];
  sl.Free;
end;

[DeddyH]

Und da noch ein try-finally einfügen

[Cappuccino]

Interessant das mit der Stringliste,
geht hier leider nicht, weil im hinteren Teil des Strings nochmal das Trennzeichen kommen kann, der hintere Teil aber als ganzes zurückgegeben werden muss.

Danke + Gruß
Tom

[marabu]

Hallo,

für das Zerlegen eines Strings an einem Literal findest du hier noch die Funktionen Split() und ParseStr(): klick

Grüße vom marabu