Problem mit strukturen und proceduren

[xan553]

Servus,

ich habe auf meinem form mehrere buttons und groupboxes, zum beispuel mit dem namen GBKdnAnl.

danach habe ich um implementation abschnitt zum beispiel eine procerure die GBKdnAnl den wert visible := True geben sollte ... soweit sogut, wenn ich nun aber das programm starten will kommt der fehler "undefinierter Bezeichner: 'GBKdnAnl'".

woran liegt das?

[Schorschi5566]

Hallo xan553,

zeig' doch mal den Code, dann kann man was dazu sagen.

Die Fehlermeldung bedeutet genau das, was da steht. Du wirst wohl GBKdnAnl nicht oder nicht richtig deklariert haben.


Grüße,
Uwe

[haentschman]

Hallo...

ist denn die procedure auch deklariert ? z.B. im private Abschnitt des Formulares ? Ein wenig Quellcode wäre schon hilfreich.

Nachtrag: 2 doofe ein Gedanke

[xan553]

natürlich hab ich auch quellcode

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, DBCtrls, ExtCtrls, Mask, Grids, DBGrids,
  ComCtrls;
function SoundEx(s:String) : String;
var such, searchin : String;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    MIKundenSuchen: TMenuItem;
    KundenAnlegen1: TMenuItem;
    KundenVerwalten1: TMenuItem;
    Rechnungen1: TMenuItem;
    Rechnungendurchsuchen1: TMenuItem;
    Rechnungenschreiben1: TMenuItem;
    Artikel1: TMenuItem;
    ArtikelDurchsuchen1: TMenuItem;
    ArtikelVerwalten1: TMenuItem;
    Verwaltung1: TMenuItem;
    Beenden1: TMenuItem;
    GBKdnAnl: TGroupBox;

<<<<<< Hier die Groupbox

Delphi-Quellcode:

    EdtVName: TDBEdit;
    EdtAdresse1: TDBEdit;
    EdtAdresse2: TDBEdit;
    EdtAdresse3: TDBEdit;
    EdtStrasse: TDBEdit;
    EdtPLZ: TDBEdit;
    EdtOrt: TDBEdit;
    Panel1: TPanel;
    MemBemerkung: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BtnStore: TButton;
    Label6: TLabel;
    EdtAnr: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    GBKdnSearch: TGroupBox;
    EdtSearch: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    LCode: TLabel;
    BtnSearch: TButton;
    DBGSearch: TDBGrid;
    EdtSearchIn: TEdit;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    EdtNName: TDBEdit;
    Label17: TLabel;
    PCKdnSearch: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBText1: TDBText;
    EdtVName2: TDBEdit;
    EdtNName2: TDBEdit;
    EdtZtz12: TDBEdit;
    EdtZtz22: TDBEdit;
    EdtZtz32: TDBEdit;
    EdtStrasse2: TDBEdit;
    EdtPlz2: TDBEdit;
    EdtOrt2: TDBEdit;
    Label23: TLabel;
    GroupBox2: TGroupBox;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    BtnDatawork: TButton;
    BtnStoreChanges: TButton;
    GBKdnVerw: TGroupBox;
    GroupBox3: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure BtnStoreClick(Sender: TObject);
    procedure KundenAnlegen1Click(Sender: TObject);
    procedure EdtAnrExit(Sender: TObject);
    procedure EdtSearchChange(Sender: TObject);
    procedure BtnSearchClick(Sender: TObject);
    procedure MIKundenSuchenClick(Sender: TObject);
    procedure PCKdnSearchChanging(Sender: TObject;
      var AllowChange: Boolean);
    procedure BtnDataworkClick(Sender: TObject);
    procedure BtnStoreChangesClick(Sender: TObject);
    procedure DBGSearchDblClick(Sender: TObject);
    procedure DBGSearchKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure KundenVerwalten1Click(Sender: TObject);
  private
    procedure Kunden(f: Byte);

<<<<<< Hier die Deklaration

Delphi-Quellcode:

    procedure Kundensuchen(f: Byte);   
 { Private-Deklarationen }
  public

{ Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
uses Unit3;

procedure Kunden(f: Byte);

<<<<<< Hier die Prozedur

Delphi-Quellcode:

begin
  case f of
    0:    //Kunden Anlegen
    begin
      GBKdnAnl.Visible := True;

[Union]

Du musst die Prozedur als Kunden in Public deklarieren und als TForm1.Kunden implementieren.
Oder Du referenzierst alles über das Form1 Objekt.

[s.h.a.r.k]

Deine Methode ist eine globale Methode, die nichts mit deinem Formular zu tun hat. Du musst diese schon in den private- oder public-Teil deines Formulars legen und dann wie folgt implementieren: procedure TForm1.Kunden(...);

[xan553]

mein fehler, danke

Memo an mich selbst: denke nicht über 10 ecken