Eigene Procedure aufrufen

[ferby]

hallo,

danke!

[jfheins]

Zitat:

//Hierrein gehts... Was das dann ist ka ^^

Dürfte published sein ...

[Leon de Bar]

@ Kedariodakon:

äh, verstehe ich das richtig? in der published oder private nenne ich nur die function oder procedure als würde ich sie aufrufen, und im implementation-teil schreibe ich dann die prozedur mit allen einzelheiten auf und irgendwann rufe ich sie dann tatsächlich auf wenn ich sie brache???

also im grunde bezieht sich meine frage eigentlich nur auf den ersten part meiner langen frage... (??? alles klar? ich bin nun verwirrt von dem was ich frage?) ;o)

Danke schon mal.
Gruß Leon.

[alcaeus]

Hi Leon,

Zitat von Leon de Bar:

äh, verstehe ich das richtig? in der published oder private nenne ich nur die function oder procedure als würde ich sie aufrufen, und im implementation-teil schreibe ich dann die prozedur mit allen einzelheiten auf und irgendwann rufe ich sie dann tatsächlich auf wenn ich sie brache???

im private oder public-Teil wird die Prozedur deklariert. Dort steht noch kein Code für die Prozedur. Irgendwo nach dem implementation wird sie dann implementiert, d.h. der Code für die Routine wird geschrieben. Dort ist aber wichtig, vor dem namen der Funktion den Klassennamen gefolgt von einem Punkt zu schreiben. Aufrufen kannst du sie anschließend wieder ganz normal.
Noch kurz ein Beispiel:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function FooBar(Foo: Integer): Integer; //Deklaration
  public
    { Public declarations }
  end;

implementation;

function TForm1.FooBar(Foo: Integer): Integer; //Implementation, dabei Klassenname nicht vergessen
begin
//Code
end;

procedure Button1Click(Sender: TObject);
begin
//Aufruf:
  FooBar(5);
end;

Ich hoffe das klärt dein Problem..

Greetz
alcaeus

[Leon de Bar]

Joooooo, danke.

nun habe ich nur noch ein verständigungsprob zum theme function...:

function FooBar(Foo: Integer): Integer;

warum 2 mal integer? wie liest man das denn nun wieder. ich werde aus der OH nicht wirklich schlau. Also ich verstehe das soweit. die function heißt FooBar. Die Variable Foo ist eine integer und liefert irgend einen integerwert nach durcharbeitung der function wieder zurück... oder?

was aber bitte bedeutet das zweite integer? das die function ein integer ist??? wenn ja, warum das denn???

sorry, wenn ich so dämlich frage...

[alcaeus]

Hi Leon,

also, die Funktion heißt FooBar, und erwartet einen Integer-Parameter. So weit, so gut. Das zweite Integer ist der Ergebnistyp der Funktion, er muss nicht Integer sein, könnte auch Single, String, TDateTime oder irgendetwas sein. Dies kommt dann auf den Verwendungszweck der Funktion an.

Greetz
alcaeus

[Sharky]

Hai Leon de Bar,

hier mal eine Funktion die es dir eventuell einfach macht es zu verstehen:

Delphi-Quellcode:

function ADDInteger(a,b: Integer): Integer;
begin
  result := a + b;
end;

[Leon de Bar]

ahaaaa, danke leute. nun ist licht in meinem dunkel... thx!!!

[Leon de Bar]

Zitat von Leon de Bar:

ahaaaa, danke leute. nun ist licht in meinem dunkel... thx!!!

*sprach er und verstummte wieder *

ich habe nun meine proceduren geschrieben... funzt auch super AAAAABEEEEEEEEEEER:

Mein programm sieht vor nun (die procedure erzeugt eine neue ACCESS-DB) dass ein neues Form aufgeht in dem ich einmalig die Startparameter erfasse. Wenn ich nun Form2.showmedal; schreibe bekomme ich einen Speicherfehler

Wie rufe ich denn nun das 2. Form auf???

Leon.

[alcaeus]

Hi Leon,

erstellt doch bitte ein eigenes Thema zu deinem Problem, da dein Problem wirklich nichts mit dem Ursprungsthema des Threads gemeinsam hat.

Greetz
alcaeus