Zitat von
ByStones2:
EDIT:
zur erläuterung:
akte heißt, ob die aktie steigt oder sinkt
plus_m heißt um wie viel sie steigt bzw. sinkt
wert ist der wert der aktie nach sinken, steigen
Also, wenn du es richtig ordentlich machen willst, dann würde ich eine Klasse schreiben, und die kannst du dann nach belieben ausstatten.
Aber zu deinem Beispiel:
Du kannst doch einfach akte weglassen. Und wie willst du überhaupt wert initialisieren? In deinem Beispiel dürfte es nicht funktionieren; denn wert hat sicherlich einen wert, aber bestimmt nicht 0.
Du kannst einfach eine Globale Vaiable nehmen.
Deswegen:
Globale Variable heißt wert. (und wurde ganz am Anmfang :=0 gesetzt)
Delphi-Quellcode:
procedure TForm1.AktienKTimer(Sender: TObject);
const maxRaufRunter=9;
var plus_m:double;
begin
if wert = 0 then
wert := 100;
if random(2)=0 then
plus_m := random(maxRaufRunter+1)
else
plus_m := -random(maxRaufRunter+1);
wert := wert + plus_m;
Panel23.Caption := floattostr(wert)+' €';
end;