Datenbank überschreibt inhalte

[DeddyH]

Wenn es eine Klasse ist, musst Du die Objekte dieser Klasse auch erzeugen (und später wieder freigeben), von allein geschieht das nicht.

[hoika]

Hallo,

eine Klasse also ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Atom:TAtom;   // Klassenvariable, also ein Poimter
  Hilf:real;
begin

  // Klasse wird nicht erzeugt

  //hier steht das folgende noch 2 mal nur das es eingetragen wird!
  Atom.set_Atomname('Lithium');   // Schutz-Verletzung   na klar, Klasse nicht erzeugt
  Atom.set_Atomsymbol('Li');
  Atom.set_Atomserie('Erdalkalimetalle');
  Atom.set_Atomaussehen('XXXX');
  Atom.set_Atomaggregatzustand('Fest');
  Atom.set_Atomgefahren1('XXXX');
  Atom.set_Atomordnungszahl(3);
  Atom.set_Atommasse(7);
  Atom.set_Atomschmelztemperatur(180);
  Atom.set_Atomsiedetemperatur(1372);
  Atom.set_Atomdichte(0.534);
  Atom.set_AtomEN(1.0);
  Atom.set_Atomoxidationszahl1(1);
  //Periodensystem.Hinzufuegen(Atom);
  showmessage('LI');
  end;

Was soll der ganze Code bewirken ???
Speichern ???
Wo denn ???


Heiko

[Sir Rufo]

Wieso eigentlich diese Methoden zum Setzen der Eigenschaftswerte?
Da wären doch Properties wesentlich einfacher in der Handhabung

[Neumann]

Hallo,

warum die ganze Sache so kompliziert?

Man nehme für eine einzelne Tabelle ein Clientdataset, legt die entsprechenden Felder an und kann dann auch noch ohne Mühe die Daten speichern und laden, in einem DBGrid darstellen, sortieren, Datensätze suchen usw.

Auch die Anzeige mit Listboxen kann man dann machen, was mir persönlich auch nicht so besonders gefällt.

Gruß

Ralf

[Picard95]

also das ganz ist so "kompliziert" weil ich es leider nicht anders in der schule gelernt habe...
des weiteren: die Speicherung der Staen erfolgt zur eingabe in die Datenbank. Hierzu wird eine Instanz des zu verwaltenden Objects erzeugt (siehe Atom (ist allerdings nicht in dem ausschnitt angezeigt)) und dann wird diese Insatnz per lokaler Variable in die procedur "Hinzufügen" der Datenbank reingestellt...
@hoika: was für eine Verletzung? Ich erstelle die klasse das ist nur da nicht drauf:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Atom:TAtom;
  Hilf:real;
  I:integer;
begin
 Periodensystem:=TPeriodensystem.create;
 showmessage('createP');
 Atom:=TAtom.create;

{...}

[DeddyH]

Und wie viele davon? Du musst natürlich je Eintrag in Deine Liste eine Instanz erzeugen.

[edit] Oder wenn Du sowieso immer 112 Instanzen brauchst, kannst Du sie ja gleich von vornherein anlegen.

Delphi-Quellcode:

constructor TPeriodensystem.Create;
var 
  i: integer;  
begin
  inherited;
  for i := Low(inhalt) to High(inhalt) do
    inhalt[i] := TAtom.Create;
  //usw.
end;

destructor TPeriodensystem.Destroy;
var 
  i: integer;  
begin
  for i := Low(inhalt) to High(inhalt) do
    inhalt[i].Free;
  //usw.
  inherited;
end;

[/edit]

[Picard95]

ich habe inn der Formcreate nur eine einzige Instanz die immer wieder überschrieben wird und dann mit neuem Inhalt wieder in die Datenbank eingetragen wird... und meiner Kenntniss nach muss ich den Inhalt der Datenbank nicht kreeren, da der Computer dies Atuomatisch bei der dekleration array macht...
Soll ich mal den Kompletten Quelltext (ausser den unzähligen gleichen stellen in Unit2) hier reinsetzten?