jap danke alexander und toxman
jetz taucht aber ein weiteres für mich bisher nicht ersichtliches problem auf. habe das ganze auf eine andere art und weise behoben, bei meiner sinus-funktion tut er alles wunderbar, doch bei cosinus und tangens hat delphi keine lsut das selbe zu tun.
hier der code für mienen knopf:
Code:
procedure TSinCosTan.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
if (RadioGroup1.ItemIndex=0) then
begin
sinus:=true;
cosinus:=false;
tangens:=false;
end
else if (RadioGroup1.ItemIndex=1) then
begin
cosinus:=true;
sinus:=false;
tangens:=false;
end
else if (RadioGroup1.ItemIndex=2) then
begin
tangens:=true;
sinus:=false;
cosinus:=false;
end;
if sinus=true then
begin
Memo1.Lines.Clear;
for i:=a to b do
begin
Memo1.Lines.Add('Sinus von '+ IntToStr(i) + '°: ' + FloatToStr(Sin(i*((2*pi)/360))));
if (i=0) OR (i=180) OR (i=360) then
begin
Memo1.Lines.Add('Sinus von ' + IntTostr(i) + '°: 0');
Memo1.Lines.Delete(i);
end;
end;
end;
if cosinus=true then
begin
Memo1.Lines.Clear;
for i:=a to b do
begin
Memo1.Lines.Add('Cosinus von '+ IntToStr(i) + '°: ' + FloatToStr(Cos(i*((2*pi)/360))));
if (i=90) OR (i=270) then
begin
Memo1.Lines.Add('Cosinus von ' + IntTostr(i) + '°: 0');
Memo1.Lines.Delete(i);
end;
end;
end;
if tangens=true then
begin
Memo1.Lines.Clear;
for i:=a to b do
begin
Memo1.Lines.Add('Tangens von '+ IntToStr(i) + '°: ' + FloatToStr(Tan(i*((2*pi)/360))));
if (i=0) OR (i=180) OR (i=360) then
begin
Memo1.Lines.Delete(i);
Memo1.Lines.Add('Tangens von ' + IntTostr(i) + '°: 0');
end
else if (i=90) OR (i=270) then
begin
Memo1.Lines.Delete(i);
Memo1.Lines.Add('Tangens von ' + IntToStr(i) + '°: nicht definierbar');
end;
end;
end;
end;
alles mit standard-namen. Wie man sieht steht bei "if sinus=true" und "if cosinus=true" exakt das selbe, nur die werte sind angepasst. bei sinus funktioniert es einwandfrei doch bei cosinus nicht. das programm soll dann die eigentliche zeile (bei sinus) 0,180 und 360 löschen und eben die zeile mit ergebnis = 0 hinschreiben. beim sinus kein problem, doch beim cosinus löscht er die andere zeile nicht.
ich sehe eigentlich keinen fehler.
sieht ihn jemand von euch?
