8) irgendwann werde ich auch die gedankengänge der Programmierer verstehen.
ich hoffe das ich hiermit auf dem richtigen weg bin
Delphi-Quellcode:
procedure TArtikelerfassungForm.Init(Rec:TArtikelerfassungRec);
var i:integer;
begin
EditArtikelBezeichnung.Text := Rec.Artikel;
EditArtikelAnzahl.Text := Rec.ArtikelAnzahl;
EditEinzelPreis.Text := Rec.ArtikelWert;
EditGesamtPreis.Text := Rec.ArtikelGesamtPreis;
EditVerbleibWare.ItemIndex := 0;
for i:=1 to EditVerbleibWare.Items.Count-1 do
begin
if Rec.ArtikelVerbleib = EditVerbleibWare.Items[i] then
begin
EditVerbleibWare.ItemIndex := i;
break;
end;
end;
EditFremdObjekt.Text := Rec.FremdObjekt;
end;