FreePascal.ru

Исходники пока не выкладываю, т.к. есть платная версия на Delphi.
Программа на Lazarus есть для Linux и Windows бесплатная.

Это было давно и написано на Delphi.
Тогда еще и Lazarus наверное не было.
Есть разные версии программы "Генеалогическое древо семьи" для Linux и Windows написанные на Lazarus.

Сделал релиз программы "Генеалогическое древо семьи". Написана на Lazarus
Страница программы http://www.familytree.ru/ru/indey.htm
Скачать программу http://www.familytree.ru/ru/download.htm
Программа бесплатная.
Не знаю, в тот ли раздел форума написал:)

Новый требует

Installing ""'/home/soft/lazarus-0.9.28.2-1.1.i586.rpm'""
ошибка: Неудовлетворенные зависимости:
fpc >= 2.2.4 нужен для lazarus-0.9.28.2-1.1.i586
gdk-pixbuf-devel нужен для lazarus-0.9.28.2-1.1.i586
perun:/home/soft # /usr/share/mc/extfs/rpm run /home/soft/gdk-pixbuf-0.22.0-298.1 ...

Может кто сталкивался, установил Lazarus из репозитория в OpenSUSE 11.3
Работает, но при открытии Меню->Проект->Параметры компилятора - выскакивает ошибка - Access violation - Нажмите ОК чтобы игнорировать и подвергнуться риску повреждения данных
???
В OpenSUSE 11.2 все работало нормально.
Правда ...

Примного благодарен.
Помог модуль cwstring, а тип строки UTF8String и все заработало правильно в Linux и в Windows

var
i : Integer;
p : DWord;
wsbuffer : WideString;
buffer_ic : array[0..MaxKeyCHR] of Char;
begin
Result := False;
AssignFile(Source,FileName);
Rewrite(Source,1);
wsbuffer := Memo1.Text;
p := 0;
while p <= Length(wsbuffer) do begin
if ...

Почему компилятор для Windows и для Linux работают со строками WideString по разному?
В Windows компиляторе у меня правильно работает, а в Linux полная галимотья.

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

Добавлено спустя 4 часа 47 минут 38 секунд:
Если строка на латинице
s := 'test'; то Length(s) = 4;
Если строка на латинице
s := 'тест'; то Length(s) = 8;
то ее длина в два раза больше
Если строка на смешанная
s := 'testтест'; то Length(s) = 12;
Я пробовал через указатель, но ...

Столкнулся с ситуацией когда компилятор по разному обрабатывает строки WideString в Windows и Linux


var
buffer_ic&#91;i&#93; &#58; array&#91;0&#46;&#46;MaxKeyCHR&#93; of Char;
wsbuffer &#58; WideString;
begin
&#46;&#46;
for i &#58;= 0 to RecSize-1 do buffer_ic&#91;i&#93; &#58;= wsbuffer&#91;i ...

Оказалось что если создавать базу средствами Tdbf то работает нормально.
Если создавать базу средствами Clipper программой dbu.exe то появляется глюк с memo полем.

Как сделать чтобы Memo поля в TDbf не смешивались?
База DBF в UTF8 кодировке меня очень даже устраивает если бы не такая бяка с мемо полем.
Ввожу данные в DBMemo а они отображаются и в других записях.
Пробовал блокировать базы, запись. Результат то же. Точнее никакого.

МОЖЕТ можно чем то заменить ...

Код хорошо работает только с форматом буфера обмена CF_TEXT


Stream &#58;= TMemoryStream&#46;Create;
try
fmt &#58;= Clipboard&#46;Formats&#91;0&#93;;
Clipboard&#46;GetFormat(fmt,Stream);//копируем из буфера обмена в поток
//
//
Clipboard&#46;SetFormat(fmt,Stream);//копируем из потока в буфер ...

Заморочка с буфером обмена.

Команда работает:
Clipboard&#46;Assign(Image2&#46;Picture);

Команда не работает?
Image1&#46;Picture&#46;Assign(Clipboard);

Пробовал в компиляторе 2.2.4 и в 2.5.1

выдает ошибку в graphics.inc

procedure TGraphic&#46;LoadFromMimeStream(AStream&#58; TStream; const ...

Скачал и установил Lazarus-0.9.27-20762-fpc-2.2.5-20090629-win32
Все заработало правильно.