Delphi: incompatible types (help)

Versão Imprimível

11-09-2009, 23:29
RoriK

Delphi: incompatible types (help)

Boa noite a todos.

Estou começado a brincar (não me atrevo a escrever programar) em delphi e estou encontrando alguns problemas ao rodar meus programas. Segue um deles:

procedure TForm1.Button1Click(Sender: TObject);
begin

if IntToStr(edit1.text>=18) then

edit2.text:=(' Maior de idade')
else
edit2.text:= (' Menor de idade');
end;
end.

O que acontece é o seguinte: [Error] Unit1.pas(30): Incompatible types: 'String' and 'Integer'. Como eu resolvo isso? O erro está no conversor? Devo adicionar alguma coisa ao USES?

Obs.: O meu delphi é made in china.
13-09-2009, 22:34
RoriK

Vamos la pessoal. Qual quer informação é bem vinda.
14-09-2009, 00:07
Bruce L

Parece que você está fazendo a conversão errada, Qualquer valor colocado em um campo edit no delphi(não só em delphi) ou caixa que dê pra por valores, é tratado como tipo string, então o certo seria StrToInt. Mexi com delphi ano passado, não lembro direito a estrutura.

Edit: parenteses da condição colocado em lugar errado também, como o Bob Joe disse.
14-09-2009, 00:09
Bob Joe

Dois erros:
Campo Edit já é String. Você tem que converter de String para Integer usando StrtoInt.

Parênteses faltando (na verdade, em posição errada), já que o parâmetro da função de conversão é apenas o valor a ser convertido.

O algoritmo fica assim:

procedure TForm1.Button1Click(Sender: TObject);
begin

if strtoInt(edit1.text)>=18 then
edit2.text:=(' Maior de idade')
else
edit2.text:= (' Menor de idade');
end;
end.
14-09-2009, 20:54
RoriK

Agradeço senhores. Muito obrigado. Foi so fazer essa pequena alteração que deu certo. Como pode um pequeno detalhe fazer tanta diferença!
14-09-2009, 22:47
Titus

Citação:

Postado originalmente por RoriK

Agradeço senhores. Muito obrigado. Foi so fazer essa pequena alteração que deu certo. Como pode um pequeno detalhe fazer tanta diferença!

lol
Não existe meio termo, ou a sintaxe está correta ou incorreta, não tem meio correta :P
15-09-2009, 01:02
Bruce L

Citação:

Postado originalmente por RoriK

Agradeço senhores. Muito obrigado. Foi so fazer essa pequena alteração que deu certo. Como pode um pequeno detalhe fazer tanta diferença!

cara ja me dei mal em programas por causa de uma coisinha a mais/menos, inclusive por ponto e vírgula.Programas com mais de 200 linhas de código... Tem que sempre ficar atento.
15-09-2009, 08:38
Titus

Citação:

Postado originalmente por GotHigh

cara ja me dei mal em programas por causa de uma coisinha a mais/menos, inclusive por ponto e vírgula.Programas com mais de 200 linhas de código... Tem que sempre ficar atento.

No começo o cara da umas patinadas, mas depois o cara faz essas coisinhas sem nem pensar. E quando erra já ve na primeira olhada o que faltou.
15-09-2009, 09:23
Bob Joe

Citação:

Postado originalmente por GotHigh

cara ja me dei mal em programas por causa de uma coisinha a mais/menos, inclusive por ponto e vírgula.Programas com mais de 200 linhas de código... Tem que sempre ficar atento.

O problema não é a sintaxe, isso se acostuma. O problema mesmo é a semântica. Para programar bem deve-se comer um belo capim de loops infinitos, estouros de memória e gravações em cima de dados importantes. É justamente aquilo que você só vai ver com os testes.