Delete File

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

fileName : string;

myFile : TextFile;

data : string;

begin

// Try to open a text file for writing to

fileName := edit1.text ;

AssignFile(myFile, fileName);

ReWrite(myFile);

// Write to the file

Write(myFile, 'Hello World');

// Close the file

CloseFile(myFile);

// Reopen the file in read mode

Reset(myFile);

// Display the file contents

while not Eof(myFile) do

begin

ReadLn(myFile, data);

ShowMessage(data);

end;

// Close the file for the last time

CloseFile(myFile);

// Now delete the file

if DeleteFile(fileName)

then ShowMessage(fileName+' deleted OK')

else ShowMessage(fileName+' not deleted');

end;

end.