Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
.. dann mache doch aus der globalen Variablen eine lokale Variable.
edit: oder nutze dynamische Listen, wir TList oder wie schon versucht dynamische Arrays.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
..warum gehen denn nur 10000 Elemente?
Ist der Speicher (Stack)zu gering?
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
ich sollte nach Hause gehen, bin sowas von daneben heute...
procedure mutiere(var viech:tviech);
begin
viech.laenge:=viech.laenge+random(5);
viech.haare:=viech.haare+random(5);
end;
und mein Delphi mag auch keine Umlaute.
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
Das kommt davon, copy und paste, und nicht darauf achten was denn kopiert wurde:
procedure mutiere(var viech:tviech);
begin
viech.länge+random(5);
viech.haare+random(5);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
So ^ sollte es gehen.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
@HenKst
das Assign muss nicht sein, denn die Array Elemente sind ja "nur" records als statisch.
Das Array an sich ist dynamisch die einzelnen Felder wiederum statisch.
@vsilverlord
Ich denke es liegt ein Fehler in der Procedure mutiere vor,
denn nur wenn hier das Array Feld (Tviech) nicht geändert wird
sind alle Elemente/Felder des Arrays gleich.
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
.. im Prinzip kann man ja einen Timer bzw. dessen Funktion wie eine Schleife
sehen.
Und dann wird dieser Code immer wieder ausgeführt.
procedure tform1.timer1timer(sender:tobject);
begin
inc(blaueviecher.viecheranzahl);
setlength(blaueviecher.viecher,blaueviecher.viecheranzahl+1); //der array ist 1 größer wie die benötigte anzahl
blaueviecher.viecher:=blaueviecher.viecher //...
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
.. kanst Du dazu etwas mehr Code zeigen?
Hier sieht man ja nicht einmal, ob das ganze in einer Schleife läuft
oder in welcher Umgebung das ganze stattfindet.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
8. Jan 2009
.. machst Du nicht mit dieser Zeile alle Elemete gleich?
blaueviecher.viecher:=blaueviecher.viecher
Angenommen viecherAnzahl = 8
Dann bekommt das Element 8 alle Datenfelder des Elementes 7
Angenommen viecherAnzahl = 9
Dann bekommt das Element 9 alle Datenfelder des Elementes 8
Nun sind schon die Element 7,8 und 9 gleich.