denkfehler; array-> dynarray

[HenKst]

Zitat von Klaus01:

Zitat von vsilverlord:

ach ja, die funktion mutiere hat ja nur den parameter tviech: [vereinfacht, aber im prinzip das gleiche]

Delphi-Quellcode:

procedure mutiere(var viech:tviech);
begin
  result.länge:=viech.länge+random(5);
  result.haare:=viech.haare+random(5);
end;

So ^ sollte es gehen.

Grüße
Klaus

Ändert doch immernoch nichts am übergebenen TViech.
Oder ist result in procedure ein pseudonym für den ersten var parameter? (könnte ja sein )

Delphi-Quellcode:

procedure mutiere(var viech:tviech);
begin
  viech.länge:=viech.länge+random(5); //oder inc(viech.länge, random(5) wenns kurz sein soll:)
  viech.haare:=viech.haare+random(5);
end;

sollte klappen

oder hallte tatsächlich

Delphi-Quellcode:

Function mutiere(var viech:tviech): TViech
begin
  result.länge:=viech.länge+random(5);
  result.haare:=viech.haare+random(5);
end;

blaueviecher.viecher[blaueviecher.viecheranzahl]:= mutiere(blaueviecher.viecher[blaueviecher.viecheranzahl]);

dann könnte man auch neue viecher direkt als mutationen von alten viechern erzeugen.