Geum.ru


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

Информация - Компьютеры, программирование

Другие материалы по предмету Компьютеры, программирование

гической практики получены навык и практика в такой перспективной на данный момент сфере как разработка WEB страниц.

Литература

  1. Культин Н.Б. Программирование в Turbo Pascal 7.0 и Delphi. 2-е изд., перераб. и доп. СПб.: БХВ - Петербург, 2001. 416 с.: ил.
  2. А. Я. Архангельский. Программирование в Delphi 6. М.: ЗАО тАЬИздательство БИНОМтАЭ, 2002г. 1120 с.: ил.
  3. Гусева А. И. Учимся программировать: PASCAL 7. 0. Задачи и методы их решения. 2-е изд., перераб. и доп. М.: тАЬДиалог МИФИтАЭ, 1999. 256 с.
  4. Канту М. Delphi 2 для Windows 95/NT. Полный курс. В 2-х томах. Том 1: Пер. с англ. М.: Малип., 1997. 400 с., ил.
  5. Гофман В. Э., Хомоненко А. Д. Delphi 6 СПБ.:БХВ Петербург, 2002.Наиболее полное руководство.

Приложение

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:\Tmp\Nachalniy File\price33.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 + ;

// цена первая

E.GetValue(i, 2, V);

St := V;

if Trim(St)= then St := &nbsp;

L := L + ;

// цена вторая

E.GetValue(i, 3, V);

St := V;

if Trim(St)= then St := &nbsp else St :=trim(st) ;

L := L + ;

// ссылки

E.GetValue(i, 4, V);

St := V;

if Trim(St)= then St := &nbsp

;

L := L + ;

);"> 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);

,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);

,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.