Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки