Deklaration von Proceduren

[Frage95]

Hey, ich habe eine Frage bezüglich deklaration von proceduren.
Hatte biher eigentlich keine Probleme damit doch seit ich 2 Units in Projekt eingebunden habe bekomme ich andauern den Fehler

Ungenügend forwar - oder external Deklaration

Obwohl ich die procedure test im interface teil deklariert habe und sie im implementations unten aufgerufen und bearbeitet habe.

:?::?::?::?:

Kann mir jemand sagen welchen Fehler ich übersehe ?

Codebeispiel ist bei dieser Frage ja nicht unbedingt nötig kann man sich ja ausmalen:thumb::thumb:

:)

[Back2Code]

Zitat:

Zitat von Frage95 (Beitrag 1234828)

Codebeispiel ist bei dieser Frage ja nicht unbedingt nötig kann man sich ja ausmalen

Das kann an allen möglichen Sachen liegen, also poste doch mal deine Code.

[Uwe Raabe]

Zitat:

Zitat von Frage95 (Beitrag 1234828)

Codebeispiel ist bei dieser Frage ja nicht unbedingt nötig kann man sich ja ausmalen:thumb::thumb:

Das ist wirklich das Dümmste, was ich hier je gelesen habe!

[Frage95]

Delphi-Quellcode:

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, slstbox, CurvyControls, Winsock, AdvGlassButton, ColListb;

type
  TfrmMainForm = class(TForm)
    EdNickname: TCurvyEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    BtnAusführen: TAdvGlassButton;
    procedure BtnAusführenClick(Sender: TObject);
//    procedure ListBox1DblClick(Sender: TObject);
      procedure test;

Delphi-Quellcode:

implementation

procedure test;
var
ta,Test : string;
begin
Ta := frmMainForm.EdNickname.Text;
Test := frmMAinform.ListBox1.Items[frmMainform.ListBox1.ItemIndex];
if Test = Ta then begin
   frmClient.Show;
end;
end;

Komm von deinem Ross runter Uwe oder bist du ein vom Himmel gefallener Meister! ^^

[DeddyH]

Was ist denn der Unterschied zwischen einer Methode und einer regulären Prozedur?

[baumina]

http://www.delphi-treff.de/object-pa...nd-funktionen/

Ist die Procedure innerhalb eines Formulars deklariert (ACHTUNG, bitte im private-Bereich), dann:

Delphi-Quellcode:

procedure TfrmMainForm.test;
begin
 ...
end;

[Back2Code]

Zitat:

Zitat von Uwe Raabe (Beitrag 1234830)

Zitat:

Zitat von Frage95 (Beitrag 1234828)

Codebeispiel ist bei dieser Frage ja nicht unbedingt nötig kann man sich ja ausmalen:thumb::thumb:

Das ist wirklich das Dümmste, was ich hier je gelesen habe!

:thumb: Delphianer <> Hellseher

[Frage95]

Den Delphi Treff kenne ich schon

aber was genau wollt Ihr mir sagen?

ich habe das bisher (letzen 2 Monate) nicht anders gemacht als heute
doch jz funkt es nicht mehr ? :?:

[Back2Code]

Zitat:

Zitat von Frage95 (Beitrag 1234836)

Den Delphi Treff kenne ich schon

aber was genau wollt Ihr mir sagen?

ich habe das bisher (letzen 2 Monate) nicht anders gemacht als heute
doch jz funkt es nicht mehr ? :?:

Wenn du eigene Proceduren in einer VCL Anwendung einbauen willst musst du vor dem procedure Namen noch den Namen deiner Form davorsetzen in deinem Fall:

Delphi-Quellcode:

 TfrmMainForm.DeinProcedurname

:!: Beim Type natürlich ohne...

[DeddyH]

Ich möchte noch einmal auf meine Frage in #5 zurückkommen, denn wenn man das nicht beantworten kann, kann man Eure Vorschläge zwar umsetzen, weiß aber nicht, woran es letztendlich lag.

[Frage95]

Das habe ich jz gemacht erhalte aber den gleichen Fehler plus noch einen oben drauf

"Diese Form des MEthodenaufrufs ist nur für Klassenmethoden erlaubt"

[Frage95]

Unter Methode versteht man in Delphi

functionen oder Prozeduren

fuctionen und proceduren werden auch routinen gennant

beantwortet das deine frage?

[DeddyH]

Nein.

[Back2Code]

Greifst du mit der procedure test aus einer anderen Unit auf eine VCL Komponente zu?

[Frage95]

Nein tue ich nicht.

Würdest du mir die antwort sagen ? :shock:

[baumina]

Dann halt nochmal ausführlich:

Delphi-Quellcode:

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, slstbox, CurvyControls, Winsock, AdvGlassButton, ColListb;

type
  TfrmMainForm = class(TForm)
    EdNickname: TCurvyEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    BtnAusführen: TAdvGlassButton;
    procedure BtnAusführenClick(Sender: TObject);
  private   // <----
      procedure test;
  end;

Delphi-Quellcode:

implementation

procedure TfrmMainForm.test; // <---
var
ta,Test : string;
begin
Ta := EdNickname.Text;
Test := ListBox1.Items[ListBox1.ItemIndex];
if Test = Ta then begin
   frmClient.Show;
end;
end;

[Back2Code]

Zitat:

Zitat von Frage95 (Beitrag 1234844)

Nein tue ich nicht.

Würdest du mir die antwort sagen ? :shock:

Wieso tust du dann vor

Delphi-Quellcode:

frmMAinform.ListBox1.Items

noch den Formnamen dazu? Ist doch nur notwendig wenn deine Procedure ausgelagert wäre in einer anderen Unit...

[Frage95]

okay danke es funktioniert

aber wieso muss ich diese in private deklarieren?

möchte nur verstehn was ich da tue?

[Back2Code]

Zitat:

Zitat von Frage95 (Beitrag 1234848)

okay danke es funktioniert

aber wieso muss ich diese in private deklarieren?

möchte nur verstehn was ich da tue?

private Ein private-Element kann nur innerhalb der gleichen Unit verwendet werden. Aus anderen Units ist ein Zugriff nicht möglich.

protected Ein protected-Element ist wie ein private-Element innerhalb der gleichen Unit verwendbar. Darüberhinaus haben alle abgeleiteten Klassen darauf Zugriff, unabhängig davon, in welcher Unit sie sich befinden.

public public-Elemente unterliegen keinen Zugriffsbeschränkungen.

http://www.delphi-treff.de/object-pa...f-auf-objekte/

[DeddyH]

Wieso unbedingt unter private würde mich auch interessieren. Aber davon ab: eine Methode gehört zu einer Klasse (oder genauer, einer Instanz der Klasse), eine reguläre Routine nicht.

Delphi-Quellcode:

type
  TDings = class
    (* Deklaration der Methode Bums der Klasse TDings *)
    procedure Bums;
  end;

(* Prototyp der regulären Prozedur Wuppdi *)
procedure Wuppdi;

implementation

(* Implementation der Methode, der Klassenname ist zwingend voranzustellen *)
procedure TDings.Bums;
begin
  ...
end;

(* Implementation der Prozedur Wuppdi ohne Klassennamen (welchen denn auch?) *)
procedure Wuppdi;
begin
  ...
end;

[Chris211183]

Hey Hey, da kann ich ja auch mal was konstruktives beitragen und nicht immer nur Fragen stellen !

prozedur = ohne Rückgabewert und Wiederverwendbar, wobei dann die Funktion mit Rückgabewert ist

beim mehrmaligen Aufruf einer Funktion, liefert diese immer das selbe Ergebnis :!::!::!:

Methoden können die Eigenschaften eines Objektes ändern, Edit: bei mehrmaligen Aufruf einer Methode, unterschiedliche Ergebnisse...

:arrow::arrow::arrow:DeddyH nochmals ganz besonderer Dank :!::!::!::!: :thumb::thumb::thumb::thumb:

[baumina]

Zitat:

Zitat von DeddyH (Beitrag 1234852)

Wieso unbedingt unter private würde mich auch interessieren...

Wo würdest du es denn hin tun?

[DeddyH]

Das hängt davon ab, ob ich Zugriff von außen gewähren oder die Methode virtuell bzw. dynamisch deklarieren und damit überschreibbar machen will.

[baumina]

Ich sag da immer nur: "machs den Anfängern doch net gleich so schwer"

[Chris211183]

Zitat:

Zitat von baumina (Beitrag 1234856)

Ich sag da immer nur: "machs den Anfängern doch net gleich so schwer"

lernen durch Leiden:wink:

[DeddyH]

Aus dem Ausgangspost:

Zitat:

Obwohl ich die procedure test im interface teil deklariert habe und sie im implementations unten aufgerufen und bearbeitet habe.

Das macht ja nur dann Sinn, wenn man die Routine/Methode aus anderen Units heraus aufrufen möchte. Da ist private dann eher kontraproduktiv.

[Frage95]

Danke, hat meinem Verständnis gut geholfen!

[DeddyH]

Zitat:

Zitat von Frage95 (Beitrag 1234862)

Danke, hat meinem Verständnis gut geholfen!

:thumb:, das war ja auch der Zweck der Übung ;)

[baumina]

Zitat:

Zitat von Frage95 (Beitrag 1234828)

Codebeispiel ist bei dieser Frage ja nicht unbedingt nötig kann man sich ja ausmalen:thumb::thumb:

:)

Deddy malt glaub anders als ich :-D:-D:-D

[Back2Code]

Zitat:

Zitat von Chris211183 (Beitrag 1234853)

beim mehrmaligen Aufruf einer Funktion, liefert diese immer das selbe Ergebnis

Ist so nicht ganz richtig wenn man eine Funktion mit anderen Parametern aufruft kommt natürlich dementsprechend nicht das gleiche Ergebnis raus grade wenns um Berechnungen / Schleifen geht.

[Uwe Raabe]

Zitat:

Zitat von Frage95 (Beitrag 1234831)

Komm von deinem Ross runter Uwe oder bist du ein vom Himmel gefallener Meister! ^^

Mit "das Dümmste" war ja gar nicht die Frage an sich gemeint, sondern die (nicht mal stillschweigende) Annahme, daß ein Code-Beispiel bei einer Fehlermeldung des Compilers überflüssig sei. Wir sind hier schließlich nicht bei der NSA und haben auch so Zugriff auf deinen Code.

[Chris211183]

Zitat:

Zitat von Back2Code (Beitrag 1234866)

Zitat:

Zitat von Chris211183 (Beitrag 1234853)

beim mehrmaligen Aufruf einer Funktion, liefert diese immer das selbe Ergebnis

Ist so nicht ganz richtig wenn man eine Funktion mit anderen Parametern aufruft kommt natürlich dementsprechend nicht das gleiche Ergebnis raus grade wenns um Berechnungen / Schleifen geht.

ja da hast Du auch wieder Recht :thumb:

[Caps]

Zitat:

Zitat von Chris211183 (Beitrag 1235056)

Zitat:

Zitat von Back2Code (Beitrag 1234866)

Zitat:

Zitat von Chris211183 (Beitrag 1234853)

beim mehrmaligen Aufruf einer Funktion, liefert diese immer das selbe Ergebnis

Ist so nicht ganz richtig wenn man eine Funktion mit anderen Parametern aufruft kommt natürlich dementsprechend nicht das gleiche Ergebnis raus grade wenns um Berechnungen / Schleifen geht.

ja da hast Du auch wieder Recht :thumb:

Die Funktion now() liefert sogar mit gleichem Argument immer andere Werte. :-D

lg Caps