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.