wiederholungen zusammenfassen?

[SaFu]

oder du schreibst es in eine Procedure

Delphi-Quellcode:

private

procedure zahlen;
.
.
.

procedure Form1.zahlen;
begin
 Zahl5:=255; 
 Zahl6:=255; 
 Zahl7:=255;
end;

begin 
 if  Zahl17=28 then 
  begin 
   zahlen;
   Zahl8:=240; 
  end; 
 end; 

 begin 
  if Zahl17=29  then 
    begin 
     zahlen;
    end;
  end;

vorausgesetzt deine zahlen bleiben immer gleich ind procedure

somit sparst du dir viele zeilen

Gruss sascha