Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

Code-Desgin Frage

  Alt 25. Sep 2003, 08:27
Ich habe mal eine Frage bzw. will mal eure Meinung hören.

Ich habe hier vor mir eine Prozedur die über eine Bildschirmseite geht. In dieser Prozedur habe ich eine case-verzweigung:
Delphi-Quellcode:
case StrToInt(Line[0]) of
      0: // Filelist files to copy
        begin
          if FindWildcard(Line[1]) then // Wildcard file
          begin
            SourceFilename := FindWildCardFile(Drive + ':\' + Line[1]);
            SourcePath := Drive + ':\' + SourceFilename;
          end
          else // exact file
          begin
            SourceFilename := CutPathname(Line[1]);
            SourcePath := Drive + ':\' + Line[1];
          end;
          TargetPath := CutFilename(ParamStr(0)) + BOOTCDFILESDIR + Line[2] +
            SourceFilename;
          bSuccess := CopyFile(pointer(SourcePath), pointer(TargetPath), True);
          SendMessage(hWnd, CEM_COPIEDFILE, Integer(bSuccess), i);
        end;
      1: ; // Filelist files to expand
      2: // Filelist files - project files
        begin
          SourceFilename := CutPathname(Line[1]);
          SourcePath := CutFilename(ParamStr(0)) + PROJECTFILESDIR + '\' +
            SourceFilename;
          TargetPath := CutFilename(ParamStr(0)) + BOOTCDFILESDIR + Line[2] +
            SourceFilename;
          bSuccess := CopyFile(pointer(SourcePath), pointer(TargetPath), True);
          SendMessage(hWnd, CEM_COPIEDFILE, Integer(bSuccess), i);
        end;
    end;
Jetzt die Frage: Würdet hier den Code in der case-Verzweigung auslagern, damit die Prozedur wieder auf eine Bildschirmseite paßt oder nicht?
Was ist übersichtlicher, das zu zerstücklen oder zusammen zu lassen, auch wenn es dann nicht mehr auf eine Bildschirmseite paßt?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat