Funktion erstellen

[Rackergen2]

Zitat von mirage228:

wie wärs hiermit?

Delphi-Quellcode:

function TForm1.CreateAutorunFile(const App, Icon, DestFile: String): Boolean;
var
  sl: TStringList;
begin
  Result := False;
  sl := TStringList.create;
  try
    sl.add('[autorun]');
    sl.add('OPEN=' + App);
    sl.add('ICON=' + Icon);
    sl.SaveToFile(ChangeFileExt(DestFile, '.inf'));
    Result := True;
  finally
    sl.Free;
  end;
end;

Das ist doch Schwachsinn. Was sollen die ersten 3 Zeilen in einem try? Wenn, dann so:

Delphi-Quellcode:

function TForm1.CreateAutorunFile(const App, Icon, DestFile: String): Boolean;
var
  sl: TStringList;
begin
  Result := False;
  sl := TStringList.create;
  sl.add('[autorun]');
  sl.add('OPEN=' + App);
  sl.add('ICON=' + Icon);
  try
    sl.SaveToFile(ChangeFileExt(DestFile, '.inf'));
    Result := True;
  finally
    sl.Free;
  end;
end;

Aber das käme sowas von das gleiche raus... dann doch lieber meine Funtion oben...