Экспорт в Excel (xml)

Комментарии

• Bali

  April 2007 отредактировано 04:57

  Извиняюсь вот так:
  
  function TfrxXMLExport.ChangeReturns(const Str: String): String;
  var
  i: Integer;
  begin
  Result := '';
  for i := 1 to Length(Str) do
  begin
  if Str = '&' then
  Result := Result + '&'
  else if (i < Length(Str)) and (Str = #13) and (Str[i + 1] = #10) then
  Result := Result + '
  ' // было'&#10' пропущена ';'
  else if Str = '"' then
  Result := Result + '"'
  else if Str = '<' then
  Result := Result + '<'
  else if Str = '>' then
  Result := Result + '>'
  else if (Str <> #10) then
  Result := Result + Str
  end;
  end;
  
  
  
• Bali

  April 2007 отредактировано 04:57

  Не сохраняется техт хоть убейся. Пробую еще раз немного по другому.
  
  else if (i < Length(Str)) and (Str = #13) and (Str[i + 1] = #10) then
  Result := Result + '
  '+';'
• Bali

  April 2007 отредактировано 04:57

  {Result := Result + '
  '}