Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by WInfo,
9. Jan 2009
Moin Moin Sakura,
hast Recht, habe auch noch das Const angefügt und das brachte 1,47% Geschwindigkeitsvorteil, Deine Routine ist dagegen noch einmal um 3,71% schneller. Das bringt also schon einiges die Werte zwischenzuspeichern, das hätte ich gar nicht gedacht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by WInfo,
9. Jan 2009
Moin Moin Sakura,
das SetLength wurde nun in der Routine angepasst. Jetzt sollte die Routine i.O. sein und hoffentlich keine grosse Performancebremse.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by WInfo,
9. Jan 2009
Moin Moin, ein Wettbewerb? Dann möcht ich auch eine Routine zum besten geben 8)
FUNCTION TrimDublicateSpaces(aString: string): string;
VAR
i, j: integer;
BEGIN
SetLength(Result, length(aString));
j := 0;
FOR i := 1 TO length(aString) DO
IF aString <> ' ' THEN