Hallo Technikus,
mit dieser Methode deines Formulars sollte es dir gelingen eine Prüfung zu bauen:
Delphi-Quellcode:
function TCalcForm.IndexOfEmptyRow(iCol: integer): integer;
begin
Result := Grid.FixedRows;
while (Result < Grid.RowCount) and (Grid.Cells[iCol, Result] <> '') do
Inc(Result);
if Result = Grid.RowCount then
Result := -1;
end;
Sie liefert für den Aufruf IndexOfEmptyRow(1) das Ergebnis -1, wenn alle Zellen der Spalte mit dem Index 1 gefüllt sind.
Grüße vom marabu