" " kein gültiger Gleitkommawert "

[HansaHans]

Hey ich habe ein Problem !!!!
wenn ich die daten eingebe und auf berechnen klicke ,kommt das Problem " " kein gültiger Gleitkommawert "



kann mir wer helfen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var verbrauch,liter, benzin ,b:real;
begin
verbrauch:=strtofloat(edit3.Text);

verbrauch:=strtofloat(edit1.Text)/strtofloat(edit2.Text)*100;




end;

end.

[edit=Matze]Sprache geändert. Es geht nicht um .NET. MfG, Matze[/edit]

[Matze]

Hallo, herzlich Willkommen!

Stehen in den 3 TEdits auch jeweils Zahlen? Die Meldung deutet darauf hin, dass dies nicht der Fall ist.

Du solltest solche Fehleingaben übrigens abfangen. TryStrToFloat oder try - except können dir beispielsweise dabei helfen.

[Blackheart]

Sollte das nicht in etwa so aussehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
 var 
  verbrauch,liter, benzin ,b:real; 
begin 
  verbrauch:=strtofloat(edit1.Text)/strtofloat(edit2.Text)*100; 
  edit3.Text:=floattostr(verbrauch); 
end;

[SirThornberry]

geht es hier wirklich um .Net? die Quelltexte sehen nämlich gar nicht danach aus!

[HansaHans]

danke ich hab es gelöst bekommen
Vielen Dank das Board mag ich :)
Ich bin immoemtngerade in der 11. Stufe und fange mit Delphi an ich hoffe, dass ihr mir vllt noch einmal helfen könnt :)
danke

mfg hansaHans

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject); 
var
  verbrauch,liter, benzin ,b:real; 
begin
  verbrauch:=strtofloat(edit2.Text)/strtofloat(edit1.Text)*100;
  edit3.Text:=floattostr(verbrauch);



end;

end.

[mkinzler]

Matze hat dir doch schon geholfen, du mußt halt nur seine Anregungen umsetzen.

[DeddyH]

Ein Tipp noch: in Edit1 darf nicht '0' stehen ;)