-
Forum: Programmieren allgemein
by Rookie91,
2. Aug 2015
Habe es gerade durch Zufall herausgefunden: Der Grund war wie DeddyH schreibt der itemindex der combobox. Der stand auf -1. Bin mir sicher, dass ich daran nichts geändert habe..naja mit itemindex 0 funktionierts wieder!
Vielen Dank euch!!
-
Forum: Programmieren allgemein
by Rookie91,
2. Aug 2015
Nochmal der Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var d,V,Dichte,n,Re: real;
begin
V:= StrToFloat(edit1.Text)/1000;
Dichte:= StrToFloat(edit11.Text);
n:= StrToFloat(edit10.Text)/1000000;
case combobox2.ItemIndex of
0: d:= 0.01;
-
Forum: Programmieren allgemein
by Rookie91,
2. Aug 2015
vorher
-
Forum: Programmieren allgemein
by Rookie91,
2. Aug 2015
Ja, ich denke er wird erreicht. Es steht nun zumindest ein grünes Häkchen auf dem roten Punkt. Wenn ich dann mit F8 weiter gehe, sind diese Zeilen rot gefärbt:
Dichte:= StrToFloat(edit11.Text);
n:= StrToFloat(edit10.Text)/1000000;
case combobox2.ItemIndex of
wenn ich dann nochmal F8 drücke springt er zu
Re:= 4*V*Dichte/d/n/3.1416;
wenn ich ein weiteres mal F8 drücke kommt wieder die...
-
Forum: Programmieren allgemein
by Rookie91,
2. Aug 2015
Ich benutze Delphi7.
Ok also ich setze den Haltepunkt, die Zeile ist dann mit einem roten Punkt markiert. Dann starte ich mit F9. Wenn ich dann berechnen will, dann kommt wieder die gleiche Fehlermeldung wie beschrieben mit den rot markierten Formeln.
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Debugger durchgehen?
Also wenn ich das Programm laufen lasse und berechnen will (also die Rechnung, in der Edit1 und Edit2 benutzt werden und in Edit3 das Ergebnis gezeigt wird) zeigt er mir das hier: "Re:= 4*V*Dichte/d/n/3.1416;" rot an. Dazu die Meldung "floating point overflow". Wenn ich F8 drücke (ist das mit debuggen gemeint?) zeigt er mir noch folgendes rot an: "if Re >=2320 then begin...
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Bevor ich mich daran nochmal versuche, möchte ich aber, dass die Rechnung wieder einwandfrei läuft und ich das ganze dann nochmal abspeichern kann. Was ist denn jetzt daran falsch?:
procedure TForm2.Button1Click(Sender: TObject);
var d,V,Dichte,n,Re: real;
begin
V:= StrToFloat(edit1.Text)/1000;
Dichte:= StrToFloat(edit11.Text);
n:= StrToFloat(edit10.Text)/1000000;
case...
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Wie sollte das denn aussehen? Ich muss doch zwischen "end else begin" die Variablen zuweisen ansonsten kann doch nicht gerechnet werden oder?
Bin hier total am verzweifeln. Das Überprüfen ist nicht zwingend notwendig, aber dadurch, dass ich es versucht habe, klappt gar nichts mehr.
Ich sehe woran es hängt, nämlich Re:= 4*..., allerdings kann ich damit rein gar nichts anfangen!
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Hey,
ich bekomms nicht hin :(
ich will jetzt einfach nur, dass die Rechnung wieder funktioniert. Das soll dann reichen. Ich habe alles auf den Anfangszustand gebracht. Wisst ihr, warum das jetzt trotzdem nicht funktioniert?
Es kommt die Meldung: Floating point overflow
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
jetzt funktioniert die Rechnung sogar nicht mehr...
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Hey,
habe das jetzt mal so geändert:
ich weiß leider nicht, was mit formatieren gemeint ist :oops:
procedure TForm2.Button1Click(Sender: TObject);
var V,Dichte,n,Re,Laenge,Ergebnis,d: double;
Ausgabe: string;
begin
V:= StrToFloat(edit1.text)/1000;
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Hallo Leute,
ich habe folgendes Problem: ich möchte 2 Edit-Felder, deren Inhalt für eine Berechnung notwendig ist, auf Inhalt überprüfen. Falls dort nichts steht soll eine Message gezeigt werden und im Edit-Feld, wo das Ergebnis gezeigt wird: Berechnung fehlgeschlagen!.
Mein Quelltext:
procedure TForm2.Button1Click(Sender: TObject);
var V,Dichte,d,n,Re: real;
begin
V:=...
-
Forum: Programmieren allgemein
by Rookie91,
1. Aug 2015
Hallo Leute,
ich habe folgendes Problem: ich möchte 2 Edit-Felder, deren Inhalt für eine Berechnung notwendig ist, auf Inhalt überprüfen. Falls dort nichts steht soll eine Message gezeigt werden und im Edit-Feld, wo das Ergebnis gezeigt wird: Berechnung fehlgeschlagen!.
Mein Quelltext:
procedure TForm2.Button1Click(Sender: TObject);
var V,Dichte,d,n,Re: real;
begin
V:=...