Hallo zusammen.
Ich habe mir Folgende Procedure geschreiben und die in den Private bereich des Forms gesetzt.
Nun bekomme ich immer dann wenn die Funktion ausgeführt wird Eine zugriffsverletzung bei adresse 00499043.... Lesen von adresse B88366BB...
der Interne Debugger wirft mich nicht an die zeile wo der Fehler auftritt... zum einen ist meine Frage warum. und zum 2. kann jemand schauen wo ich da einen Fehler habe ??? Offenbar finde ich keinen....
Delphi-Quellcode:
procedure TkundenF.FieldEdit(const Wert : Boolean; buttons : array of TButton);
var
I: Integer;
begin
if Daten.Stammdaten.RecordCount < 1 then
for I := 0 to KundenF.ComponentCount - 1 do
begin
if KundenF.Components[I].ClassType = TLabeledEdit then
TLabeledEdit(KundenF.Components[i]).Enabled := Wert;
if KundenF.Components[I].ClassType = TMemo then
TMemo(KundenF.Components[i]).Enabled := wert;
if KundenF.Components[I].ClassType = TComboBox then
TComboBox(KundenF.Components[i]).Enabled := Wert;
if KundenF.Components[I].ClassType = TLabel then
TLabel(KundenF.Components[i]).Enabled := Wert;
end;
Ansprechpartner.Enabled := wert;
newBtn.Enabled := false;
SaveBtn.Enabled := false;
DelBtn.Enabled := false;
ApplyBtn.Enabled := false;
closebtn.Enabled := false;
for I := 0 to sizeof(Buttons) - 1 do
Buttons[i].Enabled := true;
end;
Gruss Sascha