Verstehe.
Aber wenn ich versuche das umzusetzen, sagt mir Delphi, dass ich "ungenügend Forward- oder External-Deklarationen" angegeben habe.
Delphi-Quellcode:
type
TForm3 = class(TForm)
.
.
.
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure button_kontrolle;
procedure pnl_attribut_aendern;
end;
var
Form3: TForm3;
freie_attribute, freie_skills : integer;
implementation
{$R *.dfm}
procedure pnl_attribut_aendern;
begin;
form3.Pnl_attribute.caption := 'Sie haben noch '+inttostr(freie_attribute)+' Punkte verfügbar';
end;
procedure button_kontrolle;
begin;
if freie_attribute = 25 then
begin;
form3.Button2.enabled := false;
form3.Button4.enabled := false;
form3.Button6.enabled := false;
form3.Button8.enabled := false;
form3.Button10.enabled := false;
form3.button1.Enabled := true;
form3.button3.Enabled := true;
form3.button5.Enabled := true;
form3.button7.Enabled := true;
form3.button9.Enabled := true;
end else
if freie_attribute = 0 then
begin;
form3.button1.Enabled := false;
form3.button3.Enabled := false;
form3.button5.Enabled := false;
form3.button7.Enabled := false;
form3.button9.Enabled := false;
form3.button2.Enabled := true;
form3.button4.Enabled := true;
form3.button6.Enabled := true;
form3.button8.Enabled := true;
form3.button10.Enabled := true;
end;
if (freie_attribute = 0) AND (freie_skills = 0) then
form3.btn_create.Enabled := true;
end;
Das versteh ich nicht, denn alle Veriablen, die die Prozeduren brauchen sind schon als Globale Variablen deklariert. Und ein Result brauchen, soweit ich weiß, nur Functions :-/ .