Guten Abend
Bin verzweifelt und finde den Fehler nicht! Vermutlich einfach nur Stressblind!?
Möchte einer Procedure eine TComboBox als Parameter übergeben,
jedoch zeigt der Compiler den Fehler: E2037 Deklaration von machwasx unterscheidet sich von vorheriger Deklaration.
Habe deshalb so bescheuerte Namen genommen, falls irgendwoanders deklariert, ist aber nicht.
Hier der Code-Auszug, natürlich sinnfrei, aber kurz
Delphi-Quellcode:
unit UnitAchsen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls,
DB, ADODB, DBGrids;
type
TFormAchsen =
class(TForm)
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private declarations }
procedure machwasx(boxes : TComboBox;
SQL :
String);
public
{ Public declarations }
MAE_ID :
String;
end;
var
FormAchsen: TFormAchsen;
implementation
uses UnitHauptformular;
{$R *.dfm}
procedure TFormAchsen.machwasx(boxes : TComboBox;
SQL :
String);
Var i : integer;
begin
i := 0;
end;
Ändere ich TComboBox in TEdit dann alles ok, mit TComboBox nicht.
Für mich oberseltsam: Im Hauptformular dieses funktioniert:
Delphi-Quellcode:
procedure CbbFuellenMit(Cbb : TCombobox;
SQL, Feld :
String; clr : boolean);
// dann
procedure THauptformular.CbbFuellenMit(Cbb : TCombobox;
SQL, Feld :
String; clr : boolean);
begin
// hier schrecklicher Code
end;
Benutze Version Borland Developer Studio Turbo 2006
Danke für's lesen!