Jump to content


Photo

[Resolvido] Erro de Compilação - Tipagem

Delphi Compilação Tipagem

  • Faça o login para participar
8 replies to this topic

#1 shogun89

shogun89

    Normal

  • Usuários
  • 91 posts
  • Sexo:Masculino
  • Localidade:marilia

Posted 31/03/2015, 04:50

unit Unit1;


interface


uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
Total:integer;
J,L:integer;
begin


J:=StrToInt(InputBox('Valor','Digite o valor do produto!',''));
L:=StrToInt(InputBox('Valor','Digite o numero de parcelas do produto!',''));
Total:=J/L;
ShowMessage('O Valor a ser pago em cada parcela é:'+IntToStr(Total));


end;


end

NÃO SEI COMO RESOLVER ISSO

dcc command line for "Project1.dpr"

[dcc32 Error] Unit1.pas(33): E2010 Incompatible types: 'Integer' and 'Extended'
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'


#2 Danilomaru

Danilomaru

    Ativo

  • Moderadores
  • 300 posts
  • Sexo:Masculino
  • Localidade:brasil

Posted 02/04/2015, 01:23

Acho que isso resolve
 
procedure TForm1.FormCreate(Sender: TObject);
var
  L : integer;
  I, T : Double;
begin
  I := StrtoFloat(InputBox('Valor','Digite o valor do produto!',''));
  L := StrToInt(InputBox('Valor','Digite o numero de parcelas do produto!',''));
  T := I / l;
  ShowMessage('O Valor a ser pago em cada parcela é : R$ ' + FloattostrF(T,ffnumber,15,2));
end;


#3 LeslieVek

LeslieVek

    12 Horas

  • Usuários
  • 150 posts
  • Sexo:Feminino
  • Localidade:Mariupol

Posted 28/08/2017, 06:02

diemfpa

http://www.k2hotel.i...mingway-710.php
http://www.bottega-del-legno.it/387-lacoste-sneakers-ebay.htm
http://www.romars.it...ambino-848.html
http://www.garim.it/...un-nere-514.asp
http://www.agrituris...sia-bambina.php

Magliette Hollister E Abercrombie
Nike Roshe Run Nere E Bianche Ebay
Nike Air Max Anni 90
Hogan Nuova Collezione Primavera 2016
Nike Cortez Classic White


#4 zapedlok

zapedlok

    Expert

  • Usuários
  • 554 posts
  • Sexo:Feminino
  • Localidade:Waimea

Posted 10/10/2017, 09:19

Discounts! famous makeup products

progect12.jpg
Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).

buy.png

READ MORE
Lavender cut-out back strapless mini cotton dress ( 102.02 $) Hafize Ozbudak
280PCS Heat Shrink Tube Sleeving ( $5.96 )
Elliott, Denholm
Sunhokey PRUSA I4 3D Printer DIY Kit-496.51 $
8GB Ram+128GB SSD+1000GB HDD Ultrathin Quad Core J1900 Fast Running Windows10 system Laptop Notebook Computer, free shipping ( 399.00 $)
2pcs 2520lm 36w high power waterproof led offroad work light off road driving light with 12pcs 3w led for car truck boat ( 29.59 $)
Fuchsia fonce cotton tiger espadrille ( 108.59 $) Kenzo
Wholesale Durable MenWomen Genuine Leather Stainless Steel Buckle Strap Watch Band 16 18 19 20 21 22 24 mm Black Brown ( 3.99 $)
Free shipping for car air freshener 100 1 original packaging mickey shape car air cleaner ( 12.00 $)
City Chic - Calfskin Square Medium Valet Tray ( 150.00 $)
DM09 Smartwatch Phone-51.86 $
Holly rope and luggage leather platform sandal ( 112.33 $) Michael Kors
Pony tail for russia women pure color ponytail natural hair extensions xu chang bhf hair products straight human hair ( 36.75 $)
Simplee autumn lace up leather suede pencil skirt winter 2016 cross high waist skirt zipper split bodycon short skirts womens ( 23.31 $)
Sterling Silver Seashell w Black Lace ( 72.00 $)


25bb.jpg

#5 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 14/10/2017, 06:41

Viagra A Los 40 Anos levitra online pharmacy Levitra Que Precio Tiene Ebay Levitra Test Kamagra

#6 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 15/10/2017, 18:49

Precio De Kamagra En Farmacia Acheter Levitra Bayer Amoxil Generique France viagra cialis Levitra Hoher Blutdruck Cialis Caducado Vente Viagra A Nice

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 18/10/2017, 05:07

Secure Levaquin Tablets Online Low Price Secure Ordering Provera Where To Buy Delivered On Saturday Propecia Adelgaza viagra online Acheter Du Baclofene

#8 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 31/10/2017, 17:05

Tadapox Buy Cialis Patentti Umpeutuu Viagra In Canada For Sale online pharmacy Pharmacie Online Viagra Discount Buy Ilosone Antibiotic Usa
Amoxicillin Information Sheet Best Price For Propecia Online viagra Order Doxycycline Amoxicilline Spermatozoides Buy Generic Viagra Australia
Soft Viagra Organic Alternative To Propecia Cytotec En Venta viagra prescription Online Apotheke Kamagra Kaufen

#9 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 18/11/2017, 20:02

Viagra E Miopia Can Amoxicillin Get You Hi buy cialis Cheap Cialis On Line No Rx
Propecia Kaufen Osterreich viagra Viagra Quel Site
Cialis Soft Tabs Review Viagra Pfizer Forum Kamagra Efectos Farmacia 20mg levitra india Buy Lexapro Online Uk Cialis Contraindicaciones Alcohol Isotretinoin Tab Internet Pharmacy With Free Shipping
Pharmacy World Amoxicillin Dosage In Children Cytotec Misoprostol levitra without prescription Buy Plavix Online No Prescription
Pak Online cialis buy online Buy Doxycycline Vietnam
Order Shipped Ups Stendra Medication Virginia Beach Levitra Contre Cialis Le Cialis Est Il Efficace viagra Cephalexin Used To Treat Dogs Naturellement Durer Plus Longtemps 1000 Mg Zithromax





Veja alguns posts relacionados com: Delphi, Compilação, Tipagem

0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq