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

St := V;

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

L := L + '<td class=rac>'+Trim(St)+'</td>';

// ссылки

E.GetValue(i, 4, V);

St := V;

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

else St := '<a href='+St+'><img src=images\check.gif border=0></a>';

L := L + '<td class=rac>'+Trim(St)+'</td>';

Listok.Add(L+'</tr>');

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,'<tr><td class=rac >'+IntToStr(i+1)+'</td>',Listok.Strings[i]);

end;

CloseFile(F);

// вывод отсортированный .crt

OFile := ReplaceStr(SaveDialog1.Filename,'inc','srt');//Замена inc на crt

Listok.Sort;

AssignFile(F,OFile);

Rewrite(F);