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

SergK
15.08.2025 11:51:44
Форум: Lazarus
Тема: FPCUPDeluxe, Установка Lazarus
Ответы: 3
Просмотры: 1513

Re: FPCUPDeluxe, Установка Lazarus

v-t-l писал(а):Я в fpcup.ini добавил/поправил строчки для 4.2 по аналогии с 3.6, и всё поставилось.
Спасибо большое! Помогло !!!
SergK
08.08.2025 12:09:23
Форум: Lazarus
Тема: FPCUPDeluxe, Установка Lazarus
Ответы: 3
Просмотры: 1513

FPCUPDeluxe, Установка Lazarus

Добрый день.
Устанавливал Lazarus с помощью FPCUPDeluxe на Windows и Linux.
Уж больно мне это дело понравилось.
Особенно тот факт, что можно установить Lazarus вместе с Паскалем в тот каталог куда хочу, хоть на Windows хоть на Linux, причем со всеми настройками, и все это не будет влиять на ...
SergK
14.02.2017 22:19:34
Форум: RxLib
Тема: rxdbgrid, Вертикальный скроллбар
Ответы: 1
Просмотры: 7704

rxdbgrid, Вертикальный скроллбар

Обновил Rx, Давно не обновлял. Версия Version Major="2" Minor="9" Release="5" Build="201"
Теперь в rxdbgrid не убирается вертикальный скроллбар, даже если свойство SrollBars = ssNone

В версии Version Major="2" Minor="8" Release="3" Build="183" такой проблемы не было....
SergK
14.02.2017 21:32:24
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25910

Re: Кодировка Win1251 опять.....

vitaly_l писал(а): :?: Вопрос:
:idea: А можно ли ВРЕМЕННО отключить UTF8, прямо в функции, с помощью директивы, по типу: {-UTF8} и потом снова включить {+UTF8} ???
.


Если вопрос ко мне, то я не знаю..
SergK
14.02.2017 19:46:10
Форум: Общее
Тема: Запуск внешних программ и кирилица
Ответы: 8
Просмотры: 23864

Re: Запуск внешних программ и кирилица

Попробуйте так

procedure TForm1.Button1Click(Sender: TObject);
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := UTF8ToCP1251 ('explorer.exe C:\Отдел продаж\Январь\');
AProcess.Options := AProcess.Options + [poWaitOnExit];
AProcess.Execute;
AProcess.Free ...
SergK
14.02.2017 19:02:07
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25910

[Решено] Кодировка Win1251 опять.....

Спасибо всем за ответы, особое спасибо за ответы приведшие к просветлению SSerge, LearnMagic
Надо сказать, что ,к сожалению, я повел себя как "истинный русский по Задорнову", т.е. читаю инструкцию только если что-то не получается.

И так резюмирую, то что открыл для себя.
Сразу оговорюсь, что все о ...
SergK
12.02.2017 23:48:05
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25910

Re: Кодировка Win1251 опять.....

MysticCoder
UTF8ToSys вроде же кодирует в системную кодировку, т.е. UTF-16 в случае винды, отсюда кракозябры по 2 байта на символ, а в консоли видимо стоит по умолчанию кодировка cp1251 однобайтовая, если её поменять через SetConsoleCP или SetConsoleOutputCP(1200), то UTF8ToSys будет отображать ...
SergK
12.02.2017 23:11:10
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25910

Re: Кодировка Win1251 опять.....

Так значит, эксперименты продолжаются .....
Подопытный кролик : Lazarus 1.6.2 + Fpc 3.0.0 -Официальный дистрибутив с официального сайта.
Прислушавшись к словам zub и по его наводке удалил файл lazutils_defines.inc
Вернув при этом на родину Uses LConvEncoding и WriteLn(Fout,'UTF8ToCP1251 ...
SergK
12.02.2017 20:55:40
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25910

Re: Кодировка Win1251 опять.....

Выключи LConvEncoding - результат будет другим. LConvEncoding инклудит lazutils_defines.inc посмотри настройки там
Если выключить то UTF8ToCP1251 работать не будет совсем. Она описана только там
Что смотреть в lazutils_defines.inc ?

Добавлено спустя 10 минут 18 секунд:
Убрал LConvEncoding ...
SergK
12.02.2017 19:55:06
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25910

Кодировка Win1251 опять.....

Программа
uses LConvEncoding, LazUTF8;

{$R *.lfm}

{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var Fout : TextFile;
myStr : String;
begin
AssignFile(Fout,'D:\Laz_project\Test-codepage\aaa.txt');
Rewrite(Fout);
myStr := 'Primer stroki Пример ...
SergK
30.01.2017 14:05:29
Форум: Lazarus
Тема: Создание базы данных программно.
Ответы: 6
Просмотры: 6463

Re: Создание базы данных программно.

Ура, заработало !!!!
Очень большое спасибо Снег Север за быстрый и по теме ответ !!!!
SergK
30.01.2017 00:14:26
Форум: Lazarus
Тема: Создание базы данных программно.
Ответы: 6
Просмотры: 6463

Re: Создание базы данных программно.

Подключиться к БД через ZeosDB
Составить запрос на языке SQL
Выполнить запрос на сервере БД отправив его через созданное соединение.

То что я пишу более касается FireBird... Честно говоря про MySQl (MariaSQL) я в этом плане знаю меньше.
Хочется СОЗДАТЬ НОВУЮ БАЗУ.

1 Подключится к БД через ...
SergK
29.01.2017 21:51:03
Форум: Lazarus
Тема: Создание базы данных программно.
Ответы: 6
Просмотры: 6463

Создание базы данных программно.

Подскажите, как программно создать базу данных
1) FireBird
2) MySql (MariaSQL)
используя компоненты ZeosDB (ZeosDBO)
FireBird используя ibx
SergK
07.12.2016 14:49:05
Форум: Free Pascal Compiler
Тема: COM, OLE: c VBS на FreePascal (Lazarus)
Ответы: 1
Просмотры: 3811

COM, OLE: c VBS на FreePascal (Lazarus)

Прошу слишком не пинать слабо знаком с COM, OLE:

Есть строчки программы на VBS:
Set objExcel = CreateObject("Excel.Application")
или
Set adoCommand = CreateObject("ADODB.Command")
или
Set adoConnection = CreateObject("ADODB.Connection")

Если это переписать на FreePascal (Lazarus)
будет ...
SergK
17.12.2015 00:00:23
Форум: Lazarus
Тема: Cross-Компиляция CT Linux x86_64 -> Linux i386
Ответы: 4
Просмотры: 4345

Re: Cross-Компиляция CT Linux x86_64 -> Linux i386

Он жеж 64-х битный. Надо установить модули для 32-битного линукса.
Ну это я догадываюсь что он 64-х битный ...
Вопрос то в том какие конкретно модули и как надо установить чтобы появился "такой же но 32-битный" и не только он
Сразу скажу, что файлы которые лежат в каталоге /usr/lib/x86_64-linux ...