Найден 21 результат

woodhead
24.07.2018 18:10:22
Форум: Lazarus
Тема: Generics из FCL-STL
Ответы: 9
Просмотры: 8607

Re: Generics из FCL-STL

Ichthyander , я выше писал, что ваш вариант рабочий. Он нормально компилируется, без предупреждений.

Добавлено спустя 33 минуты 31 секунду:
Разобрался. Ошибка была в том, что в модуле gutil ничего не известно о местном переопределении оператора сравнения.
Поэтому можно обойтись без этого модуля ...
woodhead
24.07.2018 17:07:16
Форум: Lazarus
Тема: Generics из FCL-STL
Ответы: 9
Просмотры: 8607

Re: Generics из FCL-STL

Ichthyander писал(а):Как бы и должен был без приведения типов работать, не? А зачем Вам приведение типов?

В этом коде не видно, что параметры функции являются объектами класса TMyClass, у которых есть поле fld1:

Код: Выделить всё

class function TLess.c(a,b:T):boolean;inline;
begin
  c:=a.fld1<c.fld1;
end;
woodhead
24.07.2018 16:21:25
Форум: Lazarus
Тема: Generics из FCL-STL
Ответы: 9
Просмотры: 8607

Re: Generics из FCL-STL

Может быть переопределить оператор "<" для TMyClass? Правда, тоже не получается:

interface
uses
Classes, SysUtils, gset, gutil;

type
TMyClass = class(TObject)
fld1 &#58; string;
end;

lesslli=specialize TLess<TMyClass>;
TMyList = specialize TSet<TMyClass, lesslli>;

operator < (a, b&#58 ...
woodhead
24.07.2018 15:09:19
Форум: Lazarus
Тема: Generics из FCL-STL
Ответы: 9
Просмотры: 8607

Re: Generics из FCL-STL

Попробовал сделать по примеру, все равно не получается.
Вот код:

interface
uses
Classes, SysUtils, gset, gutil;

type
TMyClass = class(TObject)
fld1 &#58; string;
end;

lesslli=specialize TLess<TMyClass>;
TMyList = specialize TSet<TMyClass, lesslli>;
Выдаёт ошибку:
Error: Operator is not ...
woodhead
24.07.2018 10:32:38
Форум: Lazarus
Тема: Generics из FCL-STL
Ответы: 9
Просмотры: 8607

Generics из FCL-STL

Здравствуйте.
Подскажите, пожалуйста, как правильно использовать обобщённые классы из библиотеки FCL-STL .
Например, почему в таком коде ошибка "Error: Identifier not found "TSet$1"":
interface

uses
Classes, SysUtils, GSet;

type
TMyClass = class(TObject)
fld1 &#58; string;
end;

TMyList ...
woodhead
23.04.2016 14:49:03
Форум: Lazarus
Тема: Форматирование таблицы в MS Word
Ответы: 4
Просмотры: 3289

Re: Форматирование таблицы в MS Word

Разобрался. Работает, если процедуру AutoFormat записывать так:

Код: Выделить всё

    W.ActiveDocument.Tables.Item(1).AutoFormat(
       OleVariant(16),
       true,
       false,
       false,
       false,
       false,
       false,
       false,
       false,
       true);
woodhead
23.04.2016 09:29:36
Форум: Lazarus
Тема: Форматирование таблицы в MS Word
Ответы: 4
Просмотры: 3289

Re: Форматирование таблицы в MS Word

slyubez писал(а):В разнице версий Ворда.

Оба кода выполняются на одной и той же машине, где установлена одна-единственная версия Word'а.
woodhead
23.04.2016 08:23:29
Форум: Lazarus
Тема: Форматирование таблицы в MS Word
Ответы: 4
Просмотры: 3289

Форматирование таблицы в MS Word

Здравствуйте.
Никак не получается отформатировать таблицу в MS Word при работе из Lazarus через COM-объект. Возникает ошибка на методе AutoFormat:
Method 'AutoFormat' is not supported by automation object
Вот код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil ...
woodhead
18.04.2016 20:54:29
Форум: Компоненты
Тема: Компонент Richmemo
Ответы: 75
Просмотры: 220879

Re: Компонент Richmemo

Вот под Windows XP. Вроде всё корректно работает. На форме компонент RichMemo. Doc1.rtf - исходный файл RTF, открытый в WordPad, Doc2.rtf - сохранённый из RichMemo. Как видим, отображение идентичное.
RichMemo и RTF в Windows XP SP3
RichMemo и RTF в Windows XP SP3
woodhead
18.04.2016 18:44:03
Форум: Компоненты
Тема: Компонент Richmemo
Ответы: 75
Просмотры: 220879

Re: Компонент Richmemo

скалогрыз писал(а):интересно. интересно. А нежели RichMemo такое же сделать?

Я только ЗА! Руки у вас, похоже, прямее, чем у разработчика KMemo.
woodhead
18.04.2016 18:33:15
Форум: Компоненты
Тема: Компонент Richmemo
Ответы: 75
Просмотры: 220879

Re: Компонент Richmemo

KMemo выглядит многообещающе, но не всё гладко. В приложении в компоненте на форме, например, текст вставлен перед таблицей (так отображается). После сохранения в файл RTF и просмотра его в Word 2010 (Win7) текст оказывается в первой ячейке таблицы.
А в WordPad вообще форматирование съезжает и линии ...
woodhead
18.04.2016 16:58:57
Форум: Компоненты
Тема: Компонент Richmemo
Ответы: 75
Просмотры: 220879

Re: Компонент Richmemo

Они все используют свои собственные компоненты, на подобие KMemo.
Возможно, я не понимаю ваших целей. Почему разработчики KMemo считают, что можно нарисовать таблицу в RTF, и она везде будет отображаться нормально, а вы выбрали другой путь? Почему они не боятся, что файл RTF с таблицей в WordPad ...
woodhead
18.04.2016 16:36:10
Форум: Компоненты
Тема: Компонент Richmemo
Ответы: 75
Просмотры: 220879

Re: Компонент Richmemo

Я очень долго ждал когда такой момент придёт, и мне предложат деньги за доработку
И тут я такой, весь в белом
Потом открой этот .rtf с помощью Wordpad-а. Очень большой шанс что на винде 7 и более поздних, таблички будут видны, а вот в Wordpad-е на XP абличек не будет.
Мне важно, чтобы в MS Word ...
woodhead
18.04.2016 15:57:30
Форум: Компоненты
Тема: Компонент Richmemo
Ответы: 75
Просмотры: 220879

Re: Компонент Richmemo

RichMemo основан на системном компоненте, и его возможности ограничены возможснотью системы
Я правильно понимаю, что в Windows есть какой-то стандартный компонент (или API), с помощью которого и работает ваш RichMemo?
Я думал, что вы парсите файл согласно спецификации на формат.
В общем и целом ...
woodhead
18.04.2016 08:46:14
Форум: Lazarus
Тема: Lazarus 1.6 и MS Access
Ответы: 2
Просмотры: 2537

Re: Lazarus 1.6 и MS Access

Разобрался.
Нужно было у экземпляра AccessSQLQuery (компонент TSQLQuery) свойство Options -> sqoAutoCommit выставить в true