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

rxStrUtils, Excel_Lbl, IniFiles;

{$R *.DFM}

procedure TForm1.CreateMovieTable;

var

Listok : TStringList;

E : TAppExcel;

S,St,L : String;

I,j : Integer;

V : Variant;

begin

SaveDialog1.Execute;

Listok := TStringList.Create;

// Listok.Sorted := true;

Listok.Duplicates := dupAccept;

(* S := AnsiLowerCase(ParamStr(0));

S := ReplaceStr(S,'.exe','.ini');

EFile := '';

if FileExists(S) then

with TIniFile.Create(S) do begin

S := ReadString('Base','Database','ERR');

if S <> 'ERR' then EFile := S;

S := ReadString('Base','OutFile','ERR');

if S <> 'ERR' then OFile := AnsiLowerCase(S) else

OFile := 'pictures.inc';

Free;

end else *)

// if (EFile = '') or not FileExists(EFile) then begin

// EFile := 'C:\Tmp\Nachalniy File\price33.xls';

// OFile := 'pictures.inc';