Search options (Page 125 of 400)

Hello.

Form1.TableGrid1.Columns[0].Sorted := True;

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

OpenFile('C:\Users\'+GetUserName+'\Desktop\phone\Images\bat.exe');

в настройках фильтра грида напишите

DATE_ADD(dateofbirth, INTERVAL YEAR(CURDATE())-YEAR(dateofbirth) + IF(DAYOFYEAR(CURDATE()) > DAYOFYEAR(dateofbirth),1,0)  YEAR)   BETWEEN CURDATE() AND DATE_ADD(CURDATE(), INTERVAL 30 DAY)

где dateofbirth - имя поля с датой рождения

ответ взят отсюда
https://stackoverflow.com/questions/187 … -birthdays

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

К сожалению нет возможности создать свой тип или объявить свой класс, можно только пользоваться существующими классами.

Можно сделать костыль с помощью трех объектов TStringList

добавлять

sl1.Add('value11');
sl1.Add('value12');

sl2.Add('value21');
sl2.Add('value22');

sl3.Add('value31);
sl3.Add('value32');

читать по индексу

sl1[0]
sl2[0]
sl3[0]

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

procedure Frm_File_Btn_Save_OnAfterClick (Sender: string);
var
    sFolder: string;
begin
    if Frm_File.DBFile_Dir.dbFileIsChanged then
    begin
        sFolder := SQLExecute('SELECT File_Dir_filename FROM tbl_files WHERE id='+IntToStr(Frm_File.Btn_Save.dbGeneralTableId));
        if sFolder <> '' then
        begin
            Delete(sFolder, 1, 2); // удаляем X:
            SQLExecute('UPDATE tbl_files SET File_Dir_filename="\\SERVER\SALE'+sFolder+'"');
        end;
    end;
end;

spectre
К сожалению не могу открыть ваш архив, пишет что файл поврежден.

Вы можете использовать одно событие для всех кнопок, просто задайте им одно и тоже имя события  на вкладке "Свойства компонента > События", т.е. на против OnAfterClick напишите order_Button3_OnAfterClick для всех трех кнопок.

Hello.

This file is not encrypted, it contain instructions for script machine, but it's hard to edit this file manually.
This file impossible to run without host application.

Example for Ctrl+1

procedure Form1_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if (Ctrl) and (Key=ord('1')) then Form1.Button1.Enabled := True;
end;

begin
     Form1.KeyPreview := True;
end.

Hello.

(SELECT StudentDB.id_AdminStatus FROM StudentDB WHERE StudentDB.id = AddCourses.id_StudentDB) 

Because in the field StudentDB.id_AdminStatus store id of AdminStatus, not text value.

To fix the calculate field, I need your project.

Hello.

Unfortunately can't understand the question, please provide more details.

In this case you should use SQL to search, example:

Please attach your project and describe steps to reproduce the error.

There is no any limits.

Unfortunately script editor starts work to slow with collapse symbol, so this feature will automatically disabled when you code more that 1000 lines.