Ok, das Problem mit dem zeichnen habe ich geschafft.
Beim zweiten Problem (Prüfen ob Dreieck konstruierbar oder nicht), bin ich noch dabei.
Bis jetzt sieht es so aus:
Code:
procedure TForm1.Edit3Exit(Sender: TObject);
var err1, err2, err3 :integer;
begin
val(Edit1.Text,SeiteA,err1); //ließt Seite a ein
val(Edit2.Text,SeiteB,err2); //ließt Seite b ein
val(Edit3.Text,SeiteC,err3); //ließt Seite c ein
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')
then begin
if (SeiteA+SeiteB>SeiteC) and (SeiteB+SeiteC>SeiteA) and (SeiteC+SeiteA>SeiteB)
then begin
// lasse ich erstmal frei, weil es nicht so funktioniert wie ich es wollte.
// ich hatte eigentlich vor, diese variante zu nutzen:
// if not (SeiteA+SeiteB>SeiteC) and not (SeiteB+SeiteC>SeiteA) and not (SeiteC+SeiteA>SeiteB)
end
else begin
showmessage('Das Dreieck ist nicht konstruierbar.');
// Die Berechnungs-Button werden aus Sicherheitsgründen disabled
button1.Enabled:=false;
button3.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
end;
end;
end;
Soweit klappt es schon, aber nun kommt jedesmal eine showmessage wenn ich zwischen den Editfeldern hin und her klicke. Ich würde es gerne so programmieren, das nur eine showmessage kommt, bis das dreieck konstruierbar ist.