Реферат: Особенности создания математических формул в Web

begin

tmpString := tmpString+'<td>'+

Copy(List[i],lastTag,CurrentSymbol-lastTag)+

'</td><td align=bottom>'+

Copy(List[i],CurrentSymbol,SeekSymbol-CurrentSymbol+1) +'</td>';

lastTag:=SeekSymbol+1; notFound:=false;

end;

inc(SeekSymbol);

end;

end;

if tmpString<>'' then

begin

tmpString:=tmpString+'<td>'+Copy(List[i],lastTag, Length(List[i])-lastTag+1)+'</td>';

List[i]:='<table>'+tmpString+'</table>';

end;

end;

List.SaveToFile('tmp.html');

list.Free;

ShellExecute(handle, 'open', 'tmp.html', '', '', SW_SHOW);

//winexec('tmp.html', SW_SHOW)

//Form2.showModal;

End;

//end of prosmotr }

procedure TForm1.N8Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N10Click(Sender: TObject);

var tmpMemo: string;