Thema: Delphi Fehler ind er Procedure?

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#2

Re: Fehler ind er Procedure?

  Alt 3. Jan 2004, 16:32
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.
Thomas
  Mit Zitat antworten Zitat