Forum: Sonstige Fragen zu Delphi
Delphi
by SirThornberry,
26. Okt 2005
hier noch mal die Insertfunktion mit mehr performance, PosEx werd ich mir auch nochmal anschauen
procedure Insert(SubStr: String; var Dest: String; Index: Integer);
var LOldLen, LNewLen, LSubLen: Integer;
begin
LSubLen := Length(SubStr);
LOldLen := Length(Dest);
LNewLen := LSubLen + LOldLen;
SetLength(Dest, LNewLen);
move(Dest, Dest, LSubLen);
Forum: Sonstige Fragen zu Delphi
Delphi
by SirThornberry,
26. Okt 2005
insert vermute ich auch das es das unter Delphi6 gibt, wenn nicht:
procedure Insert(SubStr: String; var Dest: String; Index: Integer);
begin
Dest := copy(Dest, 1, Index - 1) + SubStr + copy(Dest, Index, Length(Dest));
end;
@marabu: Die PosEx funktion sieht genau so unperformant aus wie meine Insert-Procedure
Forum: Sonstige Fragen zu Delphi
Delphi
by SirThornberry,
26. Okt 2005
mit posten von kompletten units sieht es schlecht aus, selbst das posten einzelner Funktionen fällt schon unter das Urheberreicht. Hast du schon versucht die Funktionen selbst zu schreiben?
Forum: Sonstige Fragen zu Delphi
Delphi
by SirThornberry,
26. Okt 2005
du könntest dir die funktionen PosEx und Insert doch einfach aus deinem Delphi7 rüberkopieren.