Erstellen einer Tabelle mit Sinus- und Cosinus Werten

[DeddyH]

Siehste, das ist der Unterschied zwischen write und writeln

[hamptoncourt]

Ah, aber jetzt schein ich es fast zu haben ... du hattest mich da auf ne Idee gebracht, mit dem "untereinander"-schreiben

Habe das jetzt so geschrieben, dass er die Werte untereinander schreibt, abwechselnd Sinus und Cosinus ... das hat auch gut geklappt. Nur eine Datei und er schmeißt die richtigen Werte raus ... aber nun scheint das Programm nurnoch einmal zu laufen wenn ich eine neue Zahl eingebe und wieder auf den Button klicke, dann kommt nen Error und das Programm schließt sich ... mist *lol*

[DeddyH]

Und welcher Error?

[hamptoncourt]

"Project project1.exe raised exception class 'RunError(5)'"

Dann wechselt er in die Zeile "for x:=0 to 900 do begin", dem Beginn der Schleife zum Auslesen der Daten ...

Delphi-Quellcode:

assignfile(f,'Werte.txt');
  reset(f);

  for x:=0 to 900 do
   begin
    readln(f, s);
    sinWert[x] := strtofloat(s);
    readln(f, c);
    cosWert[x] := strtofloat(c);

   end;

[DeddyH]

Und wenn Du einmal einen absoluten Pfad angibst?

[Blup]

RunError(5)
Vermutlich Zugriff verweigert weil "closefile(f)" an einer Stelle vergessen.

[DeddyH]

Das kann es auch sein, oder eben das aktuelle Arbeitsverzeichnis ist falsch.

[hamptoncourt]

och gott war das einfach *lach* Ich bin ja auch nen trottel ...

danke Blup ... da fehlte tatsächlich das closefile(f) zum schluss ... argh ... na gut, also alles in Ordnung jetzt Programm läuft so wie es laufen soll ... Ich danke euch allen vielmals für die Hilfe ...