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
<*> 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
