Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
9. Jan 2009
:)
Jetzt meine Idee (ungetestet, sollte evtl. einen Tick schneller sein).function RemoveDoubles(const str: string; const ch: Char = #32): string;
var
I, Cnt, Len: Integer;
CurrChar: Char;
LastWasChar: Boolean;
begin
Len := Length(str);
SetLength(Result, Len);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
9. Jan 2009
Bei SetLength ist das SizeOf(Char) falsch! SetLength arbeitet immer mit der Elementgröße (bei Strings also SizeOf(Char)). In Delphi 2009 würde Dein Result-string einfach zu lang sein.
...:cat:...