FreePascal.ru

Большое спасибо!
Так,

всё работает

День добрый!
Возникла проблема с Utf8Delete. Процедура просто не работает.
До перехода на Lazarus 1.0 (был 0.9.31) всё работало.


var
str_: String;
begin
str_:='123456789qwertyuiop[]';
Memo1.Lines.Add(str_); //и здесь
Utf8Delete(str_, 0, 10); //удаляем первые 10 ...

Да. Запускается консольный 7zip только без окошка.

Смысл – показать, что моя программа не зависла и показать сколько ещё осталось (разархивирование – один из нескольких, достаточно долгих этапов обработки данных). В одном архиве обычно несколько файлов.

С получением вывода из консоли после распаковки ВСЕХ файлов, проблем не возникает (делаю почти ...

Спасибо! Всё заработало.

Может кому пригодится


Function Odt2Txt(XMLDoc: TXMLDocument):string;
var
iNode, iNode_s: TDOMNode; kol_0:integer;
s: string; flg_1:boolean;
procedure ProcessNode(Node: TDOMNode; var Node_s: TDOMNode; var kol_:integer; var flg_0&#58 ...

Есть xml файл (content.xml) из odt файла. Из него надо получить текст. Проблема состоит в том, что tab и перевод строки находятся внутри узла с текстом. Например:
<text&#58;p text&#58;style-name="Standard">
<text&#58;span text&#58;style-name="T2">
Код
<text&#58;tab />
вопроса 1&#58;
<text ...

Спасибо всё заработало.
1) Но почему эта опция не по умолчанию?
2) И нельзя ли добавить все опции в ReadXMLFile(… ; PreserveWhitespace:boolean=false) т.к. приходится писать другой код, когда надо задать опции.

Имеется узел, например, такой:
<w:t> 123 </w:t>
Node.TextContent отдаёт “123 ”, т.е. без начальных пробелов (для таба аналогично).
Кто-нибудь знает, как это лечится?
Заранее спасибо.

Laz 9.28.2, FPC 2.2.4

Спасибо!!!
Наконец заработало.

Но. Такой код “портит” заголовок таблицы – другие программы (например, DBFNavigator - в Lazarus всё OK) отказываются после этого читать такие файлы.
Решил добавлением своего кода. Как не странно, но после изменения типа и указания нового размера – всё работает ...

Спасибо за ответ.

Но проблема остаётся.
Дело в том, что я уже пытался поменять структуру (лежит на поверхности - просто думал, что можно что-то подправить в коде, чтобы заработало) - в частности уменьшить размер поля до 20. Собственно ничего не получается - процедура RestructureTable приводит к ...

Уточнение.

Не открываются "числовые" поля. См., например, файлы 052010_B.DBF

Структура из программы DBFNavigator:
Поле ITOGO
тип numeric
ширина 33
дроб.часть 4

День добрый.

Проблема в следующем - TDbf не хочет открывать поля базы данных (пустота вместо данных), если ширина поля (в структуре таблицы) превышает 20. Как получить доступ к этим полям?
Сейчас просто меняю структуру в другой программе (уменьшаю длину поля) и тогда все OK.

Например, в TDBGrid ...