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

progressbar1.StepBy(i);

writeln(F,'<tr><td class=rac >'+IntToStr(i+1)+'</td>',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.