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 :stupid:

[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:

Delphi-Quellcode:

procedure TForm1.Kunden(...);

[xan553]

mein fehler, danke :)

Memo an mich selbst: denke nicht über 10 ecken ;)