Desculpem minha falha!
A procedure abaixo tem a finalidade de ordenar por ordem alfabética os nomes da
tabela. Quando tento executar, a linha de código onde diz
if (StgVisua.RowCount > 2) then fica com fundo vermelho e o cursor piscando
atras da palavra RowCount.
Não lembro da msg de erro, mas o fato é que não sei o que esta acorrendo.
Tenho que declarar alguma coisa a mais na procedure ou fora dela?
Obrigado.
procedure TfrmClientes.BotaoClick(Sender: TObject);
var
i, j, k : integer;
AUX : string;//varável auxiliar
begin
if (StgVisua.RowCount > 2) then // Por que o RowCount não esta funcionando
neste caso ???
With StgVisua do
begin
//Ordenação com a técnica da bolha (BUBLE SORT)
For i := 1 to (RowCount-1) do
begin
for j := 1 to ((RowCount-i)-1) do
if Cells[0,j] > Cells[0,j+1] then
begin
for k := 0 to Colcount-1 do
begin
AUX := Cells[k,j];
cells[k,j] := cells [k,j+1];
cells[k,j+1] := AUX;
end;
end;
end;
//Procedure que copia do stringgrid para o Listbox, atualizando a
lista
Copia_LbNomes;
MessageBox(Handle,'Operação realizada com
sucesso!','ATENÇÃO',+MB_OK+MB_ICONExclamation);
end;
Rubem Rocha <[EMAIL PROTECTED]> wrote:
Só mostrando o código e não explicando o que acontece fica difícil,
companheiro. Forneça detalhes sobre o que está acontecendo.
[]s
-----Mensagem original-----
De: Rafael Souza [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 8 de março de 2005 11:36
Para: Delphi Grupo
Assunto: [delphi-br] Pq o RowCount não funciona ?
Olá!
Tenho esta procedure mas o comando RowCout dá problema, o que mais tenho que
fazer ?
Grato, Rafael Souza.
++++++++++++++++
procedure TfrmClientes.BotaoClick(Sender: TObject);
var
i, j, k : integer;
AUX : string;//varável auxiliar
begin
if (StgVisua.RowCount > 2) then // Por que o RowCount não esta funcionando
neste caso ???
With StgVisua do
begin
//Ordenação com a técnica da bolha (BUBLE SORT)
For i := 1 to (RowCount-1) do
begin
for j := 1 to ((RowCount-i)-1) do
if Cells[0,j] > Cells[0,j+1] then
begin
for k := 0 to Colcount-1 do
begin
AUX := Cells[k,j];
cells[k,j] := cells [k,j+1];
cells[k,j+1] := AUX;
end;
end;
end;
//Procedure que copia do stringgrid para o Listbox, atualizando a
lista
Copia_LbNomes;
MessageBox(Handle,'Operação realizada com
sucesso!','ATENÇÃO',+MB_OK+MB_ICONExclamation);
end;
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL
PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
