unerklärliche Speicheradresszuweisung

[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;