hallo in meinem vorigem thread hab ich ja über die Prozeduren geredet nun hab ich das verbessert und jetzt bin ich beim nächsten Fehler die variablen scheinen nicht klar definiert zu sein und bei den Prozeduren erscheint die fehlermeldung:unsatisfied forward or external declaration

ich häng euch das Programm mal an...

MfG Cloud

deklariere die Funktionen und Prozedure im public oder private Teil,
jenachdem wo Du überall darauf zugreifen willst.

markieren

Delphi-Quellcode:

....
  private
   procedure schuss1(schadenmax,schadenmin:integer; s:real;var l2:integer);
  public
    username:1..2;
  end;

und deine Prozeduren und Funktionen mit TForm1

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.schuss1(schadenmax,schadenmin:integer; s:real;var l2:integer);
var ab:integer;
begin
  Randomize;
  ab :=(random(schadenmax)+schadenmin);
  s := s/10;
  s :=ab+s;
  l2 := l2-ab;
  leben2.Caption := floattostr(l2);
  showmessage(s1+' hat '+s2+' '+floattostr(ab)+' Lebenspunkte abgezogen');
end;

Das ist alles

Hallo,

procedure entfernung(
...

schuss1() <<-- Fehler


schuss1 ist in TForm1 definiert,
entfernung nicht, die ist global und kann mit schuss1 deshalb nichts anfangen.

Lösung:


Alle Methoden innerhalb von TForm1 definieren,
aus procedure entfernung() wird dann procedure TForm1.entfernung(


Heiko

hey danke hat geholfen.

MfG Cloudwalk