Einzelnen Beitrag anzeigen

H.Bothur

Registriert seit: 25. Jun 2012
Ort: Seevetal & Lagos
257 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Variable ist plötzlich anders

  Alt 6. Jun 2017, 18:12
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
Hans-Georg Bothur
www.hermann-juergensen.de
  Mit Zitat antworten Zitat