Como Deletar um Linha da StringGrid????

11/12/2003

1

Como Deletar um Linha da StringGrid????

Deste Já muito obrigado....


Responder

Posts

11/12/2003

Agnaldo

Como Deletar um Linha da StringGrid???? Deste Já muito obrigado....



procedure TForm1.RemoverLinhaClick(Sender: TObject);
Var
I, J, Coluna: byte;

begin
Coluna := 0;
If StrDescricao.Row < 0 Then Begin
ShowMessage(´Selecione uma linha a ser excluida.´);
Exit;
End; // for

// linha a ser limpa, onde está o cursor.
StrDescricao.Cells[Coluna,StrDescricao.Row] := ´´;

{Deslocando tudo o conteudo abaixo da linha excluida }
{para uma linha acima, para não deixar nenhuma linha em branco.}

For J:=StrDescricao.Row to StrDescricao.RowCount - 1 do Begin
StrDescricao.Cells[0,J] := StrDescricao.Cells[0,J + 1];
End; // for

End; // begin


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira