unerklärliche Speicheradresszuweisung

[EdAdvokat]

ich will eine sqlite-Datentabelle in mein Programm laden. Es handelt sich um eine einfache Adressverwaltung(Name,Vorname,Strasse, Nr ...). Das klappt insoweit, dass ich die Datensätze mit folgenden Werten angezeigt bekomme: Name richtig, statt Vorname die Hausnummer, Strasse richtig und das Feld Hausnummer bleibt leer.
Kommentiere ich die Quelltextzeile mit dem laden der Nr aus, erhalte ich den Datensatz exakt mit Vorname, Name, Strasse jedoch ohne Nr für Hausnummer.
Bei einer genaueren Untersuchung der nichtauskommentierten Zeile stelle ich fest, dass Name und Vorname jeweils eine Speicheradresse erhalten und zunächst auch im Debuggingverlauf der exakte Name und Vorname erscheinen.
Wird jedoch das Feld Nr geladen wird die Speicheradresse von Vorname so verändert, dass eine Speicheradresse von Nr zugewiesen wird und Helga heißt plötzlich 45, wie eigentlich die Hausnummer lauten soll. Doch die Speicheradresse von Nr bleibt nil. Habe zwischenzeitlich auch eine neue Datenbanktabelle erstellt mit dem gleichen Ergebnis.
Ich kann mir diese eigenartige Speicherzuweisung einfach nicht erklären.

[Olli73]

Etwas Code wäre vielleicht hilfreich.

[EdAdvokat]

bei Programmstart wird die folgende Methode ausgeführt:

Delphi-Quellcode:

procedure TAdressbuch.loadFromDB(con: TZConnection);
var
  qMain: TZQuery;
  Adressen: TAdressen;
begin
  qMain:=TZQuery.Create(nil);
  try
    self.AdressList.Clear;
    qMain.connection:=con;
    qMain.sql.Text:= 'SELECT * FROM KONTAKTE1';
    qMain.active:=true;
    while not qMain.eof do
    begin
      Adressen:=TAdressen.create;
      Adressen.ID:=qMain.FieldByName('ID').AsInteger;
      Adressen.Name:=qMain.FieldByName('Name').AsString;
      Adressen.Vorname:=qMain.FieldByName('Vorname').AsString;
      Adressen.Geb:=qMain.FieldByName('Geb').AsString;
      Adressen.Strasse:=qMain.FieldByName('Strasse').AsString;
      Adressen.Nr:=qMain.FieldByName('Nr').AsString;  //<----hier entscheidene Zeile!
      Adressen.PLZ:=qMain.FieldByName('PLZ').AsString;
      Adressen.Ort:=qMain.FieldByName('Ort').AsString;
      Adressen.Tel:=qMain.FieldByName('Tel').AsString;
      Adressen.email:=qMain.FieldByName('email').AsString;
      Adressen.Bemerkung:=qMain.FieldByName('Bemerkung').AsString;
      self.AdressList.Add(Adressen);
      qMain.Next;
    end;
      qMain.Active:=false;
  finally
    qMain.Free
  end;

end;

[Olli73]

Wie ist den TAdressen deklariert. Vielleicht ist dort ein Setter fehlerhaft oder so.

[EdAdvokat]

Danke für den Hinweis. Ja tatsächlich es war ein falscher Setter!:oops: