Fehlender Parametertyp!? Und weiteres Problem...

[Quecki]

Hallo Leute,
ich habe ein Problem mit Delphi...
Ich habe (oder wollte...) eine Prozedur schreiben, habe da dann auch alles reingeschrieben, was da rein sollte und dann wollte ich sie natürlich "abfragen"... Leider bekomme ich immer Fehlermeldungen... Jetzt habe ich die Prozedur "oben" bei "Type" eingetragen (>>procedure Abfrage(self); pascal;<<), wobei ich nicht weiß, ob das so richtig sein könnte... Auf jeden Fall bekomme ich da 'ne Fehlermeldung (>>Fehlender Parametertyp<<)...
Ich würde mich sehr freuen, wenn ihr mir das WM-Wochenende retten könntet...
In diesem Sinne,
vielen Dank schonmal,
alles Gute,
Johann

[Dax]

Wo war nochmal der Verladebahnhof? :gruebel:

Zeig doch mal bitte bisschen Code, mit deiner Beschreibung kann (wohl nicht nur?) ich leider nicht viel anfangen :(

[richie]

Ohne Quelltext wird dir keiner helfen können ... Die Fehlermeldung allein sagt wenig

[Quecki]

Was soll ich denn posten? Alles? ^^

[richie]

Mach einfach! Wird schon schiefgehen ... :mrgreen:

Edit: Dort wo das Problem auftaucht reicht auch (fürs erste) :stupid:

Edit2: Könntest du bitte die Tags nutzen?

[Quecki]

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Image2: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    Panel1: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image4: TImage;
    Image5: TImage;
    Panel2: TPanel;
    Image6: TImage;
    Button6: TButton;
    Button7: TButton;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Abfrage(self); pascal;

...

procedure Abfrage(self); pascal;
   begin
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel1.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel1.Top Then
  If Form2.Image2.Left < Form2.Panel1.Left + Form2.Panel1.Width -10 Then
  If Form2.Image2.Top < Form2.Panel1.Top + Form2.Panel1.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel2.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel2.Top Then
  If Form2.Image2.Left < Form2.Panel2.Left + Form2.Panel2.Width -10 Then
  If Form2.Image2.Top < Form2.Panel2.Top + Form2.Panel2.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;


  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel3.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel3.Top Then
  If Form2.Image2.Left < Form2.Panel3.Left + Form2.Panel3.Width -10 Then
  If Form2.Image2.Top < Form2.Panel3.Top + Form2.Panel3.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel4.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel4.Top Then
  If Form2.Image2.Left < Form2.Panel4.Left + Form2.Panel4.Width -10 Then
  If Form2.Image2.Top < Form2.Panel4.Top + Form2.Panel4.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel5.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel5.Top Then
  If Form2.Image2.Left < Form2.Panel5.Left + Form2.Panel5.Width -10 Then
  If Form2.Image2.Top < Form2.Panel5.Top + Form2.Panel5.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image4.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image4.Top Then
  If Form2.Image2.Left < Form2.Image4.Left + Form2.Image4.Width -10 Then
  If Form2.Image2.Top < Form2.Image4.Top + Form2.Image4.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;


  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel1.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel1.Top -10 Then
  If Form2.Image2.Left < Form2.Panel1.Left + Form2.Panel1.Width Then
  If Form2.Image2.Top < Form2.Panel1.Top + Form2.Panel1.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel2.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel2.Top -10 Then
  If Form2.Image2.Left < Form2.Panel2.Left + Form2.Panel2.Width Then
  If Form2.Image2.Top < Form2.Panel2.Top + Form2.Panel2.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel3.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel3.Top -10 Then
  If Form2.Image2.Left < Form2.Panel3.Left + Form2.Panel3.Width Then
  If Form2.Image2.Top < Form2.Panel3.Top + Form2.Panel3.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel4.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel4.Top -10 Then
  If Form2.Image2.Left < Form2.Panel4.Left + Form2.Panel4.Width Then
  If Form2.Image2.Top < Form2.Panel4.Top + Form2.Panel4.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel5.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel5.Top -10 Then
  If Form2.Image2.Left < Form2.Panel5.Left + Form2.Panel5.Width Then
  If Form2.Image2.Top < Form2.Panel5.Top + Form2.Panel5.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;


  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image3.Top Then
  If Form2.Image2.Top < Form2.Image3.Top + Form2.Image3.Height Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image3.Left Then
  If Form2.Image2.Left < Form2.Image3.Left + Form2.Image3.Width Then
    begin
      Form2.Visible:=False;
      Form3.Visible:=True;
      Form2.Image2.Top:=432;
      Form2.Image2.Left:=37;
    end;


  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image5.Top Then
  If Form2.Image2.Top < Form2.Image5.Top + Form2.Image5.Height Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image5.Left Then
  If Form2.Image2.Left < Form2.Image5.Left + Form2.Image5.Width Then
    begin
      Form2.Visible:=False;
      Form3.Visible:=True;
      Form2.Image2.Top:=432;
      Form2.Image2.Left:=37;
    end;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image6.Top Then
  If Form2.Image2.Top < Form2.Image6.Top + Form2.Image6.Height Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image6.Left Then
  If Form2.Image2.Left < Form2.Image6.Left + Form2.Image6.Width Then
    begin
      Form2.Visible:=False;
      Form3.Visible:=True;
      Form2.Image2.Top:=432;
      Form2.Image2.Left:=37;
    end;


  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel1.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel1.Left Then
  If Form2.Image2.Top < Form2.Panel1.Top + Form2.Panel1.Height Then
  If Form2.Image2.Left < Form2.Panel1.Left + Form2.Panel1.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel2.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel2.Left Then
  If Form2.Image2.Top < Form2.Panel2.Top + Form2.Panel2.Height Then
  If Form2.Image2.Left < Form2.Panel2.Left + Form2.Panel2.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel3.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel3.Left Then
  If Form2.Image2.Top < Form2.Panel3.Top + Form2.Panel3.Height Then
  If Form2.Image2.Left < Form2.Panel3.Left + Form2.Panel3.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel4.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel4.Left Then
  If Form2.Image2.Top < Form2.Panel4.Top + Form2.Panel4.Height Then
  If Form2.Image2.Left < Form2.Panel4.Left + Form2.Panel4.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel5.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel5.Left Then
  If Form2.Image2.Top < Form2.Panel5.Top + Form2.Panel5.Height Then
  If Form2.Image2.Left < Form2.Panel5.Left + Form2.Panel5.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

   end;

[edit=SirThornberry]Delphi-Tags ergänzt - Mfg, SirThornberry[/edit]

[richie]

Naja, du musst den Typ von Self angeben (falls du den überhaupt irgendwo benutzt :mrgreen: ). Ansonsten kannste das auch weglassen. Ach ja, was zum Henker bedeutet dieses "pascal"?

P.S.: Bitte nicht schlagen, bin selbst noch nicht lange dabei :angel2:

[Quecki]

Wenn ich das weg lasse, kommt der Fehler >> Ungenügende Forward- oder External-Deklaration: 'TForm2.Abfrage'<<
Keine Ahnung, was das pascal da soll... Wenn ich es weglasse is nix anders... War nur ein Versuch es zu retten...

[himitsu]

die beiden Definitionen m´ssen ja übereinstimmen, also unten und oben weglassen.

[add]
ach ja, ohne die nötigen Tags schau ich mir den Code von da oben nicht an.

[Quecki]

Also nichts in Klammern? Dann hab ich auch nen Fehler...Und zwar den der mangelnden Deklaration...