Реферат: Особенности создания математических формул в Web
begin
With SaveDialog2 do
If execute then
Begin
list:=TStringList.Create;
for i:=0 to memo1.Lines.Count-1 do list.Add(memo1.lines[i]);
list.Insert(0,'<HTML>');
list.Add('</HTML>');
// в этой части (смотрите выше) происходит вставка тэгов
//<html> перед набранным текстом и </html>после текста.
for i:=1 to memo1.Lines.Count do
begin
lastTag:=1; tmpString:='';
for CurrentSymbol:=1 to Length(List[i]) - 9 do
if Copy(List[i], CurrentSymbol, 9) = '<img src=' then
begin
SeekSymbol:=CurrentSymbol; notFound:=true;
while (SeekSymbol <= Length(List[i])) and (notFound) do
begin
if Copy(List[i], SeekSymbol, 1) = '>' then
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;