ListBox, wenn gleiche Strings, dann überzählige löschen

[MAC]

mir auch, aber lanes hat recht

Code: Alles auswählen

var
  i,a:integer;
begin
i := 0;
a := 1000;
for i := 0 to a do
    begin
    dec(a);
    end;
Form1.Caption:=inttoStr(i);

eigentlich müsse sich das irgendwo in der mitte treffen- am ende ist i aber 1000...

[Maik81ftl]

mir auch, aber lanes hat recht

Code: Alles auswählen

var
  i,a:integer;
begin
i := 0;
a := 1000;
for i := 0 to a do
    begin
    dec(a);
    end;
Form1.Caption:=inttoStr(i);

eigentlich müsse sich das irgendwo in der mitte treffen- am ende ist i aber 1000...

Ähmmm gegenfrage? warum nicht eine Repeat Until-Schleife???

Code: Alles auswählen

var
  i,a:integer;
begin
i := 0;
a := 1000;
Repeat
      dec(a);
      inc(i);
      until i = a;
Form1.Caption:=inttoStr(i);

sollte doch sicherer Sein oder?

[pluto]

sollte doch sicherer Sein oder?

Jetzt weiß ich auch, warum ich in der Regel keine Forschleifen einsetzte, wenn sich die Reihenfolge der Elemente ändert *G*. Darauf stoße ich jedes mal, also nutzte ich praktisch dafür keine For-Schleife mehr. *G*.... Repet oder While schleifen sind auch besser Steuerbar, als eine For-Schleife.

[MAC]

@maik81ftl: weil ich das gegenbeispiel zeigen wollte, welches "nicht funktioniert".

[carli]

Code: Alles auswählen

var i: integer;
list: TStrings;
begin
 list:=meine_liste; 
 list.sort;
 i:=list.count-1;
 while i>0 do begin
  if list[i]=list[i-1] then list.delete(i);
  dec(i);
 end;
end;

Ich behaupte mal, dass diese Variante eins der besten Laufzeitverhalten hat.

[Maik81ftl]

Hmmm mal ro genau überlegt, sollte dies ja auch bei String laufen, welche keinen Text enthalten. bzw nur ein

Code: Alles auswählen

#13