Реферат: Особенности создания математических формул в Web
begin
tmpString:=tmpString+'<td>'+Copy(List[i],lastTag, Length(List[i])-lastTag+1)+'</td>';
List[i]:='<table>'+tmpString+'</table>';
end;
end;
List.SaveToFile(Filename);
list.Free;
End;
end;
procedure TForm1.N6Click(Sender: TObject);
// prosmotr
var list: TStringList;
tmpString: string;
i,CurrentSymbol,SeekSymbol, lastTag: integer;
notFound: boolean;
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>');
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