Variable aus anderer Procedure auslesen

[Sir Rufo]

Zeig doch mal was du hast und wo du das benutzen möchtest, dann kann man auch konkret antworten.

[FCCrobi2]

Zitat von Sir Rufo:

Zeig doch mal was du hast und wo du das benutzen möchtest, dann kann man auch konkret antworten.

Der ganze Quelltext wäre hier viel zu lang,desswegen ist hier sehr viel rausgekürzt, ich hoffe aber es ist alles wichtige dafür drin.
Die Variablen EA,Quote1 und Quote2 berechne ich in Procedure 1 und benötige sie dort später auch. In der zweiten Procedure brauche ich diese drei allerdings
auch, möchte sie aber nur ungern neu berechnen. Desswegen verzweifle ich die letzten Stunden daran sie in mehreren Procedures nutzen zu können.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Elo1,Elo2: integer;
EA,Potenz,Pot,Quote1,Quote2: real;
begin
Elo1:=strtoint(Form1.Edit1.Text);
Elo2:=strtoint(Form1.Edit2.Text);
IF Elo1 > Elo2 then
  begin
  IF Elo1-Elo2>400 then
    begin
    Pot:=1;
    end
  else if Elo1-Elo2<400 then
    begin
    Pot:=(Elo1-Elo2)/400;
    end
  end
else IF Elo1<Elo2 then
  begin
  IF Elo2-Elo1>400 then
    begin
    Pot:=1;
    end
  else IF Elo2-Elo1<400 then
    begin
    Pot:=(Elo2-Elo1)/400;
    end
  else IF Elo1=Elo2 then
    begin
    Pot:=0;
    end
  end;

Potenz := Power(10, Pot);
[B]EA:=1/ (1 + Potenz)[/B];

IF Elo1>Elo2 then
  begin
[B]  Quote1:=1/((1-EA)*100)*100;
  Quote2:=1/(EA*100)*100;[/B]
  end
else if Elo1<Elo2 then
  begin
[B]  Quote1:=1/(EA*100)*100;
  Quote2:=1/((1-EA)*100)*100;[/B]
  end
else if Elo1=Elo2 then
  begin
[B]  Quote1:=2;
  Quote2:=2;[/B]
end;




procedure TForm1.Button5Click(Sender: TObject);
var
z,Einsatz:integer;
begin
z:=0;
z:=Random(100);
Einsatz:=strtoint(Form1.Edit5.Text);
IF Form1.ComboBox3.ItemIndex=0 then begin
    IF [B]z<EA[/B] then
    begin
    Form1.Label23.Caption:=floattostr([B]Quote1*Einsatz[/B])+' Euro gewonnen!';
    end
    else if [B]z>EA[/B] then
    begin
    Form1.Label23.Caption:=floattostr(Einsatz)+' Euro verloren!';
  end
else if Form1.ComboBox3.ItemIndex=1 then begin
    IF [B]z<EA[/B] then
    begin
    Form1.Label23.Caption:=floattostr(Einsatz)+' Euro Verloren';
    end
    else if [B]z>EA[/B] then
    begin
    Form1.Label23.Caption:=floattostr([B]Quote2*Einsatz[/B])+' Euro gewonnen!';
    end;
end;

[Sir Rufo]

Könntest du deinen Beitrag bitte bearbeiten und den Quelltext in die dafür vorgesehenen

Code:

[DELPHI]
[/DELPHI]

Tags setzen? So kann das kein ... lesen

[FCCrobi2]

Zitat von Sir Rufo:

Könntest du deinen Beitrag bitte bearbeiten und den Quelltext in die dafür vorgesehenen

Code:

[DELPHI]
[/DELPHI]

Tags setzen? So kann das kein ... lesen

Ok
Wusst ich nicht

[lbccaleb]

Um welche Variable handelt es sich jetzt konkret?

[FCCrobi2]

Zitat von lbccaleb:

Um welche Variable handelt es sich jetzt konkret?

EA, Quote1 und Quote 2.

[lbccaleb]

Ja und wenn du die Global machst geht es nicht, ich sehe da kein Problem. Wenn erst Button1. click ausgeführt wird und dann Button5.Click sollte es gehen, was da noch passiert Button2-4 usw kann ich natürlich nicht sagen.