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