Delphi-Quellcode:
procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
i : Integer;
Wert: string;
begin
if (CRDBGrid1.DataSource.DataSet.RecordCount = 0) then
Exit;
{ hier dein Code }
end;
Und formatier mal deinen Code ein wenig. Damit hilfst du nicht nur dir, sondern auch anderen, die den mal lesen müssen
[add]
Was für Probleme hattest dann mit dem Refresh? Du fängst doch nur den Fall ab, wenn keine Elemente mehr enthalten sind. Was soll denn da passieren?
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)