case und if combinieren, abschnitte machen:
[delphi]
if a >=0 and <100 then
begin
case ...
case ...
//bis case varaible = 100
end;
if a>99 and <200 then
begin
case ...
case ...
//bis case variable = 200
end;
zumindest wird die procedure dadurch ein wenig schneller!
schreiben musst du den mist trotzdem!
(wobei mir immernoch ne klar is, was du wirklich machen willst)
aber leb ruhig damit, 1500 zeilen mist zu schreiben!
matthias