Variable ist plötzlich anders

[H.Bothur]

Moin,

Danke für die Tipps !!

Zu a) Sorry- kannst Du mir zeigen kurz beschreiben ich das mache ?? Leider kann ich damit nichts anfangen
zu b) Ja - im Moment noch weil ich es so verstehe - eigentlich wollte ich ja wenn das hier läuft das ganze mal mit TTable umsetzen. Aber ich muss das hier erstmal zum laufen bekommen.

Hans

[H.Bothur]

Sorry - schon was gefunden wo das beschrieben wird - ich versuche es mal !
Doch nicht Kannst Du mir mal sagen wie ich das machen müsste ?

Danke !

Hans

[ConnorMcLeod]

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)

[H.Bothur]

Zitat von ConnorMcLeod:

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