Boolean e String como consertar?
28/04/2003
0
Criei a Rotininha para validar o Pis, o que acontece é que na hora de ele me retornar a função ele dá erro:
[Error] DeloiteMain.pas(316): Incompatible types: ´String´ and ´Boolean´
[i:ba9d231a99][b:ba9d231a99]Onde devo arrumar?[/b:ba9d231a99][/i:ba9d231a99]
function validapis(vPis : String) : [b:ba9d231a99]boolean[/b:ba9d231a99];
.
.
.
procedure TForm1.MEPisChange(Sender: TObject);
var
[b:ba9d231a99]rPis : Boolean;[/b:ba9d231a99]
begin
if Length(MEPis.Text) = 10 then
begin
[b:ba9d231a99]rPis := ValidaPis(MEPis.Text);[/b:ba9d231a99]
if rPis = ´´ then
MessageDlg(´PIS Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´PIS Inválido´,mtWarning,[mbOk],0);
MEPis.SelectAll
end;
end;
[Error] DeloiteMain.pas(316): Incompatible types: ´String´ and ´Boolean´
[i:ba9d231a99][b:ba9d231a99]Onde devo arrumar?[/b:ba9d231a99][/i:ba9d231a99]
function validapis(vPis : String) : [b:ba9d231a99]boolean[/b:ba9d231a99];
.
.
.
procedure TForm1.MEPisChange(Sender: TObject);
var
[b:ba9d231a99]rPis : Boolean;[/b:ba9d231a99]
begin
if Length(MEPis.Text) = 10 then
begin
[b:ba9d231a99]rPis := ValidaPis(MEPis.Text);[/b:ba9d231a99]
if rPis = ´´ then
MessageDlg(´PIS Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´PIS Inválido´,mtWarning,[mbOk],0);
MEPis.SelectAll
end;
end;
Wgm8
Curtir tópico
+ 0
Responder
Posts
28/04/2003
Fabio Colli
Você está testando se a variável Booleana está vazia, não vai funcionar nunca.
Responder
28/04/2003
Fabio Colli
procedure TForm1.MEPisChange(Sender: TObject);
var
rPis : Boolean;
begin
if Length(MEPis.Text) = 10 then
begin
rPis := ValidaPis(MEPis.Text);
if <testar a variável rPis é VERDADEIRA OU FALSA > then
MessageDlg(´PIS Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´PIS Inválido´,mtWarning,[mbOk],0);
MEPis.SelectAll
end;
end;
var
rPis : Boolean;
begin
if Length(MEPis.Text) = 10 then
begin
rPis := ValidaPis(MEPis.Text);
if <testar a variável rPis é VERDADEIRA OU FALSA > then
MessageDlg(´PIS Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´PIS Inválido´,mtWarning,[mbOk],0);
MEPis.SelectAll
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)