Forum: Sonstige Fragen zu Delphi
Delphi
by leddl,
13. Sep 2005
Ja das is mir klar, wenn er sowas weiß ist das kein Problem. Nur wie sicher kann er denn jetzt sagen, bis zu welcher Zahl es keine Lücken gibt? Das meinte ich. Das könnte man natürlich gesondert speichern, aber ich denke bei Zahlen von 1 bis 999 lohnt sich das nur unmerklich.
//Edit: Schwachfug, natürlich hast du recht. Nich gründlich genug gelesen, was du geschrieben hast. Klar könnte man...
Forum: Sonstige Fragen zu Delphi
Delphi
by leddl,
13. Sep 2005
Achso, darum gings dir. Das habe ich seinem Psot entnommen. Für mich sah das ganz so aus, als wollte er die kleinstmögliche. Du hast mich ganz schon geschafft, Herr Hai! :lol: Hatte schon an mir oder zumindest dir gezweifelt. ;)
:gruebel: Und wie hilft das? das weiß er ja nicht, sondern muß es trotzdem noch prüfen. Bzw er weiß es vielleicht, aber das Programm nicht ;)
Aber wie gesagt, eine...
Forum: Sonstige Fragen zu Delphi
Delphi
by leddl,
13. Sep 2005
Also sofern ich dein Problem wirklich richtig verstanden habe (Sharky macht mich da ganz wuschig ;)), sollte mein Code es absolut tun. Besonders viel schneller sollte es auch eigentlich nicht gehen, denn du hast ja nur 2 Möglichkeiten:
Entweder, du prüfst jede Zahl von 1 bis 999 durch, ob sie vorhanden ist (das kann dann aber etwas länger dauern, da du bei einer ListBox dafür IndexOf aufrufen...
Forum: Sonstige Fragen zu Delphi
Delphi
by leddl,
13. Sep 2005
:shock: Wie bitte? :gruebel: Er wollte wissen, wie er an die erste nicht besetzte Zahl kommt, und genau das machen doch die beiden Codeschnipsel. Da die Listbox sortiert ist, kann man von vorne aus prüfen, welche Zahlen vorhanden sind. Man fängt also beim ersten Item (Index = 0) an und prüft, ob der Wert dort 1 ist. Was kleineres als 1 kann da nicht stehen, also ist es entweder 1 oder größer als...
Forum: Sonstige Fragen zu Delphi
Delphi
by leddl,
13. Sep 2005
OK, aber meine Antwort wird ignoriert... :shock:
Forum: Sonstige Fragen zu Delphi
Delphi
by leddl,
13. Sep 2005
Mir fällt spontan nur ein, die Listbox von vorne durchzugehen und zu prüfen, ob die Zahl am entsprechenden Index Index+1 ist. Ist das nicht der Fall, kannst du Index + 1 einfügen. (Vorausgesetzt, du startest mit 1, und nicht mit 0)
Also:
For i := 0 To ListBox1.Items.Count - 1 Do
If StrToInt(ListBox1.Items) > i+1 Then
break;
//i+1 ist die Zahl, die eingefügt werden muß
//i ist der...