Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
14. Aug 2005
Hallo alzaimar,
man KANN nicht nur IndexOf() durch die Gleichsetzung von j mit i ersetzen, man MUSS es sogar. Habe ich auch so in meiner library geändert und doch den falschen Code hier bereit gestellt. Muss unbedingt ein Seminar zum Thema Copy & Paste besuchen...
Nochmal danke
marabu
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
14. Aug 2005
Sharky, du hast tatsächlich einen Fehler in meiner Routine gefunden und alzaimar hat ihn korrekt erklärt. Vielen Dank euch beiden.
procedure KeepDuplicates(sl: TStringList; allDuplicates: boolean = false);
var
i, j, dist: integer;
begin
if not sl.Sorted then
sl.Sort;
for i := sl.Count - 1 downto 0 do begin
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
14. Aug 2005
Die von Frank beschriebene Methode kenne ich aus meiner code library:
procedure KeepDuplicates(sl: TStringList; allDuplicates: boolean = false);
var
i, dist: integer;
begin
if not sl.Sorted then
sl.Sort;
for i := sl.Count - 1 downto 0 do begin