Zitat von
fuknersascha:
oder du schreibst es in eine Procedure
[...]
vorausgesetzt deine zahlen bleiben immer gleich ind procedure
somit sparst du dir viele zeilen
Gruss sascha
Sollten sie sich doch ändern, könntest du aber auch eine Prozedur mit Parametern nehmen, z.B.
Delphi-Quellcode:
procedure Zahlen(myZahl1, myZahl2, myZahl3, myZahl4 : Integer);
begin
Zahl5 := myZahl1;
Zahl6 := myZahl2;
Zahl7 := myZahl3;
Zahl8 := myZahl4;
end;
[...]
if Zahl17=28 then
zahlen(255, 255, 255, 240);
SCRaT