AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Fehlender Parametertyp!? Und weiteres Problem...
Thema durchsuchen
Ansicht
Themen-Optionen

Fehlender Parametertyp!? Und weiteres Problem...

Ein Thema von Quecki · begonnen am 9. Jun 2006 · letzter Beitrag vom 12. Jun 2006
Antwort Antwort
Seite 1 von 3  1 23      
Quecki

Registriert seit: 20. Mär 2006
13 Beiträge
 
#1

Fehlender Parametertyp!? Und weiteres Problem...

  Alt 9. Jun 2006, 22:28
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
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#2

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 22:30
Wo war nochmal der Verladebahnhof?

Zeig doch mal bitte bisschen Code, mit deiner Beschreibung kann (wohl nicht nur?) ich leider nicht viel anfangen
  Mit Zitat antworten Zitat
Benutzerbild von richie
richie

Registriert seit: 21. Apr 2006
Ort: Dresden
127 Beiträge
 
#3

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 22:31
Ohne Quelltext wird dir keiner helfen können ... Die Fehlermeldung allein sagt wenig
Robert
  Mit Zitat antworten Zitat
Quecki

Registriert seit: 20. Mär 2006
13 Beiträge
 
#4

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 22:33
Was soll ich denn posten? Alles? ^^
  Mit Zitat antworten Zitat
Benutzerbild von richie
richie

Registriert seit: 21. Apr 2006
Ort: Dresden
127 Beiträge
 
#5

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 22:36
Mach einfach! Wird schon schiefgehen ...

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

Edit2: Könntest du bitte die Tags nutzen?
Robert
  Mit Zitat antworten Zitat
Quecki

Registriert seit: 20. Mär 2006
13 Beiträge
 
#6

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 22:39
zusammenfalten · markieren
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]
  Mit Zitat antworten Zitat
Benutzerbild von richie
richie

Registriert seit: 21. Apr 2006
Ort: Dresden
127 Beiträge
 
#7

Re: Fehlender Parametertyp!?

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

P.S.: Bitte nicht schlagen, bin selbst noch nicht lange dabei
Robert
  Mit Zitat antworten Zitat
Quecki

Registriert seit: 20. Mär 2006
13 Beiträge
 
#8

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 22:50
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...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.342 Beiträge
 
Delphi 12 Athens
 
#9

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 23:00
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Quecki

Registriert seit: 20. Mär 2006
13 Beiträge
 
#10

Re: Fehlender Parametertyp!?

  Alt 9. Jun 2006, 23:01
Also nichts in Klammern? Dann hab ich auch nen Fehler...Und zwar den der mangelnden Deklaration...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz