Manno ... jetzt läuft es doch wieder nicht
Ich mache das glaub ich komplett falsch ... also er erstrellt die Datei, alles Super ... aber sobald ich in die Box nen Wert eingebe und auf den Button klicke, dass er das berechnen soll, kackt der ab ...
@ Kenny: Ich verstehe das auch nicht ganz, wie du das gemacht hast mit den Vorzeichen und so ... ne case Anweisung ist klar ... der guckt in welchem Quadranten und berechnet dann ob - oder + und so ... Aber der weiß doch in dieser Anweisung gar nicht, was x ist, oder???
Auf jeden Fall: Sobald ich den Button zum berechnen klicke, will er die Daten aus der TXT Datei auslesen. dann kommt aber gleich ein EConvertError:
" " is an invalid float
hmmm ... vielleicht habe ich es jetzt auch komplett falsch aufgebaut. Hier mal der Quelltext zum Auslesen der Daten ...
Delphi-Quellcode:
var
s, c :
String;
x, v, i : Integer;
rad, ErgSin, ErgCos : double;
begin
assignfile(f,'
Werte.txt');
reset(f);
for x:=0
to 900
do
begin
readln(f, s, c);
sinWert[x] := strtofloat(s);
cosWert[x] := strtofloat(c);
end;
closefile(f);
Hoffe, mir kann da noch jemand helfen ...