Hallo,
weil ich das Feld zum Rechnen brauche. Aber da es ja normal ist das er die Nullen weglässt
.
Eigentlich störts mich nur weil er es halt nicht so schreibt.
Aber da ihr schonmal da seit wie lösche ich ein StringGrid.
Code:
procedure TFormKartenzahlung.StringGridFuellen;
var i : integer;
begin
Hauptselect;
with StringGridUebersicht do
begin
Cells[0,0] := 'ID' ;
Cells[1,0] := 'UBericht-Nr.';
Cells[2,0] := 'Prüf. Ing.';
Cells[3,0] := 'Uhrzeit';
Cells[4,0] := 'Datum';
Cells[5,0] := 'Betrag';
end;
i := 1;
with StringGridUebersicht do
begin
while not ADOQryKZ.Eof do
begin
Cells[0,i] := ADOQryKZ.FieldByName('id').AsString;
Cells[1,i] := ADOQryKZ.FieldByName('ubnr').AsString;
Cells[2,i] := ADOQryKZ.FieldByName('pi').AsString;
Cells[3,i] := ADOQryKZ.FieldByName('uhrzeit').AsString;
Cells[4,i] := ADOQryKZ.FieldByName('datum').AsString;
DecimalSeparator := ',';
Cells[5,i] := FormatFloat('0.00',ADOQryKZ.FieldByName('betrag').AsFloat);
ADOQryKZ.Next;
i := i + 1;
StringGridUebersicht.RowCount := StringGridUebersicht.RowCount + 1;
end;
end;
end;
Nichts wissen ist auch eine Art Wissen.