Como ordenar que toda linha da StringGrid seja Preenchida?

Delphi

13/05/2003

Tenho uma StringGrid de 15 Linhas e 8 Colunas.

O que quero é que se a coluna 0 da StringGrid for preenchida, e o restante não, ao acionar o botão gravar ele me diga que falta preencher linha.

Sem mais...


Wgm8

Wgm8

Curtidas 0

Respostas

Wgm8

Wgm8

13/05/2003

:cry: :evil: :roll: :x :?

Tá Dificil ninguém aqui pode ajudar :?: :oops:


GOSTEI 0
Okama

Okama

13/05/2003

Você pode testar o restante das células através de referência à linha e coluna:

if StringGrid1.Cells[1,Linha] := ´´ then begin 
  Shomessage(´Coluna 2 não foi preenchida´);
  Exit;
end;



GOSTEI 0
Vasques

Vasques

13/05/2003

Olá!

Antes de gravar pode chamar uma peque função que verifique se a linha pode ser gravada ou não:

ex:

function LinhaOk(Lnh : Integer): Boolean;
var i : Integer;
begin
Result := True;

for i := 0 to ColCount-1 do
if Cells[i,Lnh] = ´´ then
Result := False;

end;

O que este pequeno exemplo faz é devolver False se alguma coluna for igual ao vazio. Altere-a, colocando as clausulas para o seu caso.

espero ter ajudado alguma coisa ! ?


GOSTEI 0
Wgm8

Wgm8

13/05/2003

Preciso que se uma célula for preenchida ele obrigue a preencher toda a linha, as que tiverem em branco ele deverá aceitar.

Sem mais...


GOSTEI 0
Okama

Okama

13/05/2003

Qual inconformidade ocorreu com os código acima?


GOSTEI 0
Wgm8

Wgm8

13/05/2003

Quero que caso ele preencha alguma coisa na coluna 0 ele obrigue a preencher o resto da linha, se estiver em branco tudo bem!


GOSTEI 0
Okama

Okama

13/05/2003

Bom colega, não sei se sou eu que não estou entendendo, ou você se expressando mal.

Você não deu nehuma resposta referente às dicas que foram passadas e não sabemos se funcionaram ou não nesse caso. Se sua Grid tem um tamanho pré-definido basta você checar todas as colunas 0, se acaso alguma estiver preenchida, continue a busca pelas demais colunas até o fim da linha. Não funcionou?


GOSTEI 0
POSTAR