Написал язык Суржи

[Rik]

Сообщение от vladrvv

Прелесть этой конструкции в том , что не надо париться - какой редактор стоит в системе. Какой стоит , тот и запустит выбранный файл.
А в unix - нет программ по умолчанию ?

Есть, но подобной работающей функции, интегрированной в лазарус я не нашел. В модуле Unix присутствуют какие-то функции, но мне не удалось заставить их работать как ShellExecute...

[vladrvv]

Ну тогда хотя бы для Windows сделайте

[Rik]

Сообщение от vladrvv

Ну тогда хотя бы для Windows сделайте

ShellExec добавил. В Windows она работает как есть, через Win API, в Linux через TProcess, можно в общем-то было совсем не добавлять эту функцию, все можно сделать через TProcess.

Пример использования:
Открываем URL через Chrome

if WINDOWS then
    ShellExecute(Handle, 'Open', 'chrome', 'http://visual-t.ru', '', SW_SHOWMAXIMIZED);
  else
    ShellExecute(0, 'Open', 'google-chrome-stable', 'http://visual-t.ru', '', SW_SHOWMAXIMIZED);
  end;

Обратите внимание, параметру FileName, Parameters, Directory имеют тип string. В Linux самый первый параметр HWND = 0 (я вот думаю, не убрать ли его совсем), последний параметр SW_SHOW и т.д. значения не имеют и не работают.

Открываем URL через браузер по умолчанию

if WINDOWS then
    ShellExecute(Handle, 'Open', 'explorer', 'http://visual-t.ru', '', SW_SHOWMAXIMIZED);
  else
    ShellExecute(0, 'Open', 'thunar', 'http://visual-t.ru', '', SW_SHOWMAXIMIZED);
  end;

Обратите внимание, в моем линуксе файловый менеджер thunar, в других, будут другие, поэтому вместо thunar указывать тот что есть в системе, имя файлового менеджера лучше вынести в настройки программы

Открываем файл XLS

method TMainForm.Button2Click(Sender: TObject);
var
  FileName: string;
begin
  FileName = ConfigPath + 'ShwllTest.xls';
  if WINDOWS then
    ShellExecute(Handle, 'Open', 'explorer', FileName, '', SW_SHOWMAXIMIZED);
  else
    ShellExecute(0, 'Open', 'thunar', FileName, '', SW_SHOWMAXIMIZED);
  end;
end;

пример:
http://visual-t.ru/files/ShellExec.7z

[vladrvv]

Спасибо.
С Новым Годом.
Творческих успехов Вам , дальнейшего развития Дизеля!

[Rik]

Сообщение от vladrvv

Спасибо.
С Новым Годом.
Творческих успехов Вам , дальнейшего развития Дизеля!

Спасибо большое!

[vladrvv]

С печатью с использованием rtf шаблона в основном все получилось.

Программа reportf.exe на основании шаблона и файла данных формирует готовый отчет.
Остались вопросы по кодировке:
1) Дизель выгружает в текстовый файл данные в UTF кодировке, а
reportf.exe загружает ANSI.
Какие функции в Дизеле для конвертации текста есть?

[Rik]

Сообщение от vladrvv

С печатью с использованием rtf шаблона в основном все получилось.

Программа reportf.exe на основании шаблона и файла данных формирует готовый отчет.
Остались вопросы по кодировке:
1) Дизель выгружает в текстовый файл данные в UTF кодировке, а
reportf.exe загружает ANSI.
Какие функции в Дизеле для конвертации текста есть?

Пока можно попробовать сделать так:

method TMainForm.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    ListBox2.Items.Text = UTF8ToCP1251(ListBox1.Items.Text);
    ListBox2.Items.SaveToFile(SaveDialog1.FileName);
  end;
end;

Думаю вот к классу TStrings прикрутить или нет функции ToAnsi и ToUTF8..

[vladrvv]

С кодировкой теперь все нормально.
1)
Но при ПОИСКЕ в главном окне в строке

method TMainForm.xDBGrid1UTF8KeyPress(Send er: TObject; var UTF8Key: TUTF8Char);
var
S: string;
begin
S = UTF8Key;
if IsDigit(S[1]) or IsLetter(S[1]) or IsSimbol(S[1]) then
LabelPoisk.Visible = True;
LabelPoisk.Caption += UpperCase(UTF8Key);
Здесь =>> DM.xDbfdOG.SearchKey(LabelPoisk.Cap tion, stGreater);
end;

end;

получаю сообщение об ошибке

Invalid variant type cast

Вроде сделал , как в предыдущих примерах

2) TDBF поддерживает фильтрацию или нет ?
Что-то не нашел в описании.

[Rik]

Сообщение от vladrvv

С кодировкой теперь все нормально.
1)
Но при ПОИСКЕ в главном окне в строке

получаю сообщение об ошибке


Вроде сделал , как в предыдущих примерах

2) TDBF поддерживает фильтрацию или нет ?
Что-то не нашел в описании.

SearchKey на предыдущем примере (RAY) работает, можете изготовить пример, в отладчике Lazarus надо смотреть, что внутри компоненты происходит. Может с типом данных в столбце как-то связано? SearchKey только на строках проверяли...

2. Фильтр я на днях починил TxDBF v1.0.4 фильтрует.
xDBF1.Filter = 'NAME="апро*"';
xDBF1.Filtered = True;

[vladrvv]

Выражения в фильтре не допускается ? Типа такого ?

TablPrais.FILTER:='LEFT(DTOS(DAT_B) ,6) <='+CHR(39)+sDatTek+CHR(39);