Datenbank überschreibt inhalte

[Picard95]

ja gut aber selbst wenn ich es tue der inhalt 1 sollte anders sein da (ich vergas es glaub ich zu erwähnen) der Inhalt 1.get_Atomname Wasserstoff beinhalten sollte und nicht Litihum!
zudem: wenn ich die Variable I einsetzte, dann erscheint 2* Lithium obwohl einmal Wasserstoff und einmal Helium die richtigen inhalte wären. Und bei der Ausgabe aus dem Periodensystem in meine Form3 erhalte ich 3 mal das gleich und nicht 3 verschiedene

[DeddyH]

Wie ist denn Inhalt deklariert?

[Picard95]

Delphi-Quellcode:

Type TPeriodensystem = class
             inhalt:array[1..112]of TAtom;
             Anzahl:integer;
             constructor create;
             procedure Hinzufuegen(x:TAtom);
             procedure Ausgabe(L1,L2,L3,L4,L5:TListbox;X:integer);
             end;

Um mal die complette Deklaration der Elemente von TPeriodensystem anzuzeigen...
Was ich grade ausprobiert habe:
wenn ich eine showmessage in Unit 1 vor dem eintragen der Informationen zu Lithium gebe, dann bekomme ich auch Lithium als ausgabe für den inhalt der beiden vorherigen Infos... was mich wundert, denn das Periodensystem kann die da noch garnicht kennen...

[DeddyH]

Was kommt hierbei heraus?

Delphi-Quellcode:

procedure TPeriodensystem.Hinzufuegen(X:TAtom);
var I:integer;
begin
  if Anzahl <= High(Anzahl) then
    begin
      Inhalt[Anzahl]:=x;
      Anzahl:=Anzahl+1;
      for I:= 1 to Anzahl do
        showmessage(inhalt[I].get_Atomname);    
    end;
end;

[shmia]

Du hast auch noch weitere Probleme in deinem Sourcecode.
Da du Delphi4 verwendest vermute ich dass TAtom eine Klasse und kein Record ist.
Daher muss jedes Objekt von TAtom neu erzeugt werden:

Delphi-Quellcode:

procedure procedure TForm1.ErzeugeSauerstoff;
var
  atom : TAtom;
begin
  atom := TAtom.Create;  // neues Objekt erzeugen
  atom.Atomname := 'Sauerstoff';
  ... // hier weitere Eigenschaften bestücken
  Periodensystem.Hinzufuegen(atom);
end;

Wenn du dagegen nur ein einziges Objekt der Klasse TAtom hast (globale Variable ?),
dann ist klar, dass immer das gleiche Objekt mit den Daten überbügelt wird.

[Picard95]

also meines wissens habe ich das im hauptprogramm gemacht.... aber ich fürchte in der UPeriodensystem nicht.....
@DebbyH: ne Fehlermeldung


ähm wo muss ich denn dann(und vorallem wie) den inhalt[X] kreiren

[DeddyH]

Na super, und welche?

[jobo]

OT:
Ihr seid ja echt geduldig! DebbyH und wie sie alle heißen!
Und Fehler an sich reichen doch zur Feststellung, dass es nicht geht. Wen interessieren Details?

[Picard95]

"Project Project1.exe raised exception class EAccessViolation with message 'Acces violation at address 00442588 in modul 'Project1.exe'. Read of 00000004' Proces stopped.[...]"und dann halt noch das ich start drücken soll oder so

@shmia:
wenn ich Inhalt allerdings als array deklariere kreiert das System automatisch Instanzen von TAtom.
Hab grad nochmal nachgeschaut

[hoika]

Hallo,

Read of 00000004
-> NIL-Zugriff

F5/F7/F8 benutzen

ob TAtom eine Klasse oder ein Record ist,
hast du noch nicht erklärt ...


Heiko
"Es geht nicht" , ist keine Fehlerbeschreibung ...