Sorry, aber dein Code ist sehr unübersichtlich.
Ich würde in der Delphi Hilfe mal das Stichwort Array nachschlagen.
Dann kannst du die Variablen use1 bis use33 über ein Array deklarieren.
Es wird dann alles sehr viel einfacher, kürzer, übersichtlicher.
Auch würde ich in der Delphi Hilfe mal das Stichwort FindComponent nachschlagen.
Auch kannst du deine Case Statements vereinfachen.
Z.B anstatt
Delphi-Quellcode:
Case i Of
8: begin
Inc(links,verschiebung);
oben := 10;
end;
16: begin
Inc(links,verschiebung);
oben := 10;
end;
24: begin
Inc(links,verschiebung);
oben := 10;
end;
32: begin
Inc(links,verschiebung);
oben := 10;
end;
40: begin
Inc(links,verschiebung);
oben := 10;
end;
48: begin
Inc(links,verschiebung);
oben := 10;
end;
56: begin
Inc(links,verschiebung);
oben := 10;
end;
64: begin
Inc(links,verschiebung);
oben := 10;
end;
kannst du
Delphi-Quellcode:
Case i Of 8, 16, 24, 32, 40,48,56,64:
begin
Inc(links,verschiebung);
oben := 10;
end;
schreiben.