Search options (Page 136 of 400)

Скачайте пожалуйста последнюю бета версию, добавил функцию для получения поддиректорий в директории
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

1. DeleteFile('имя файла для удаления');
2. RemoveDir('имя директории для удаления'); // удаляет директорию если в ней нет файлов
3. Для удаления директории с поддиректориями и файлами используйте данный скрипт

function DeleteDirWithFiles(dir: string): boolean;
var
    sl: TStringList;
    i,c: integer;
begin
    result := True;
    sl := TStringList.Create;
    sl.Text := GetFilesList(dir);

    // удаляем все файлы
    c := sl.Count-1;
    for i := 0 to c do
        if not DeleteFile(sl[i]) then
        begin
            ShowMessage('Can''t remove file '+sl[i]);
            result := False;
        end;

    // удаляем поддиректории
    sl.Text := GetDirectories(dir);
    c := sl.Count-1;
    for i := c downto 0 do
        if not RemoveDir(sl[i]) then
        begin
            ShowMessage('Can''t remove dirercory '+sl[i]);
            result := False;
        end;

    // удаляем директорию
    RemoveDir(dir);
    sl.Free;
end;

пример использования

procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
var
    sDir: string;
begin
    sDir := ExtractFilePath(Application.ExeName)+'ВАСИЛИЙ\';

    if not DeleteDirWithFiles(sDir) then
        ShowMessage('Can''t remove directory');
end;

Здравствуйте.

Можно, для этого у каждой ячейки есть свойство FontStye, пример

выделить жирным

Form1.TableGrid1.Cell[0,0].FontStyle :=  fsBold;

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

Form1.TableGrid1.Cell[0,0].FontStyle := fsUnderline + fsBold + fsItalic + fsStrikeOut;

derek
I have tested your project from first post using v3.4b but there is no any error messages.
Please attach your project and describe steps to reproduce the error.

Hello.

I have added these functions (ParamStr and ParamCount). Please download latest beta version
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

Скачайте пожалуйста последнюю бета версию, добавил в отчеты функцию ReplaceStr
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

Также удалите это событие в вашем проекте, оно сильно замедляет прорисовку грида

procedure frmOrder_GridOrder_OnColumnResize (Sender: string; ACol: Integer);
begin
    frmOrder_GridOrder_OnChange ('');
end;

Проект отправил на почту.

Пожалуйста укажите, где именно отчет в проекте? (имя формы и кнопки)

Hello.

Unfortunately no. If you want access over Internet, you should use MySQL DBMS.

Думаю можно в отчете написать небольшой скрипт, который уберет переносы строк, приложите пожалуйста ваш проект.

easyterm
Отправил.

вместо

CAST (trim(substr(replace(counter, '-', '     '), 1, 4)) AS INTEGER) DESC

используйте

CAST(SUBSTRING_INDEX(`counter`, '-', 1) AS UNSIGNED) DESC

попробуйте кстати убрать данную сортировку, возможно именно она вызывает медленную работу с SQLite

Опишите пожалуйста, в чем суть данной сортировки?