Zitat Zitat von Barny Beitrag anzeigen
[...] 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