Berechnung zum StringGrid

[Kunoishi]

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;