 |
| |
|
|
 |
Autor |
Nachricht |
 |
| |
| DragonDrake |
#1| Verfasst am: 29.08.2008, 16:43 Titel: EConvertError "Kein gültiger Gleitwert" |
 |
|
|
|
gerade reingestolpert
Status: offline
Beiträge: 1
angemeldet: 29.08.2008
|
Sprache: Delphi 5
Ich habe versucht ein pq-Formel berechnungsprogramm zu schreiben, aber immer wenn ich für p und q Zahlen eingebe und dann auf den berechnungs-Button klicke, kommt eine Fehlermeldung  .
"Im Projekt Project1.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: 'ist kein gültiger Gleitkommawert' Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."
Kann mir vielleicht einer bei der Problemlösung helfen?
Das ist mein Unit1:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TpqFormelRechner = class(TForm)
EditP: TEdit;
EditQ: TEdit;
Labelx2: TLabel;
Labelx1: TLabel;
LabelPlus2: TLabel;
LabelPlus1: TLabel;
Labelx4: TLabel;
Labelx3: TLabel;
LabelPlus4: TLabel;
LabelPlus3: TLabel;
LabelP: TLabel;
LabelQ: TLabel;
LabelGleich2: TLabel;
LabelGleich1: TLabel;
LabelNull1: TLabel;
LabelNull2: TLabel;
EXEins: TEdit;
EXZwei: TEdit;
Labelx5: TLabel;
Labelx6: TLabel;
LabelGleich3: TLabel;
LabelGleich4: TLabel;
LKommentar: TLabel;
EKommentar: TEdit;
BBerechnen: TButton;
procedure BBerechnenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
pqFormelRechner: TpqFormelRechner;
implementation
{$R *.DFM}
procedure TpqFormelRechner.BBerechnenClick(Sender: TObject);
var p,q,a,b: Real;
begin
p := strtofloat(EditP.Text);
q := strtofloat(EditQ.Text);
a := strtofloat(EXEins.Text);
b := strtofloat(EXZwei.Text);
a := (-(p/2) + sqrt(Sqr(p/2)-q));
b := (-(p/2) - sqrt(Sqr(p/2)-q));
FloatToStrF(a,ffGeneral,7,2);
FloatToStrF(b,ffGeneral,7,2);
if sqrt(Sqr(p/2)-q)<0
then begin EKommentar.Text := 'Keine Lösung';
EKommentar.Visible := True;
LKommentar.Visible := True;
end
else if sqrt(Sqr(p/2)-q)=0
then begin EKommentar.Text := 'Nur eine Lösung';
EKommentar.Visible := True;
LKommentar.Visible := True;
end
else if sqrt(Sqr(p/2)-q)>=0
then begin EKommentar.Text := 'Zwei Lösungen';
EKommentar.Visible := True;
LKommentar.Visible := True;
end
end;
end.[delphi] |
|
  |
|
|
|
| |
| mkinzler |
#2|Verfasst am: 29.08.2008, 16:46 Titel: Re: EConvertError "Kein gültiger Gleitwert" |
|
|
|
|
sehr aktives Mitglied
Status: online
Beiträge: 20.633
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2009 Professional
|
In einem der Eingabefelder scheint etwas falsches oder garnichts eingegeben worden zu sein
Statt StrToFloat besser StrToFloatDef() verwenden |
|
| |
|
|
|
| |
| DeddyH |
#3|Verfasst am: 29.08.2008, 16:47 Titel: Re: EConvertError "Kein gültiger Gleitwert" |
|
|
|
|
"Rüsselmops" ;-)
Alter: 42
Status: offline
Beiträge: 8.639
angemeldet: 17.09.2006
Wohnort: Schweina/Thüringen
Delphi 2007 Professional
|
Hallo und Willkommen in der DP  ,
auf den ersten Blick sieht das gar nicht so schlecht aus. Allerdings solltest Du besser mit TryStrToFloat ausprobieren, ob die Umwandlung funktioniert und im Fehlerfall mal selbst eine Meldung ausgeben. |
10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.
If a train station is where the train stops, what the hell is a workstation?  |
| |
|
|
|
| |
| grenzgaenger |
#4|Verfasst am: 29.08.2008, 17:06 Titel: Re: EConvertError "Kein gültiger Gleitwert" |
|
|
|
|
ehem. Benutzer
|
da es sich anscheinend um ein schulprogramm handelt, reicht es doch, wenn du die zahl richtig eingibst  (in der schule braucht man ja keine fehlerbehandlung )
wie? musst mal in deine windows einstellungen lurken...
PS: delphi tags können hier auch nicht schaden ...  |
 Zuletzt bearbeitet am 29.08.2008, 17:06, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
| Angel4585 |
#5|Verfasst am: 29.08.2008, 17:11 Titel: Re: EConvertError "Kein gültiger Gleitwert" |
|
|
|
|
"Rüsselmops" ;-)
Alter: 23
Status: offline
Beiträge: 1.637
angemeldet: 04.10.2005
Wohnort: Sasbach am Kaiserstuhl
Delphi 2005 Professional
|
Setze gegebenenfalls den DecimalSeparator.
Oder versuch bei der EIngabe anstatt einem , ein . bzw andersrum |
Ich bin ein Rüsselmops  |
| |
|
|
|
| |
| grenzgaenger |
#6|Verfasst am: 29.08.2008, 17:19 Titel: Re: EConvertError "Kein gültiger Gleitwert" |
|
|
|
|
ehem. Benutzer
|
| Angel4585 hat folgendes geschrieben: | Setze gegebenenfalls den DecimalSeparator.
Oder versuch bei der EIngabe anstatt einem , ein . bzw andersrum |
bei deiner auflistung fehlt dann noch der Trim  |
|
| |
|
|
|
|
|
|
| |
|
|
| |
 
  
|
|
| |
|
Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.
|
|
|
Site-Map
Suchen
Code-Library
Registrieren
Login
