unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
cont:integer;
F: TextFile;
S: string;
begin
cont:=1;
AssignFile(F, 'update.txt');
Rename(f, 'update' + inttostr(cont) + '.txt');
CloseFile(F);
end;
end.
Questa che vedi è una bozza, ma rende l'idea.
Come vedi apro il file lo rinomino e poi lo chiudo.
a questo punto il programma è finito.
Se lo lascio così com'è riparte con l'apertura del file ma non lo trova più perchè lo ha già rinominato.
Quindi vorrei che arrivato alla fine del comando closefile(F);
il programma project1.exe si chiudesse da solo.
grazie ciao