Code-Desgin Frage

[Luckie]

Das ist ja nicht alles. Davor ist ja auch noch was:

Delphi-Quellcode:

procedure ProcessFilelist(Filename: string; Drive: Char; hWnd: THandle);
var
  Line: TStringDynArray;
  tf: Textfile;
  s: string;
  i: Integer;
  bSuccess: Boolean;
  SourceFilename, SourcePath, TargetPath: string;
begin
  Line := nil;
  i := 1;
  // count files
  AssignFile(tf, Filename);
  Reset(tf);
  while not EOF(tf) do
  begin
    readln(tf, s);
    if (s = '') or (s[1] = ':') then  // skip empty or comment (:) lines
      continue;
    Inc(i);
  end;
  CloseFile(tf);
  // send number of files to proccess
  SendMessage(hWnd, CEM_MAXFILES, 0, i);
  //  process filelist
  i := 0;
  AssignFile(tf, Filename);
  Reset(tf);
  while not EOF(tf) do
  begin
    readln(tf, s);
    if (s = '') or (s[1] = ':') then  // skip empty or comment (:) lines
      continue;
    Line := Explode(DELIMITER, s);

Dann paßt es wie gesagt nicht mehr auf eine Monitorseite.