If Then Problem

[DeddyH]

Delphi-Quellcode:

function DeleteFile(const AFile: string): boolean;
var
sh: SHFileOpStruct;
begin
  Result := FileExists(AFile);
  if Result then
    begin
      ZeroMemory(@sh, sizeof(sh));
      with sh do
         begin
           Wnd := Application.Handle;
           wFunc := fo_Delete;
           pFrom := PChar(AFile +#0);
           fFlags := fof_Silent or fof_NoConfirmation;
         end;
    result := SHFileOperation(sh) = 0;
  end;
end;

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  edit1.enabled := checkbox1.checked;
end;

Zitat von STS301:

Delphi-Quellcode:

if (checkbox1.checked) and (checkbox2.checked)
    then begin
       deletefile(edit1.text) ;
       deletefile(edit2.text) ;
  end
else if checkbox1.Checked
    then begin
       deletefile(edit1.text) ;
    end
  else if checkbox2.checked
    then begin
       deletefile(edit2.text) ;
    end;

Wozu ist denn die 1. Abfrage gedacht?