Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Backup файла. 


inko   (2002-04-09 17:55) [0]

Как создать резервную копию (Backup) файла, в том же каталоге, где и оригинал?



AFROLOV   (2002-04-09 17:59) [1]

Скопировать его в этот каталог под другим именем.
Пример из Help по Delphi
The following example uses a button, a string grid, and a Save dialog box on a form. When the button is clicked, the user is prompted for a filename. When the user clicks OK, the contents of the string grid are written to the specified file. Additional information is also written to the file so that it can be read easily with the FileRead function.

procedure TForm1.Button1Click(Sender: TObject);
var
BackupName: string;
FileHandle: Integer;
StringLen: Integer;
X: Integer;
Y: Integer;
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
BackupName := ExtractFileName(SaveDialog1.FileName);
BackupName := ChangeFileExt(BackupName, ".BAK");
if not RenameFile(SaveDialog1.FileName, BackupName) then

raise Exception.Create("Unable to create backup file.");
end;
FileHandle := FileCreate(SaveDialog1.FileName);
{ Write out the number of rows and columns in the grid. }
FileWrite(FileHandle,
StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
FileWrite(FileHandle,
StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
for X := 0 to StringGrid1.ColCount – 1 do
begin

for Y := 0 to StringGrid1.RowCount – 1 do
begin
{ Write out the length of each string, followed by the string itself. }
StringLen := Length(StringGrid1.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle,
StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
end;
end;
FileClose(FileHandle);
end;

end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
6-69957           Vadim_V               2002-02-08 14:31  2002.04.22  
Работа с сетью


7-70037           Traitor               2002-01-27 12:56  2002.04.22  
Где Windows XP хранит пароли ? *.pwl там отсутствует.


1-69854           dimonf                2002-04-08 21:40  2002.04.22  
Народ, подскажите, как распечатать график сформированный Chart?


14-69977          Алексей Петров        2002-03-12 14:28  2002.04.22  
Можно ли быть профессионалом - программистом, не имея высшего образования?


14-70009          lipskiy               2002-03-16 03:06  2002.04.22  
Где Кулиба живая есть?