Zitat von
Barny
[...] ich würde euch trotzdem bitten einmal Stellung dazu zu nehmen und vielleicht auch ein paar Verbesserungsvorschläge zu äußern!
Dir ist bestimmt auch aufgefallen, dass dieses "Programm" aus 90% Copy und Paste besteht, soll jetzt nicht heißen, dass du den Code "geklaut" hast, sondern dass die Codefragmente sich ziemlich ähneln und das sollte einen Programmierer immer zu denken geben
Das hier z.B.:
Code:
a1 := Random(10);
Edit1.Text := IntToStr(a1);
a2 := Random(10);
Edit2.Text := IntToStr(a2);
a3 := Random(10);
Edit3.Text := IntToStr(a3);
a4 := Random(10);
Edit4.Text := IntToStr(a4);
a5 := Random(10);
Edit5.Text := IntToStr(a5);
Geht viel kürzer:
Code:
var I: Byte;
for I := 1 to 5 do TEdit(FindComponent('Edit' + IntToStr(I))).Text := Random(10);
Oder sowas:
Code:
if Edit6.Text = IntToStr(a1+a2)
then
begin
Edit6.color := clgreen;
end
else
Edit6.color := clred;
if Edit7.Text = IntToStr(a2+a3)
then
begin
Edit7.color := clgreen;
end
else
Edit7.color := clred;
Geht etwas eleganter:
Code:
const A: Array[Boolean] of TColor = (clRed, clGreen);
Edit6.Color := A[Edit6.Text = IntToStr(a1+a2)];
Gibt noch einiges mehr, aber das kannst du ja mal alles umsetzen, dann schrumpft sich der Code auf 25% zusammen