Datenbank überschreibt inhalte

[Picard95]

jetzt ja
dazu ne Frage: ich denke mal inhalt[I].free giebt mir dann die instanz wieder frei.... und was bedeutet dieses Low bzw high das hatte ich noch nicht im unterricht.
desweiteren: meine Datenbank überschreibt ja meine inhalte wenn ich einen weiteren hinzufüge also 1 wird überschrieben wenn ich 2 eingebe 1 und 2 wenn ich 3 eingebe usw. wie kann ich das verhindern? das hat alles mal in einer anderen version in der schule gekleppt nur jetzt eben nicht und den fehler find ich leider nicht

[DeddyH]

Nochmal zum Verständnis: eine Objektinstanz ist intern nichts anderes als ein Zeiger. Legst Du also nur eine Instanz an, änderst da etwas und merkst Dir diese Instanz in Deinen Array-Elementen, so zeigen diese alle auf ein und dasselbe Objekt. Wenn Du das nicht willst, musst Du eben so viele Instanzen anlegen, wie Dein Array Felder besitzt. Und genau das habe ich in meinem geposteten Code getan.

[Picard95]

ich erstelle eine instanz in der unit 1 schreibe daten rein und speichere die in einer andere Instanz in der UPeriodensystem dann ändere ich die instanz in U1 und speichere die in der 2. instanz in UP

[DeddyH]

Davon habe ich aber bislang nichts gesehen. Wo kommen die anderen Instanzen denn her?

[Picard95]

inhalt ist ja ein array ein array beschreibt mehrere instanzen der gleichen klasse

[DeddyH]

Nein! Was Dein Array enthält, sind lediglich Zeiger und keine Daten. Die Objekte musst Du selbst anlegen, das ist nicht so wie bei primitiven Datentypen wie Integer oder Char.

[Picard95]

hast du nen quellcode für mich?
ich habs so aber auch mal geschaft
((ANDERES PROGRAMM))

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
          Artikel:=TArtikel.create;
          Hilf:=edit1.text;
          Artikel.set_Art_Nr(Hilf);
          Hilf:=edit2.text;
          Artikel.set_Art_Bez(Hilf);
          PHilf:=strtofloat(edit3.text);
          Artikel.set_Preis(PHilf);
          AHilf:=strtoint(edit4.text);
          Artikel.set_Anzahl(AHilf);
          Pool.Hinzufuegen(Artikel);
          Pool.Ausgabe(Listbox1);
end;

Delphi-Quellcode:

Type TPool = class
             inhalt:array[1..100000]of TArtikel;
             Anzahl:integer;
             constructor create;
             procedure Hinzufuegen(x:TArtikel);
             procedure Ausgabe(x:TListbox);
             procedure Art_Suche(Art_Nr:string;L:TLabel);
             procedure Sortieren_Nr(L:TListbox);
             procedure Sortieren_Bez(L:TListbox);
             end;
implementation
constructor TPool.create;
  begin
    Anzahl:=0;
    inherited create;
  end;
procedure TPool.Hinzufuegen(x:TArtikel);
  begin
    Anzahl:=Anzahl+1;
    Inhalt[Anzahl]:=x;
  end;
procedure TPool.Ausgabe(x:TListbox);
  var Produkt:integer; Hilf1,Hilf2,Hilf3,Hilf4:string;
  begin
    x.clear;
    for Produkt:=1 to Anzahl do
      begin
        Hilf1:=inhalt[Produkt].get_Art_Nr;
        Hilf2:=inhalt[Produkt].get_Art_Bez;
        Hilf3:=floattostr (inhalt[Produkt].get_Preis);
        Hilf4:=inttostr (inhalt[Produkt].get_Anzahl);
        x.items.add(Hilf1+' - '+Hilf2+' - '+Hilf3+' - '+Hilf4)
      end;
   end;

[Edit]und dieses Programm hat funktioniert[/EDIT]