Forum: Object-Pascal / Delphi-Language
Delphi
by kenshin3672,
23. Okt 2016
procedure TForm1.Button1Click(Sender: TObject);
begin
//anderes Zeugs;
begin
nGewinn(Zahl1,Zahl2,Zahl3,Zahl4);
end;
//noch mehr anderes Zeugs
end;
Hab es genauso übernommen und es funktioniert einwandfrei.
Forum: Object-Pascal / Delphi-Language
Delphi
by kenshin3672,
23. Okt 2016
Das bereits auf Seite 1 stehende und folgendes:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Tform1.Button1Click(Sender)
then TForm1.nGewinn(parameter : integer) : integer;
end;
procedure TForm1.Button1Click;
Forum: Object-Pascal / Delphi-Language
Delphi
by kenshin3672,
23. Okt 2016
Um das hier mal gleich weiter zu führen.
ich habe folgendes Problem:
Programmiere gerade einen Spielautomaten bei dem ich eine procedure außerhalb stehen habe und in Button1.Click aufrufen will.
procedure ist folgende:
procedure TForm1.nGewinn (parameter : integer);
begin
//viele codezeilen
end;