25.08.2006, 23:16
|
|
Постоянный
Регистрация: 22.04.2006
Сообщений: 566
С нами:
10554411
Репутация:
517
|
|
Сообщение от Go0o$E
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('c:\2\123.txt') then
DeleteFile('c:\2\123.txt');
begin
if CopyFile('C:/1/123.txt','C:/2/123.txt',true) then
ShowMessage('Файл скопирован!')
else ShowMessage('Ошибка!');
end;
end;
помойму с расстановкой бегинов/эндов намудрил
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('c:\2\123.txt') then
DeleteFile('c:\2\123.txt');
// begin // нах не нужен ;)
if CopyFile('C:/1/123.txt','C:/2/123.txt',true) then
ShowMessage('Файл скопирован!')
else ShowMessage('Ошибка!');
// end; // нах не нужен
end;
|
|
|