Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

implementation

uses

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

Рекомендуем скачать другие рефераты по теме: дипломная работа исследование, реферат группы.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки