Datenklasse befüllen:
Delphi-Quellcode:
try
locNonFood := TArtikel.Create;
except on E:
Exception do
begin
ShowMessage(E.ClassName+'
error raised, with message : '+E.
Message);
Exit;
end;
end;
with locNonFood
do
begin
Artikelname:=AddArtikelDLG.txtArtikelname.Text;
Menge:= Integer(AddArtikelDLG.txtAmount.Text);
Preis:= Integer(AddArtikelDLG.txtPrice.Text);
end;
if Assigned(Artikel)
then Artikel.Add(locNonFood);
locNonFood.Free;
end;
Aufruf aus der TObjectlist
Delphi-Quellcode:
if Artikel.Count > -1 then
begin
for B := 0 to Artikel.Count - 1 do
begin
locNonFood := TArtikel(Artikel.Items[B]);
LocItem := AListView.Items.Add;
locItem.Caption := locNonFood.Artikelname;
locItem.ImageIndex := -1;
with locItem.SubItems do
begin
Add(IntToStr(locNonFood.Menge));
Add(IntToStr(locNonFood.Preis));
Add(IntToStr(locNonFood.Kosten));
end;
end;
end;
Beispiel:
Eingabe bei Artikelname: 'Test'
Ergebnis beim Aufruf: ''
Eingabe bei Menge: '2'
Ergebnis beim Aufruf: '0'
Eingabe bei Preis: '1,99'
Ergebnis beim Aufruf: '0'
