Delphi-Quellcode:
GrdArtikel.RowCount := Zeile;
GrdArtikel.Cells[0,Zeile] := '1';
GrdArtikel.Cells[1,Zeile] := 'Clubrabatt';
Hallo Wolli,
der Fehler liegt hier in Deinem Code: TStringGrid.Cells[x, y] ist 0-basiert, d.h. um die unterste Zeile zu belegen mußt Du zeile-1 schreiben:
Delphi-Quellcode:
GrdArtikel.RowCount := Zeile;
GrdArtikel.Cells[0,Zeile-1] := '1';
GrdArtikel.Cells[1,Zeile-1] := 'Clubrabatt';
Gruss,
blauweiss