unenügend forward oder external daklaration

[Wadim]

hi,

folgendes problem:

wenn ich mein project starten will sagt er zu mir:

unenügend forward oder external daklaration : .....

er erkennt also nicht das ich dort mein speedbutton ist- aber ich habe dort nichts gelöschte oder entfernt- gibt es eine andere möglichkeit als nur den speedbutton zu entfernen und durch einen neuen ersetzen, habe nähmlich 10 solcher fehler und habe keine lust sie alle neu zu machen!!!

danke

[fkerber]

Hi!

Keine Garantie für nix, aber wenn ich mich recht erinner, steht da oben, wo die Buttons und so deklariert werden was drin, was nicht so ganz korrekt ist. Also evtl dort, oder dort wo die procedures click etc. stehen!
Einfach mal schauen, vielleicht hilfts!

Ciao fkerber

p.s. vielleicht besseren Titel auswählen

[himitsu]

Zitat:

unenügend forward oder external daklaration

sagt, das eine Procedure/Function nicht oder erst nach dem Aufruf deklariert ist.

Zeig mal die entsprechende Unit oder das Prog. Dann können wird dir bestimmt sagen woran es liegt.

[Wadim]

also hier ein kleiner ausschnitt wo der fehler angezeig wird (bei speedbutton129)

Delphi-Quellcode:

    procedure SpeedButton43Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
    procedure SpeedButton129Click(Sender: TObject);
    procedure SpeedButton130Click(Sender: TObject);

und hier der befehl für den speedbutton:

Delphi-Quellcode:

procedure TDemoBar.SpeedButton129Click(Sender: TObject);
var a : integer;
begin
for a := 44 to 113 do
(findcomponent ('edit' + inttostr (a)) as tedit).text := '';
end;

danke

[himitsu]

Überprüfe mal folgendes:
1. Das Formular heist DemoBar
2. Deine Procedure ist in der selben Unit

Delphi-Quellcode:

Unit ...

Interface

  Type TDemoBar = Class(TForm)
    SpeedButton129: TSpeedButton;
    Procedure SpeedButton129Click(Sender: TObject);
  End;

  Var DemoBar: TDemoBar;

Implementation

  Procedure TDemoBar.SpeedButton129Click(Sender: TObject);
    Var a: Integer;
    Begin
      For a := 44 to 113 do
        (FindComponent('edit' + IntToStr(a)) as TEdit).Text := '';
    End;

End.

Mehr kann ich aus diesem Stückchen auch nicht erkennen.

[Sharky]

Hai Wadim,

bite nicht falsch verstehen:

Aber "fehlermeldungen" haben viele. Ändere doch deinen Titel etwas ab. Danke :hi:

[Wadim]

Zitat:

Zitat von Sharky

Hai Wadim,

bite nicht falsch verstehen:

Aber "fehlermeldungen" haben viele. Ändere doch deinen Titel etwas ab. Danke :hi:

beispiele bitte- mir fält leider nichts konkretes ein :?

[Sharky]

Zitat:

Zitat von Wadim

....beispiele bitte- mir fält leider nichts konkretes ein :?

Z.B:

Fehler bei Projekt Start : "unenügende forward daklaration"

[Wadim]

fehler gefunden:


das ''End.'' ganz am ende hab ich irgendwie ausversehn gelöschte :wall:

danke für eure hilfe

mfg wadim

[himitsu]

Wenn das fehlt kommt doch normalerweis 'ne andere Fehlermeldung. Oder?

Zitat:

Deklaration erwartet, aber Dateiende gefunden

PS. Die Rechtschreibfehler musste nicht mit kopieren, die sind Sharky's Eigentum. :zwinker: