Для студентов по предмету Информатикатехнологическая практика ПрограммаShower-конвертор табличных файловтехнологическая практика ПрограммаShower-конвертор табличных файлов
2016-07-312016-07-31СтудИзба
Реферат: технологическая практика Программа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.
Характеристики реферата
Тип
Предмет
Просмотров
91
Качество
Идеальное компьютерное
Размер
307,71 Kb