ParamStr komplette Verzeichnisse auswählen

[Sir Rufo]

ts, ts, ts, ...

Delphi-Quellcode:

procedure dofoo;
var
  foo: TFoo;
begin
  foo := TFoo.Create;
  try

    // work with foo

  finally
    foo.Free;
  end;
end;

// aber

procedure dofoobar;
var
  foo: TFoo;
  bar: TBar;
begin
  // lokale Variablen sind NICHT initialisiert, 
  // also machen wir das mal
  foo := nil;
  bar := nil;
  try
    foo := TFoo.Create;
    bar := TBar.Create;
    
    // work with foo and bar

  finally
    foo.Free;
    bar.Free;
  end;
end;