das mit der Überschrift habe ich ja hinbekommen
Delphi-Quellcode:
procedure TArtikelerfassungForm.SetzeArtikelStringGrid;
begin
ArtikelStringGrid.rowCount := 2;
ArtikelStringGrid.colCount := 6;
ArtikelStringGrid.cells[0,0] := 'Datensatz-Nr';
ArtikelStringGrid.cells[1,0] := 'Abteilung';
ArtikelStringGrid.cells[2,0] := 'Abteilung-Nr.';
ArtikelStringGrid.cells[3,0] := 'Artikel';
ArtikelStringGrid.cells[4,0] := 'Preis;
ArtikelStringGrid.cells[5,0] := 'GPreis;
end;
jetzt wollte ich die eingaben speichern und an meine ArtikelStringGrid
übergeben und den Inhalt der editfelder wieder löschen
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;
jups und da ist mein problem
[edit=Luckie]Delphi-Tags ergänzt. Mfg, Luckie[/edit]