Pessoal,
Temos vários projetos aqui na empresa, mas somente um estou tendo um
problema com a ntdll.dll.
Os projetos estavam em D5 e agora estamos migrando para D7. Em D7
funcionava muito bem.
Será que alguém poderia me ajudar????
Desde já agradeço!!!
O erro que recebo é:
Access Violation at address 7C912FFC in module 'ntdll.dll'. Write of
adress 004050E1
O estranho é que nem o try except resolve...
Segue a função onde está dando o erro:
procedure ValidaCombo( Sender: TObject );
var
lChar : string ;
lCont : Integer ;
begin
If ( Sender as TComboBox ).Text = '' Then
Exit ;
( Sender as TComboBox ).Text := UpperCase( ( Sender as
TComboBox ).Text );
For lCont := 0 To ( Sender as TComboBox ).Items.Count - 1 do
Begin
//Linha onde ocorre o erro
lChar := ( Sender as TComboBox ).Items.Strings[lCont] ;
If UpperCase( lChar ) = UpperCase( ( Sender as
TComboBox ).Text ) Then
Exit ;
End ;
Application.MessageBox('Valor do campo invalido, favor selecionar
um valor da lista', 'Mensagem do Sistema', MB_OK);
( Sender as TComboBox ).Text := '' ;
( Sender as TComboBox ).SetFocus ;
( Sender as TComboBox ).DroppedDown := True ;
end;
Att,
Marcelo.
--
<<<<< 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]
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
