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

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

Содержание

• Параметр
• Значение
• Конфигурация системного блока
• 4 Техника безопасности
• Заключение
• Литература
• Приложение
• program shower;
• uses
• Forms,
• Unit1 in 'Unit1.pas' {Form1};
• {$R *.RES}
• begin
• Application.Initialize;
• Application.CreateForm(TForm1, Form1);
• Application.Run;
• end.
• Unit Unit1;
• 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
• 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
• OFile := 'pictures.inc';
• Free;
• end else *)
• // if (EFile = '') or not FileExists(EFile) then begin
• // EFile := 'C:TmpNachalniy Fileprice33.xls';
• // OFile := 'pictures.inc';
• EFile := Edit1.Text;
• OFile := 'pictures.inc';
• if not FileExists(EFile) then begin
• MessageDlg('Укажите обрабатываемый файл (*.xls).', mtError, [mbOk], 0);
• Exit;
• end;
• E := TAppExcel.Create;
• E.OpenFile(EFile);
• I := 1;
• S := '';
• repeat
• E.GetValue(i, 1, V);
• S := V;
• if Trim(S) > '' then begin
• label2.Caption:='Чтение |';
• label2.Caption:='Чтение /';
• label2.Caption:='Чтение -';
• label2.Caption:='Чтение ';
• label2.Caption:='Чтение |';
• label2.Caption:='Чтение /';
• label2.Caption:='Чтение -';
• label2.Caption:='Чтение ';
• L := '';
• L := L + ' '+Trim(S)+'';
• // цена первая
• E.GetValue(i, 2, V);
• St := V;
• if Trim(St)='' then St := ' ';
• L := L + ' '+Trim(St)+'';
• // цена вторая
• E.GetValue(i, 3, V);
• St := V;
• if Trim(St)='' then St := ' ' else St :=trim(st) ;
• L := L + ''+Trim(St)+'';
• // ссылки
• E.GetValue(i, 4, V);
• St := V;
• if Trim(St)='' then St := ' '
• else St := '';
• L := L + ''+Trim(St)+'';
• Listok.Add(L+'');
• inc(i);
• end;
• until S = '';
• E.Free;
• label2.caption:='Запись';
• // вывод нормальный .inc
• AssignFile(F,SaveDialog1.Filename);
• Rewrite(F);
• for i := 0 to Listok.Count-1 do begin
• progressbar1.max:=listok.count*2;
• progressbar1.stepby(i);
• writeln(F,''+IntToStr(i+1)+'',Listok.Strings[i]);
• end;
• CloseFile(F);
• // вывод отсортированный .crt
• OFile := ReplaceStr(SaveDialog1.Filename,'inc','srt');//Замена inc на crt
• Listok.Sort;
• AssignFile(F,OFile);
• Rewrite(F);
• for i := 0 to Listok.Count-1 do begin
• progressbar1.StepBy(i);
• writeln(F,''+IntToStr(i+1)+'',Listok.Strings[i]);
• end;
• CloseFile(F);
• Listok.Free; //for j:=0 to 100 do begin
• end;
• procedure TForm1.BitBtn1Click(Sender: TObject);
• begin
• SaveDialog1.FileName := 'pictures.inc';
• SaveDialog1.InitialDir := ExtractFilePath(ParamStr(0));
• Form1.CreateMovieTable;
• If Application.MessageBox('Готово. Закрыть программу?','Запись файла',mb_IconInformation+mb_YesNo)=6 then
• Form1.Close;
• end;
• procedure TForm1.BitBtn2Click(Sender: TObject);
• begin
• If OpenDialog1.Execute Then Edit1.Text:= OpenDialog1.FileName;
• end;
• procedure TForm1.FormCreate(Sender: TObject);
• begin
• Edit1.Text := '';
• end;
• end.