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]