Calculadora em Delphi com Porcentagem

Variaveis Globais
  valor1, valor2, porcentagem:real;
  tipoconta:string;


botões numericos (aonde está o # você substitui pelo numero correspondente !)
 
    edit1.text:=edit1.text+'#';

-------- botão , --------

    edit1.text:=edit1.text+',';

-------- botão + --------

    tipoconta:='adição';
    valor1:=strtofloat(edit1.text);
    Edit1.Text:='';
    Label1.Caption:='+';

-------- botão - --------

    tipoconta:='subtração';
    valor1:=strtofloat(edit1.text);
    Edit1.Text:='';
    Label1.Caption:='-';

-------- botão x --------

    tipoconta:='multiplicação';
    valor1:=strtofloat(edit1.text);
    Edit1.Text:='';
    Label1.Caption:='X';

-------- botão / --------

    tipoconta:='divisão';
    valor1:=strtofloat(edit1.text);
    Edit1.Text:='';
    Label1.Caption:='/';

-------- botão = --------

    if tipoconta = 'adição' then
    begin
      valor2:=strtofloat(edit1.text);
      edit1.text:=floattostr(valor1+valor2);
   
    end;

    if tipoconta = 'subtração' then
    begin
      valor2:=strtofloat(edit1.text);
      edit1.text:=floattostr(valor1-valor2);
   
    end;

    if tipoconta = 'divisão' then
    begin
      valor2:=strtofloat(edit1.text);
      edit1.text:=floattostr(valor1/valor2);
   
    end;

    if tipoconta = 'multiplicação' then
    begin
      valor2:=strtofloat(edit1.text);
      valor1:= valor1*valor2;
      edit1.text:=floattostr(valor1);
   
    end;

-------- botão % --------

  if tipoconta = 'adição' then
   begin
      porcentagem:=strtofloat(edit1.text);
      porcentagem:=porcentagem/100;
      porcentagem:=porcentagem*valor1;
      edit1.text:=floattostr(valor1+porcentagem);
   end;

   if tipoconta = 'subtração' then
   begin
      porcentagem:=strtofloat(edit1.text);
      porcentagem:=porcentagem/100;
      porcentagem:=porcentagem*valor1;
      edit1.text:=floattostr(valor1-porcentagem);
   end;

-------- botão C --------

  edit1.text:='';
  valor1:=0;
  valor2:=0;
  tipoconta:='';
  Label1.Caption:='';

Como Configurar o Roteador GTS Network 78.0454ARB ?

Se você deseja aprender a configurar o seu Roteador GTS Network 78.0454ARB então assista a vídeo aula.

Resetando Roteador GTS

Se você deseja resetar o seu roteador GTS assista a essa vídeo aula.

Como gravar um dvd ou cd de mp3 ? - Nero 9

Se você deseja aprender a gravar um cd ou dvd de mp3 assista a vídeo aula abaixo:

Roteador TP-Link Travando - Como resolver ?

Se o seu  roteador TP-Link está travando siga a dica da vídeo aula abaixo.

Configurando o Roteador TP-Link TL-WR740N

Se você deseja aprender a configurar seu roteador TP-Link TL-WR740N então assista a essa vídeo aula.

Como Configurar o Roteador GTS Sky Range 81.0124ARB ?

Se você quer configurar seu roteador GTS Sky Range 81.0124ARB sozinho assistindo a esta vídeo aula você saberá como.

Eu utilizo o GTS Sky Range com firmware AP Router:

Configurando Mikrotik do zero RB750GL

Nessa vídeo aula você irá aprender a configurar seu mikrotik do zero.

Introdução ao Mikrotik

Nessa vídeo aula eu falo sobre a sequencia de vídeo aulas que estarei fazendo.

Como Ganhar Dinheiro com meu site ? - Criação de Sites

Quer ganhar dinheiro com seu site e não sabe como ?

Assista a essa vídeo aula.

Como Criar Minha Primeira Página em HTML ?

Nessa Vídeo Aula você irá aprender a criar a primeira página do seu site.

Tipos de Sites - Criação de Sites

Antes de começa a criar seu site assista essa vídeo aula.

Como hospedar meu site ?

Se você não sabe como hospedar seu site então assista a essa vídeo aula.

O Woofer Ultravox 550wrms é bom ?

O Woofer Ultravox 550wrms é bom ? Assista o vídeo e tire suas próprias conclusões.