procedure aufrufen!

[fredel007]

Hi Leute, ich hab da nen problem,...
Ich hab mir ne eigene Funktion (Aufruf) erstellt und deklariert,
nun will ich sie ganz einfach bei einem klick auf nen Button
aufrufen!
und es klappt net!
bitte helft mir!

Delphi-Quellcode:

  type
  TForm1 = class(TForm)

  procedure Aufruf(Sender: TObject)

  private 
   { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Aufruf;
end;

procedure TForm1.Aufruf(Sender: TObject);
begin
 \\source
end;

end.

Danke

[Matze]

unter private oder public gehört noch:

Delphi-Quellcode:

procedure Aufruf(Sender: TObject);

[Edit]Sry, müsste anders (also ganz oben, wie du's hast) auch gehen. :oops: [/Edit]

[ims]

//vergiss es... war schmarrn...

[Christian Seehase]

Moin Fredel,

sieht soweit richtig aus.
Könntest Du vielleicht mal das "klappt net" näher spezifizieren?

[Matze]

Also bei mir ist die Reihenfolge egal... :gruebel:

[Matze]

du musst schreiben:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Aufruf(Sender);
end;

[Nalincah]

1. Die Function/Procedure unter private oder public packen (Muss dann mit TForm1.Aufruf aufgerufen werden) (Sie "gehört" dann praktisch zu der Form1. So kannst du die Proceduren auch aus anderen Units aufrufen.
oder unter private public packen dann wird sie ohne "TForm1." aufgerufen.

2. Semikolon hinter Deklaration

3. Kommentare mit // nicht mit \\

4. Deine Procedure verlangt Parameter. Sender ist die Komponenten die das ganze aufruft. Also z.b.

Delphi-Quellcode:

Aufruf(Button1);

Muss aber nicht sein, du kannst das auch so schreiben:

Delphi-Quellcode:

function test;
....
function test;
begin
end;

So klappt es:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  type 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);



  private
   { Private declarations }
  public
    { Public declarations }
    procedure Aufruf(Sender: TObject);
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin 
  Aufruf(Button1);
end; 

procedure TForm1.Aufruf(Sender: TObject);
begin 
  ShowMessage('Klappt');
end;

end.

[ims]

hast recht matze.

@fredel007: poste immer deine fehlermeldun(en) dazu!! sonst ists rätselraten...

gruss, ims

[Tyrael Y.]

Delphi-Quellcode:

  procedure Aufruf(Sender: TObject)

  private
   { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Aufruf(Sender);     // <--- den Parameter mit übergeben  ;)
end;

procedure TForm1.Aufruf(Sender: TObject);
begin
\\source
end;

end.

;) Gruß

Edit: Mist schon wieder zu langsam :mrgreen:

[Nalincah]

Also bei sowas braucht es eigentlich keine Fehlermeldung, das sollte man auch so erkennen