Forum: Lazarus (IDE)
by DeddyH,
12. Sep 2013
Hinten links am Rollator-Parkplatz vorbei, ich komme gleich nach. Auch meine Verkalkung scheint langsam voran... Hallo Fräulein? Wann gibt' s Essen?
Forum: Lazarus (IDE)
by DeddyH,
12. Sep 2013
*Pfüh*. Allerdings ist mein Vorschlag genauso schwachsinnig, da bei weniger Elementen der Index negativ wird. Das ist mir aber erst später aufgefallen :roll:.
Forum: Lazarus (IDE)
by DeddyH,
11. Sep 2013
Das knallt aber genauso, wenn die Liste weniger als 8 Elemente hat. Besser so:
j := 8;
while j <= Liste.Count do
begin
Liste := Dideldum;
Liste := Düdeldü;
...
Liste := LetzterEintrag;
inc(j, 8);
end;
Forum: Lazarus (IDE)
by DeddyH,
11. Sep 2013
1. If-Schleife
2.
Nehmen wir mal an, das Memo enthält 4 Zeilen. Dann ergibt das im letzten Durchlauf 1*8+4 = 12. 12 ist aber um einiges größer als 4 (wobei die 4. Zeile auch noch den Index 3 hat, also noch einen weniger). Was soll denn dabei herauskommen?
Forum: Lazarus (IDE)
by DeddyH,
21. Aug 2013
An das "- 1" hab ich auch zuerst gedacht, aber es wird ja nirgends auf Form1.zwischenspeicher.Lines zugegriffen, sondern immer auf abenteuerliche Indizes, die nach einer magischen Formel berechnet werden. Man darf mich jetzt meinetwegen hassen, aber nach dem ersten Blick auf den Code kam mir der alte Spruch "Niemand ist unnütz, er kann immer noch als schlechtes Beispiel dienen" in den Sinn.