[delpi12]

как поставит условия если stringgrid1 пусть ?

[Kailon]

Сам хоть понял, что спросил?

[delpi12]

Сообщение от Kailon

Сам хоть понял, что спросил?

условия если stringgrid совсем пустой ?

[NumLock]

как обычно, if

[delpi12]

Сообщение от NumLock

как обычно, if

if знаю


а далеее ?

[lmikle]

Надо проверить, что во всех ячейках нет данных.

Код:

function IsGrisIsEmpty(AGrid : TStringGrid) : Boolean;
var
  I, J : Integer;
begin
  Result := True;
  For I := 0 To AGrid.Rows-1 Do
    For J := 0 To AGrid.Cols-1 Do
      Begin
        Result := Not (AGrid.Cells[J,i] = '');
        If Not Result Then Break;
      End;
end;