Реферат: технологическая практика ПрограммаShower-конвертор табличных файлов

Interface

uses

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

ExtCtrls, StdCtrls, Buttons, ComCtrls, Gauges;

type

TForm1 = class(TForm)

Edit1: TEdit;

label1: TLabel;

OpenDialog1: TOpenDialog;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

SaveDialog1: TSaveDialog;

ProgressBar1: TProgressBar;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

EFile : String;

OFile : String;

F : TextFile;

public

{ Public declarations }

procedure CreateMovieTable;

end;

var

Form1: TForm1;

implementation