Prob mit Schul- und Privat Delphen.

[Christian Seehase]

Moin Zombi,

lass' mal bei Deiner Funktion das StrToFloat weg (und natürlich auch die zugehörige schliessende Klammer)

Mit StrToInt wird ja der Wert des Editfeldes in eine Ganzzahl verwandelt, und dann gleich weiter in eine Gleitkommazahl.
Das Ergebnis ist also schon eine Gleitkommazahl, so dass StrToFloat nicht gehen kann, da ja kein String für die Funktion zur Verfügung steht.

Es wäre übrigens sicherer StrToIntDef zu verwenden, denn dann kannst Du, für den Fall, dass im Editfeld keine Zahl steht einen Defaultwert annehmen. Ansonsten würde im Fehlerfalle eine Exception ausgelöst werden.

[Zombi]

Tach!

Also das mit der Fehlerhaften Eingabe regel ich anders ich hab mir ne Fehlermeldung gebastelt und hab ihm dann gesagt bei Fehlerhafter Eingabe soll er dann halt die Fehlermeldung zeigen. Das hab ich mit.

Delphi-Quellcode:

Try
blabla
On EconvertError Do
blabla

Doch das mit result klappt immer noch nich :(
Ich kann machen was ich will der sagt mir immer wieder Begin expected but End found.. warum zum Hacker will der nen begin ham is der blöd ? ich will das doch einfach nur ausrechnen der QT sieht dann so aus :

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real;
Begin
  result:=StrToInt(Edit1.Text)*9/5+32;
end;

THX
cya

MfG Zombi :firejump:

[Touchdown]

Schau dir unbedingt die Hilfe zu Funktionen, Try-Blöcken und Übergabeparametern an. Wenn alles so einfach wäre, könnte es ja jeder :mrgreen:

Delphi-Quellcode:

try 
 ...
except // oder auch finally
  on xxx do
end;

Die Sache mit dem StrtoInt hat einen großen Nachteil, es wären nur Integerwerte zur Berechnung möglich.

[Zombi]

Tach.

Mit dem Try und Except Block hab ich ja nich wirklich schwierigkeiten ich wollte nur mal posten wie ich das mache :mrgreen:

Ich habe nur Probz mit der Result Funktion, deswegen währe ich schon sehr dankbar wenn mir jemand eine funzende Funktion mit dem Fahrenheit quatsch posten würde. Ich würde sie mir dann angucken, draus lernen, nutzen :dancer:

cya
THX

MfG
Zombi :firejump:

[Touchdown]

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real;
Begin
  result := Parameter * 9 / 5 + 32;
end;

So schwer war es doch nicht! Hättest mit ein bißchen nachdenken auch drauf kommen können und so viel mehr daraus gelernt!

[Zombi]

Tach !

Sorry aber genau das hab ich auch ausprobiert und mein Rechner hat nix anderes zu tun als mir ständig Fehlermeldungen zu geben :evil: :evil: . entweder er meint

Delphi-Quellcode:

Begin expected but end found

oder ein ganz unbekannte Fehlermeldung

Delphi-Quellcode:

[Warning] Celsius.pas(51): Return value of function 'CelsiusinFahrenheit' might be undefined

:?:
Is aber von wegen undefined ich habe den QT genau wie du ihn beschrieben hast *grr*

Voll der Abfall aber ich werde das jetzt ersteinmal so lange testen bis es funzt...
Das coolste noch is wenn ich einfach 2 Labels und 2 Buttons mache und nicht mein fertiges Programm wo ich einfach immer nur die Formel ändere, dann meint er wenn ich die Funktion bei dem einen Button eingestellt habe das ihm wenn ich Button 2 einstelle eine implementation fehlt.. naja ich hab ja mein fertiges PRogramm und ich teste das jetzt solange bis es funzt!

THX
cya

MfG
Zombi :firejump:

[Daniel B]

Zitat:

Zitat von Zombi

Sorry aber genau das hab ich auch ausprobiert und mein Rechner hat nix anderes zu tun als mir ständig Fehlermeldungen zu geben :evil: :evil: . entweder er meint

Delphi-Quellcode:

Begin expected but end found

Warscheinlich ein ; vergessen

Zitat:

oder ein ganz unbekannte Fehlermeldung

Delphi-Quellcode:

[Warning] Celsius.pas(51): Return value of function 'CelsiusinFahrenheit' might be undefined

:?:
Is aber von wegen undefined ich habe den QT genau wie du ihn beschrieben hast *grr*

Nicht unbekannt, sondern intelliegenter Compiler.

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real; 
Begin 
  Result := 0;
  result := Parameter * 9 / 5 + 32; 
end;

Er sagt ja, Ergebniss könnte undefiniert sein, oder ist es. Man muss in jeder Funktion Result erstmal auf ein Standardwert setzen.


Grüsse, Daniel :hi:

[Touchdown]

Hallo Daniel

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real;
Begin
  result := Parameter * 9 / 5 + 32;
end;

ist so niemals undefiniert, habs eben getestet. Sicher kann man bei komplexen Funktionen sofort ein Result definieren, hier ist es nicht nötig da immer definiert.


Hier sieht es natürlich anders aus:

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real;
Begin
  if parameter > -274 then
    result := Parameter * 9 / 5 + 32;
end;

PS: Es gibt eine fertige CelsiustoFahrenheit :D

[Zombi]

Hi!

Danke für eure Hilfe doch sehr viel weiter bin ich leider immer noch nich :( ich habe alles ausprobiert was ihr geschrieben habt und auch sehr viel selber probiert doch Delphi hat so dermaßen viele Fehlermeldungen das gibts nich. Damals als ich in der Schule Pascal gelernt hab war das alles easyer soweit wie ich das gelernt habe waren die Fehlermeldungen wie ich finde doch leichter zu verstehen. Vor allem gabs nur eine Möglichkeit nicht so wie in meinen allerersten Beitrag wo das aus der Schule und das was ich mache theoretisch das gleiche bewirkt aber doch anders is. Hmm entweder ich erfahre jetzt warum und wie ich bei meiner Lösung ein FormatFloat mache oder ich musses lassen das mit dem result klappt ja doch nich :(

trotzdem THX

cya

MfG Zombi :firejump:

[Luckie]

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real; 
Begin
  result := Parameter * 9 / 5 + 32;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FormatFloat('#.##', Celsiusinfahrenheit(StrToFloat(Edit1.Text)));
end;