Delphi7 basico por lammer N@ight&W#olf.avi

Pessoal espero ter ajudado vocês a entender com funciona o delphi, se vocês tiverem alguma duvida me digam qual é,se eu souber responder farei isso sem problemas.

[Lamer]

aqui estão os códigos para quem não conseguiu ver no vídeo.

procedure TForm1.Button1Click(Sender: TObject);
var
pe:real;
begin
pe:=strtofloat(edit1.Text);

if (pe<=57)then

label3.Caption:='Galo'

else

if (pe<=64)then

label3.Caption:='Pluma'

else

if (pe<=70)then

label3.Caption:='Pena'

else

if(pe<=76)then

label3.Caption:='Leve'

else

[Lamer]

não esquece que os else são embaixo dos if.label3.caption também, e lembre-se depois de declarar a variável o código é para ser colocado embaixo do begin.

[Lamer]

A segunda parte do código é esse
if(pe<=82)then

label3.Caption:='Medio'

else

if(pe<=88)then

label3.Caption:='Pesado'

[Lamer]

label3.Caption:='Super Pesado'


else

if(pe>100)then

label3.Caption:='Pesadissimo'

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:='';
label3.Caption:='';
end;

end.
lembrando que no botão sair só precisa digitar close.

[Lamer]

Pessoal o código é esse que ta ai em baixo, começa no comentário aqui estão os códigos, a vai pro comentário a segunda parte dos códigos, os 3 últimos comentários é o resto do código.

[Lamer]

else

if(pe<=94)then

label3.Caption:='Pesado'

else