@daredd:
So viele Constanten/Variablen sind schlecht. Und dazu machen sie noch viel arbeit.
So wie ich den Code sehe habe ich die Frage:
Wieso überhaupt Constanten, denn sie sind ja lokal und werden anscheinend nur hier gebraucht.
Delphi-Quellcode:
procedure TForm1.Zufall(Sender: TObject);
begin
NSpin18.Text:=IntToStr(Random(7))+','+IntToStr(Random(7))+IntToStr(Random(7));
SSpin18.Text:=IntToStr(Random(9))+','+IntToStr(Random(9))+IntToStr(Random(9));
.......
.......
.......
end;
Das ganze könnte man dann noch verkürzen, allerdings müsste man die Namensgebung der Einzelnen Komponenten überdenken. Man könnte diese Komponenten auch mit FindComponent ansprechen. Dann könnte man das alles in 2 Schleifen packen. Eine für die 7er Komponenten und eine für die 9er Komponenten.