Stringlist nach fehlenden Werten durchsuchen?!?

[Dano]

hi,

wenn du nur eine liste vervollständigen willst, dann wäre der einfachste und schnellste weg einmal den minimalwert und dann den maximalwert festzustellen, so wie es der erte teil von shmia's funktion zeigt

Delphi-Quellcode:

// minimalen und maximalen Wert feststellen
minWert := MaxInt;
maxWert := MinInt;
for i := 0 to StringListe.count-1 do
begin
   wert := StrToInt(StringListe[i]);
   if wert > maxWert then maxWert := wert
   else if wert < minWert then minWert := Wert;
end;

und dann einfach eine neue liste mit werten zwischen min und max erstellen... dann sparste dir die vielen vergleiche
denn:if StringListe.IndexOf(IntToStr(i)) = -1 then IndexOf vergleicht die werte in der liste solange bis er einen findet, oder wenn er keinen findet gibt er -1 zurück

also einmal die ganze liste durchsuchen wäre genauso wie einmal die ganze liste neu zu schreiben....
nur beim duchsuchen wiederhot er die suche bei 100 einträgen 100mal

also 1mal schreiben oder 100mal suchen...?

Delphi-Quellcode:

// minimalen und maximalen Wert feststellen
minWert := MaxInt;
maxWert := MinInt;
for i := 0 to StringListe.count-1 do
begin
   wert := StrToInt(StringListe[i]);
   if wert > maxWert then maxWert := wert
   else if wert < minWert then minWert := Wert;
end;

// einfach alle werte in dem bereich anlegen.....
for i := minWert+1 to maxWert-1 do NeuStringListe.Add(IntToStr(i));

ich hoffe ich habe dein problem richtig verstanden..
wenn du natürlich wissen willst welche werte fehlen, dann hilft meine version nicht

ansonst kannst du die liste vorher sortieren und dann einfach überprüfen ob die zahlen aufeinander folgen, wenn nicht mußt du eine einfügen
das spart auch ein haufen sucherrei

mfg Dano