Tstringfield

[Guest - tiago -]

pessoal gostaria q vocês me ajudassem com esse codigo..eu declarei uma variavel da seguinte maneira:

porem o delphi acusa os seguintes erros:

[Error] Ulogin.pas(66): Undeclared identifier: 'TstringField'

[Error] Ulogin.pas(77): Operator not applicable to this operand type

[Error] Ulogin.pas(78): 'THEN' expected but identifier 'value' found

[Fatal Error] Udatamodule.pas(28): Could not compile used unit 'Ulogin.pas'

alguém sabe o q é?

codigo::

procedure TFlogin.SpeedButton1Click(Sender: TObject);

var

ValorSenha:TstringField;

begin

if not datamodule1.Tbsenhas.FindKey([edit1.text]) then

begin

FLogin.StatusBar1.Panels[1].Text:='Login Recusado, Usuário Desconhecido...';

inc(Contador);

if contador=4 then

FPrincipal.close;

edit1.setfocus;

Exit;

end;

ValorSenha:=datamodule1.Tbsenhas.findfield('SENHA') as tStringfield;

if valorsenha.value<>edit2.text then

begin

FLogin.StatusBar1.Panels[1].Text:='Login Recusado, Senha Inválida...';

inc(Contador);

if Contador=4 then

FPrincipal.close;

edit2.setfocus;

Exit;

end;

FPrincipal.enabled:=true;

FLogin.release;

end;

end.

[Kikonanet]

Olá,

Declare a Unit DB;

Uses DB;

qualquer coisa posta ae.

Abs.

Kiko

[Guest Guest]

dããã..heheh, brigadaum ae rapah!!