Forum: Object-Pascal / Delphi-Language
Delphi
by dahead,
30. Nov 2005
Hi Lucius!
so müsste es hoffentlich funktionieren:
procedure KillDuplicates(SL: TStringList);
var
I, F: integer;
begin
for I := SL.Count - 1 downto 0 do
Forum: Object-Pascal / Delphi-Language
Delphi
by dahead,
30. Nov 2005
also ich kenne keine direkte funktion. du könntest dir eine selber basteln (z.b. zwei for-schleifen, die den text der stringliste vergleichen und bei gleichheit löschen. das könntest du mit "for I := SL.Count - 1 downto 0 do for F := SL.Count - 1 downto 0 do ..." lösen).
aber ich denke, dass deine killdupes funktion/routine das schon macht, oder? wie sieht die denn aus, bzw. was passiert, wenn...
Forum: Object-Pascal / Delphi-Language
Delphi
by dahead,
29. Nov 2005
ahja, dann nehme ich mal an, dass killduplicates die menge der einträge kürzt. du aber mit der variable anzahl noch auf die alte menge zugreifst.
du musst also entweder die variable neu zuweisen (anzahl := SL.Count-1) oder aber in der for schleife for I := 0 to SL.Count - 1 verwenden.
Forum: Object-Pascal / Delphi-Language
Delphi
by dahead,
29. Nov 2005
Hallo,
bevor ich dir auf eine egtl. Frage antworten kann, muss ich selbst ein paar Dinge wissen:
was liest du mit "anzahl:=strtoint(sl);" aus? bzw. bist du sicher, dass die auswertung stimmt.
du gehst mit "for i:=0 to anzahl do " eine Schleife durch. Bist du sicher, dass da kein - 1 hin kommt?
Das verstehe ich nicht: