델파이 Delphi FileExists

델파이 Delphi FileExists

 

 

파일 존재 여부 Result => True , False

 

Contents

1 Description
2 VCL Code Snippet
3 FMX Code Snippet
4 Uses

 

procedure TForm1.Button1Click(Sender: TObject);

var FileName: string;

begin

  Filename:= Edit1.Text;

  if SysUtils.FileExists(FileName) then

  begin

    if MessageDlg(('Do you really want to delete ' +

                        ExtractFileName(FileName) + '?'), mtConfirmation,

                        [mbYes, mbNo], 0, mbNo) = IDYes then

      DeleteFile(FileName);

  end

  else

    MessageDlg(('File ' +

                      ExtractFileName(FileName) +

                      ' does not exist.'), mtConfirmation, [mbOK], 0);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Edit2.Text:= ExtractFilePath(Application.ExeName);

end;

 

FMX Code Snippet

var

  FullFileName: string;

  FileName: string;

begin

  FullFileName := Edit1.Text;

  FileName := ExtractFileName(FullFileName);

  if FileExists(FullFileName) then

  begin

    TDialogService.MessageDialog(Format('Do you really want to delete "%s"?', [FileName]),

                                            TMsgDlgType.mtConfirmation, mbYesNo,
                                            TMsgDlgBtn.mbNo, 0,

                                            procedure (const AResult: TModalResult)

                                            begin

                                              if AResult = mrYes then

                                                DeleteFile(FullFileName);

                                            end);

  end

  else

    TDialogService.ShowMessage(Format('File "%s" does not exist.', [FileName]));

end;