Bei mir wird der Fehler inkorekter Integer Typ angezeigt aber warum
wollte nen Literverbrauch pro 100KM machen mit ner Simme mit nen Tank von 8 Litern und reservreverbrauch
Das wär mein Code:
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
edtKMA: TEdit;
edtKME: TEdit;
lblKM: TLabel;
btnBerechnen: TButton;
Label4: TLabel;
edtTank: TEdit;
lblBVerbrauch: TLabel;
Verbrauch: TLabel;
lblVerbrauch: TLabel;
procedure btnBerechnenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnBerechnenClick(Sender: TObject);
var intKMA, intKME, intKM, intBVerbrauch, intTank, sng8, sng100, intVerbrauch : integer;
begin
intKMA := StrToInt (edtKMA.Text);
intKME := StrToInt (edtKME.Text);
intKM := intKME-intKMA;
lblKM.Caption := IntToStr (intKM);
intTank := StrToInt (edtTank.Text);
intBVerbrauch := intTank - sng8 ;
lblBVerbrauch.Caption := IntToStr (intBVerbrauch);
intVerbrauch := intBVerbrauch/sng100*intKM; hier ist das Siliconon rot aber why???
lblVerbrauch.Caption := IntToStr (intVerbrauch);
end;
end.