технологическая практика ПрограммаShower-конвертор табличных файлов
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: инновационный менеджмент, реферат обслуживание
| Добавил(а) на сайт: Aksinija.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
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
Рекомендуем скачать другие рефераты по теме: дипломная работа исследование, реферат группы.
Категории:
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
Главная