Программа для копирования файла из одного места в другое с просчётом размера исходного файла (Delphi)

[Xoma37]

Программа для копирования файла из одного места в другое с просчётом размера исходного файла.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    where: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    from: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit3: TEdit;
    Open1: TOpenDialog;
    Save1: TSaveDialog;
    Label4: TLabel;
    Panel1: TPanel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button3: TButton;
    Label9: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

    procedure doit;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
procedure doit;
var
*f1, f2: file;* //Работа с первым и вторым файлом
*cop: byte;*
//Для побайтового копирования
*sizez: LongInt;*//Хранит размер файла
begin
*{$I-}*//Отключаем директиву, которая отслеживает ошибки
*//ввода/вывода
*try*//Начало блока обработки исключений
     //Связываем файловую переменную f1 с первым файлом
**AssignFile(f1, from.Text);//Связываем файловую переменную f2 со вторым файлом
**AssignFile(f2, where.Text);
* Reset(f1);**//Открываем первый файл на чтение
**sizez:= Trunc(FileSize(f1)); //Определяем размер файла
* //Отображаем размер файла для пользователя
**Label4.Caption:= IntToStr(sizez div 1024) + 'Кб';
* {Создаем второй файл или перезаписываем его, если он уже существует}
**Rewrite(f2);
**while not Eof(f1) do
* begin*//Пока не достигнут конец первого файла
* *//Считываем один байт из первого файла
* *BlockRead(f1, cop, 1);
* *//Записываем один байт во второй файл
** BlockWrite(f2, cop, 1);
* end;
* CloseFile(f1); //Закрываем первый файл
**CloseFile(f2); //Закрываем второй файл
*finally;
*end;//Конец блока обработки исключений
*if IOResult<> 0*//Если возникла ошибка ввода-вывода
*then MessageDlg('Ошибка при копировании файла!', mtError, [mbOk],0)*//сообщение об ошибке
*else begin
* {Если ошибок не было, то выводим окно об успешном окончании копирования}
**ShowMessage('Успешно скопировано!');
*end;
  end;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
if Save1.Execute
*then where.Text:= Save1.FileName
*else ShowMessage('Вы не выбрали место длясохранения файла!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
*doit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Open1.Execute
*then from.Text:= Open1.FileName
*else ShowMessage('Файл не был открыт');
end;

end.

Заранее спс за помощь.

[Человек_Борща]

Не похоже, что вы его писали. Код написан кем-то, и специально "не допущен" к компиляции, с целью научить вас хотя бы понять его, и самостоятельно найти ошибки.

В самом коде ошибок нет и он работает нормально.

Найдите и устраните причины, по которым компилятор не кушает код.

[Stilet]

Не удивительно.
Символ звездочек не дает компилятору спокойно проглотить код
Звездочки то поубирай.

И конечно же (как я мог забыть) тебе придется пересобирать весь проект, все контролы, подключать к ним нужные обработчики

[Xoma37]

Сообщение от Человек_Борща

Не похоже, что вы его писали. Код написан кем-то, и специально "не допущен" к компиляции, с целью научить вас хотя бы понять его, и самостоятельно найти ошибки.

В самом коде ошибок нет и он работает нормально.

Найдите и устраните причины, по которым компилятор не кушает код.

Да Вы правы частично код списан частично исправлен мной. Спасибо за подсказку, но мне бы желательно поконкретней, почему "Не кушает"?

[Xoma37]

Сообщение от Stilet

Не удивительно.
Символ звездочек не дает компилятору спокойно проглотить код
Звездочки то поубирай.

И конечно же (как я мог забыть) тебе придется пересобирать весь проект, все контролы, подключать к ним нужные обработчики

Спс за помощь. Буду мучатся дальше.