Ich hab mir mal die Freiheit genommen und den Quelltext mal nach meinen Vorstellungen formatiert, um deine Frage zu beantworten.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0 : Timer1.Interval := 60;
1 : Timer1.Interval := 30;
2 : Timer1.Interval := 15;
end;
button2.Visible:= false;
Button4.Visible:= true;
if winkel > 360
then winkel:=0;
if IsNotInt(Edit1.Text) or IsNotInt(Edit2.Text) then
begin
MessageBox(pchar('Bitte geben sie nur Zahlen ein!!!'), '!!! Achtung !!!', MB_OK); // ausgabe einer nachricht wenn im feld keine zahlt steht
exit;
end else
begin
r1:=strtoint(Edit1.text);
r2:=strtoint(Edit2.Text); //umwandeln des des string aus den eingabefeldern in einen integer wert und speichern auf dem integer l und r
end;
z:= r1 + 2 * r2;
if z > 200 then
begin
if MessageDlg('soll wirklich gemalt weden???',mtInformation , [mbYes, mbNo], 0) = mrYes then
begin
with Bitmap1.Canvas do
begin
Ellipse(x0 - r1, y0 - r1, x0 + r1, y0 + r1); //zentraler Kreis
Ellipse(x0 + r1, y0 + r2, x0 + r1 + 2 * r2, y0 - r2); //außen Kreis
Pen.Color:= clred;
Ellipse(x0 + r1 + 2, y0 + 2, x0 + r1 - 2, y0 - 2);
Pen.Color:= clblack;
end;
Timer1.Enabled:= true;
end else
begin
Edit1.text:= '50';
Edit2.Text:= '10';
button2.Visible:= true;
Button4.Visible:= false;
end;
end else
begin
with Bitmap1.Canvas do begin
Ellipse(x0 - r1, y0 - r1, x0 + r1, y0 + r1); //zentraler Kreis
Ellipse(x0 + r1, y0 + r2, x0 + r1 + 2 * r2, y0 - r2); //außen Kreis
Pen.Color:= clred;
Ellipse(x0 + r1 + 2, y0 + 2, x0 + r1 - 2, y0 - 2);
Pen.Color:= clblack;
end;
Timer1.Enabled:=true;
end;
Paintbox1.Canvas.Draw(0, 0, Bitmap1);
end;
Aber ehrlich gesagt, wüsste ich nicht was man da kürzen sollte
Das einzige, was mir aufgefallen sind die Zeilen:
Delphi-Quellcode:
if IsNotInt(Edit1.Text) or IsNotInt(Edit2.Text) then
begin
MessageBox(pchar('Bitte geben sie nur Zahlen ein!!!'), '!!! Achtung !!!', MB_OK); // ausgabe einer nachricht wenn im feld keine zahlt steht
exit;
end else
Da hier ja des öfteren über das "exit" gelästert wurde (
), wäre es sinnvoller diese Zeilen ganz am Anfang zu schrieben, quasi:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if IsNotInt(Edit1.Text) or IsNotInt(Edit2.Text) then
begin
MessageBox(pchar('Bitte geben sie nur Zahlen ein!!!'), '!!! Achtung !!!', MB_OK); // ausgabe einer nachricht wenn im feld keine zahlt steht
end else
begin
case ComboBox1.ItemIndex of
.
.
.
end;
end.