Forum: Software-Projekte der Mitglieder
by API,
13. Dez 2006
Version 1.1 enthält einen Bug in TStringDivider.Prepare
Falls Length(fPattern)= 1 ist erbigt fPatternLength2 = -1 was zu einem "Integer overflow" führt,
da fPatternLength2 als Cardinal deklariert ist.
Bugfix: Überprüfen, ob fPattern > 1
If length(fPattern) > 1 Then
fPatternLength2 := fPatternLength - 2;
Forum: Software-Projekte der Mitglieder
by API,
12. Dez 2006
Wie kann ich die Funktion Explode ändern, so dass aItems vom Typ "array of string" ist?
Procedure Explode(Const aText, aPattern: String; aItems: TStrings);
also z.B
type
TStrArray = array of string;
Forum: Software-Projekte der Mitglieder
by API,
11. Dez 2006
Danke für den Code. Ist doch um einiges schneller als eine herkömmliche Explode Funktion.
Habe es getestet mit einigen einigen tausend Aufrufen der jeweiligen Funktion und mit Messen der Zeit.