Delphi-Quellcode:
type
TUKunden = class(TForm)
.....
private
FKundennummer: string;
procedure SetKundennummer(const AValue: string);
public
property Kundennummer read FKundennummer write SetKundennummer;
end;
implementation
.....
procedure TUKunden.SetKundennummer(const AValue: string);
begin
FKundenummer := AValue; // BREAKPOINT HIER SETZEN
end;
Vor dem eigentlichen Aufruf von
FirstKundenSuchen
dem property Kundennummer den zu suchenden Wert zuweisen und es dann als Parameter mitgeben. Sollte irgendein Event oder Thread die Kundennummer einstweilen verändern, dann stehst Du beim Breakpoint und kannst den Callstack untersuchen.
HTH (hope that helps)
Danke - leider noch nicht - wenn ich das so mache dann bekomme ich hier:
property Kundennummer read FKundennummer write SetKundennummer;
[dcc32 Fehler] KundenUnit.pas(22): E2147 Eigenschaft 'Kundennummer' existiert nicht in Basisklasse
Ich habe den Aufruf dann so geändert:
Delphi-Quellcode:
procedure TUKunden.FirstKundenSuchen(KundenNummer: String; var KName1, KName2, KStrasse, KLand, KPLZ, KOrt, KTelefax, KEmail, KVertreter, KRnEmail: String);
begin
FKundenNummer := KundenNummer
1Suche(KundenNummer: String; var KName1, KName2, KStrasse, KLand, KPLZ, KOrt, KTelefax, KEmail, KVertreter, KRnEmail: String);
end;
Ist jetzt zwar etwas krampfig - aber geht das dann so ??
Hans