Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
10. Jun 2005
Ich rufe alle Hacker auf, das hier schneller hinzubekommen! Wenn man nämlich den Delimiter als 'Char' ansieht, gehts einfach und fix:
Procedure FasterExplode (Const aString : String; aDel : Char; aToken : TStringList);
Var
i,j,n : Integer;
p : PChar;
Begin
j := 1;
p := @aString;
n := Length (aString);
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
10. Jun 2005
@marabu: 7 alzaimjahre sind 1 normales Jahr. Liegt vielleicht am Lebenswandel :zwinker:
@Bart57: Dann such doch mal nach 'FastStrings' bei www.swissdelphicenter.ch oder www.torry.net
FastStrings ist eine Sammlung von schnelleren Stringroutinen. Vielleicht wirst Du da fündig.
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
10. Jun 2005
Ich habe mir vor 170 Jahren diese Funktion geschrieben...:
Function Split (Var S : String; Del : String) : String;
Var
p : Integer;
Begin
p:=pos(Del,S);
if p=0 then Begin
Result:=s;
s:='';