[DELPHI] Ajuda ae!2

[KopaG 13]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Porquê dá este erro?

 

objetivo desse programa que estou criando é somar 3 numeros e dividir para obter um resultado final.

 

===================================

 

Não entendo ainda essa coisa de StrToInt e IntToStr ..

 

Eu sei que StrToInt = String para Inteiro.. e IntToStr é ao contrario... Mais em prática o que isso resulta?

eu não saquei ainda, não entra pra cabeça, se possivel uma aplicação prática, sei lá..

 

===================================

 

Para que ser o comando StrToFloat/FloatToStr ?

 

===================================

 

Só isso por enquanto..

[Mestre_Vator 0]

Na hora de mostrar o resultado,use o método IntToStr,afinal,você vai usar três números inteiros(int/integer),e o tipo de dado usado no Edit é string/str.

 

String = matriz de caracteres,array de char,uma sequência de linhas,no Pascal,delimitada por apóstrofos.

int = um número inteiro,sem casa decimal/ponto flutuante,um numero natural.

 

Os dois métodos que você citou são justamente para converter tipos de dado entre si.

Por exemplo,eu quero mostrar um número digitado num edit em um outro edit.

 

var

s:integer;

begin

s := Edit 1.Text;

Edit2.Text := IntToStr(s);

end;

 

 

Quanto à dúvida,você tem que converter do edit(string(str)) para integer(int)... a cada vez que for obter o valor das notas.

já sabe qual método usar,né? ;)

 

PS: Não use acentos em nomes de variáveis,use "divisao".Veja que há um erro,talvez seja por isso,não devem ser permitidos caracteres Unicode em nomes de variáveis,e isso é uma regra da vida.

Espero que entenda minha pobre explicação.

[Lukasmart7 1]

O Certo Seria !

procedure TForm1.Button1Click(Sender: TObject);

var

Nota1 ,Nota2 ,Nota3 ,Divisao :Integer; {Sem o ~ No Divisão}

begin

Nota1 := StrToInt(Edit1.Text);

Nota2 := StrToInt(Edit2.Text);

Nota3 := StrToInt(Edit3.Text);

Divisao:= StrToInt(Edit4.Text);

Edit5.Text := FloattoStr((Nota1 + Nota2 + Nota3) / Divisao);

end;

[Mestre_Vator 0]

O certo seria deixar ele entender e aprender ao invés de dar pronto.

[igort915 2]

O certo Seria:

 

 

procedure TForm1.Button1Click(Sender: TObject); Then

var

Nota1 ,Nota2 ,Nota3 ,Divisao :Integer; {Sem o ~ No Divisão}

begin

Nota1 := StrToInt(Edit1.Text);

Nota2 := StrToInt(Edit2.Text);

Nota3 := StrToInt(Edit3.Text);

Divisao:= StrToInt(Edit4.Text);

Edit5.Text := FloattoStr((Nota1 + Nota2 + Nota3) / Divisao);

end;

 

 

'-'

[Mestre_Vator 0]

Não,não seria certo isso.

Isso é um evento,e não uma condicional IF,seu noob.

[Locv 0]

Kkkkkkkk euri...

Meu larga de ser burro!

Desde quando If é relacionado a procedure?

Obviamente você pegou o código do Lukasmart7 e adicionou Then após o término da procedure...

 

O certo seria deixar ele entender e aprender ao invés de dar pronto.

 

Concordo plenamente.

 

Abraços! :piscadela:

[KopaG 13]

Eita ses tão é me confudindo.... ehausehuias

 

zuera ;')

 

 

Agradeço aos que me ajudaram..

 

rum.. e eu sabia sim o que fazer para converter ali :nice:

 

 

Porrá, ses tão com tudo ein, respoderam em menos de 30 minutos.. U_U

['Leozin 38]

Dúvida Resolvida.

 

Fechado.