FreePascal.ru

tria писал(а):Я так понял, текущая проблема - это шрифты. Щас сижу гуглю по этому поводу.

попробуй MS Шрифты. пакет msttcorefonts называется.

tria писал(а):А Лазарь поставляемый в бинарном виде - он скомпиленный под Gtk1 или Gtk2?

точно не скажу, но скорее всего под ГТК1

tria писал(а):Я наверное неправильно делал, что компилил Лазаря под Gtk2?

У тебя получилось под ГТК2 скомпилить? точнее он у тебя под ГТК2 заработал? у меня нет , правда я особо и не старался в Лазаре скомпелённом под ГТК1 вполне нормально ГТК2 проги писать можно

Сергей Смирнов писал(а):Убунту с cp1251 и ГТК1 Да, наверное пришлось потрудиться...

да не особо, cp1251 и ГТК1 только для Лазаря всё остальное utf8 и GTK2

Судя по всему, в Win32 работать с utf8 нет возможности.

Тогда может кто-нибудь подскажет, как можно заставить работать редактор кода в Линуксе на кодировке cp1251?
Я так понимаю, в версии 0.9.14 такая возможность была, а начиная с 0.9.16 ее убрали...
что конкретно не работает?
LC_ALL=ru_RU&#46 ...

В /usr/lib/locale/ каталога ru_RU.cp1251 небыло. После:
localedef --no-archive -i ru_RU -f cp1251 ru_RU.cp1251
он появился.
Пробую:
# LC_ALL=ru_RU.cp1251 strace -e trace=open lazarus 2>&1 |grep ru_RU
open("/usr/share/locale/ru_RU.cp1251/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or ...

Сгенерил локаль:
localedef -i ru_RU -f cp1251 ru_RU.cp1251

После этого начало показывать кучу ваших строк но с ошибкой -1 ENOENT (No such file or directory)

Операционка - CentOS
Глянь есть ли в /usr/lib/locale/ каталог ru_RU.cp1251?
если нет то попробуй localedef --no-archive -i ru_RU -f ...

Совсем идиотский вопрос: как сделать полную копию динамического массива(или записи) в другую переменную, а не отзеркалировать адрес, по которому хранятся данные?

если тип элемента масива простой (т.е. не дин. масив или длинная строка) например integer то можно с помощью move


type
TMyType ...

...
Привели к появлению нормального русского интерфейса. Даже в инспекторе объектов появился русский.
...
А вот в редакторе кода добится русского языка так и не получилось...

вспомнил в редакторе тоже поначалу вместо русских букв кракобрязы были. помогла сменна шрифта в "Окружение/Настройки ...

Попробовал:
# LC_ALL=ru_RU.cp1251 strace -e trace=open lazarus 2>&1 |gre p ru_RU
open("/usr/lib/locale/ru_RU.cp1251/LC_IDENTIFICATION", O_RDONLY) = -1 ENOENT (No such file or directory)
open("/usr/lib/locale/ru_RU/LC_IDENTIFICATION", O_RDONLY) = 3

И что теперь делать надо?

это и всё?
у меня ...

Пробую писать под линукс. Хочу использовать cp1251.
Запускаю Лазаря скриптом:
LANG=ru_RU.cp1251
LC_ALL=ru_RU.cp1251
startlazarus
При старте скрипта пишет:
GDK-WARNING **:Locale not supported by c libriary
GDK-WARNING **:Locale not supported by c libriary
....
После запуска не могу вводить русские ...

Вот что сам Мартин (автор MSEgui ) пишет :

==============
To delete an item of a dynamic array of any type do:
...

procedure deleteitem(var value: yourrecarty; const aindex: integer);
...
fillchar(value[high(value)],sizeof(value[0]),0); //prevent finalize
setlength(value,high(value ...

надо выкидывать элементы из DS.d[i].x[j]

т.е. надо удалить элемент DS.d[i].x[j]?


procedure TForm1.Button1Click(Sender: TObject);
type
Control = record
speed: integer;
end;

DS1 = record
path:array of integer;
flagp:byte;
temp:array of integer;
etemp ...

ZW писал(а):мда.... учитывая что там три динамических массива на месте x. Выглядит все печально:(
как нехочется лезть в указатели...

закинь сюда описание типа.

Смотря что ты удалять хочешь,
если запись из CheckListBox, то CheckListBox.Items.Delete(номер записи)
если файл, то DeleteFile(имя файла)

procedure TForm1.Button1Click(Sender: TObject);
const sPath = '/foo';
var i: integer;
sFile: string;
begin
i := FileList&#46 ...