Thema
:
Delphi
Stringlist nach fehlenden Werten durchsuchen?!?
Einzelnen Beitrag anzeigen
shmia
Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
#
4
Re: Stringlist nach fehlenden Werten durchsuchen?!?
26. Okt 2004, 16:06
zusammenfalten
·
markieren
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
;
// prüfen, welchen Werte dazwischen fehlen
for
i := minWert+1
to
maxWert-1
do
begin
if
StringListe.IndexOf(IntToStr(i)) = -1
then
begin
// Wert fehlt
StringListe.Add(IntToStr(i));
end
;
end
;
Andreas
Zitat
shmia
Öffentliches Profil ansehen
Mehr Beiträge von shmia finden