Hallo,
in meinem Programm möchte ich gerne die DBGrids durch StringGrids ersetzen.
Delphi-Quellcode:
procedure TFRechn.FormCreate(Sender: TObject);
begin
StringGridRedat.colcount := 6;
StringGridRedat.rowcount := 1;
StringGridRedat.Cells [1,0] := 'PosNr';
StringGridRedat.Cells [2,0] := 'ArtNr';
StringGridRedat.Cells [3,0] := 'Artbez';
...
end;
procedure TFRechn.BtnArtNeuClick(Sender: TObject);
var
inzeile:Integer;
begin
StringGridRedat.rowcount := inzeile;
inzeile := StringGridRedat.rowcount+1;
StringGridRedat.Cells [1, inzeile] :=
QueryRedat.FieldByName('PosNr').Text;
StringGridRedat.Cells [2, inzeile] :=
QueryRedat.FieldByName('ArtNr').Text;
StringGridRedat.Cells [3, inzeile] :=
QueryRedat.FieldByName('Artbez').Text;
StringGridRedat.Cells [4, inzeile] :=
QueryRedat.FieldByName('Anzahl').Text;
...
end;
goEditing := True;
Mein Problem ist, dass ich keine Daten in das StringGrid eintragen
kann.
Für Hilfe bin ich dankbar!
Gruß Lombi