ach so, sorry
ich habe das so gelöst
Delphi-Quellcode:
procedure TArtikelerfassungForm.Button5Click(Sender: TObject);
begin
Rec.AbteilungName := EditAbteilung.Text;
Rec.AbteilungNr := EditAbteilungNr.Text;
Rec.Artikel := EditArtikelBezeichnung.Text;
Rec.ArtikelAnzahl := EditArtikelAnzahl.Text;
Rec.ArtikelWert := EditEinzelpreis.Text;
Rec.ArtikelGesamtpreis := EditGesamtpreis.Text;
Rec.Fremdobjekt := EditFremdobjekt.Text;
result := true;
Rec := rec;
Artikel.add(Rec);
Artikel.Show(ArtikelStringGrid);
InitArtikelerfassungRec(Rec);
init(Rec);
// SummeLagerwert := SummeLagerwert + EditGesamtpreis.Text;
end;
dazu habe ich dann einen recorder den haben wir so gestalltet
Delphi-Quellcode:
type TArtikelerfassungRec = packed record
Datensatz:ShortString;
AbteilungName:ShortString;
AbteilungNr:ShortString;
Artikel:ShortString;
ArtikelAnzahl:ShortString;
ArtikelWert:ShortString;
ArtikelGesamtpreis:ShortString;
ArtikelVerbleib:ShortString;
Fremdobjekt:ShortString;