Einzelnen Beitrag anzeigen
Alt 08.11.2004, 12:27   #2
jak
Inventar
 
Registriert seit: 13.06.2001
Beiträge: 1.830


Standard

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)
jak ist offline   Mit Zitat antworten