Eine genaue Fehlermeldung wäre hilfreich, ich möcht Delphi jetzt nicht installieren.
Rein von der Logik ist dieser Block aber sehr seltsam:
Code:
Schrittweite := StrToInt(Eingabefeld.Text);
If Schrittweite > 90 Then
ShowMessage ('Schrittweite zu groß');
If Schrittweite <=0 Then
ShowMessage ('Schrittweite zu klein');
Try
Schrittweite := StrToInt(Eingabefeld.Text);
Except
ShowMessage ('ungültige Eingabe');
der Try Except Block gehört ganz an den Anfang, sonst ist er sinnlos.
Code:
Try
Schrittweite := StrToInt(Eingabefeld.Text);
Except
ShowMessage ('ungültige Eingabe');
If Schrittweite > 90 Then
ShowMessage ('Schrittweite zu groß');
If Schrittweite <=0 Then
ShowMessage ('Schrittweite zu klein');
Dieser Teil ist auch sehr komisch:
Code:
str (grad :2, aus);
str (co:2:4, ausg);
Ausgabefeld.Lines.Add('cos('aus'):'ausg);
aus ist ein Integer, ausg ist überhaupt nicht definiert.Str gibt einen String zurück.
Du müßt also bei den Variablen oben statt
i, aus:integer; //i wird nie verwendet
aus, ausg:string;
Auerdem schätz ich mal, daß statt
Ausgabefeld.Lines.Add('cos('aus'):'ausg);
Ausgabefeld.Lines.Add('cos('+aus+'):'+ausg);
hingehört.
Jak
____________________________________
Join the DNRC |
Godwin\'s Law (thx@stona)
Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing.
\"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)