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

Bali

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

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

Извиняюсь вот так:

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

Не сохраняется техт хоть убейся. Пробую еще раз немного по другому.

else if (i < Length(Str)) and (Str = #13) and (Str[i + 1] = #10) then
Result := Result + '
'+';'

Bali

{Result := Result + '
'}