Search options (Page 355 of 400)

Yes, example, how to open text file and read line nr.2

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sl: TStringList;
begin
     sl := TStringList.Create;
     sl.LoadFromFile('d:\1.txt');
     if sl.Count > 1 then ShowMessage(sl[1]); // your  line nr.2 in sl[1]

     sl.Free;
end;

You want add this value in database using by SQL script?

Leonid
Будет достаточно одной лицензии.

Одиночная лицензия подразумевает использование программы одним разработчиком на нескольких компьютерах, либо разными разработчиками, но на одном компьютере.

Одиночная лицензия не допускает ее использование на нескольких компьютерах, несколькими разработчиками.

atempbox
Критических ошибок я думаю нет, т.к. они бы всплыли, а мелкие ошибки есть всегда.

К сожалению бесплатная версия 1.45 развиваться не будет.

Главная форма та, которая первая на вкладке в My Visual Database, она же на вкладке имеет оранжевый значок,

при необходимости можете перетаскивать вкладки, перетащив вкладку на первое место, соответствующая форма станет главной.

весь интерфейс программы находится в файле forms.xml

думаю проще создать дубликат папки с проектом, открыть проект из дубликата папки и удалить все формы.

you can use function ExtractFileName

procedure Form1_OnShow (Sender: string; Action: string);
var
   i, c: integer;
   sl: TStringList;
begin
     sl := TStringList.Create;
     sl.Text := GetFilesList('c:\Films');

     c := sl.Count - 1;
     for i := 0 to c do Form1.ComboBox1.dbAddRecord(-1, ExtractFileName(sl[i]) );

     sl.Free;
end;

Hello,

procedure Form1_OnShow (Sender: string; Action: string);
var
   i, c: integer;
   sl: TStringList;
begin
     sl := TStringList.Create;
     sl.Text := GetFilesList('c:\Films');

     c := sl.Count - 1;
     for i := 0 to c do Form1.ComboBox1.dbAddRecord(-1, sl[i]);

     sl.Free;
end;

Also I made example for you, please download here:

atempbox
1. Да.
2. Да, ограничений на количество разработанных и установленных проектов нет.

alik
Т.е. все ок, разобрались? )

I checked example from second post in current topic, and don't see this error.
May be you made some changes in your project?

Можно, тогда запрос будет таким:

SELECT DISTINCT

NameOrg.Наименование_организации,
( SELECT Count(*) FROM dbDoc WHERE dbDoc.id_NameOrg = NameOrg.id),
( SELECT Count(*) FROM dbDoc WHERE (dbDoc.id_NameOrg = NameOrg.id) AND (dbDoc.id_Status = 1) ),
( SELECT Count(*) FROM dbDoc WHERE (dbDoc.id_NameOrg = NameOrg.id) AND (dbDoc.id_Status = 2) ),
( SELECT Count(*) FROM dbDoc WHERE (dbDoc.id_NameOrg = NameOrg.id) AND (dbDoc.id_Status = 3) )

FROM NameOrg

LEFT OUTER JOIN dbDoc ON NameOrg.id=dbDoc.id_NameOrg

и чуть ниже введите заголовки для таблицы
Наименование,Количество запросов,Кол-во разрешений,Кол-во отказов,Кол-во Рассмотрений

Вы неверно создали событие, недостаточно просто скопировать код, перед этим необходимо создать событие, с помощью инспектора объектов на вкладке "События", как это делается можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html

код события будет таким:

procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
begin
     c := Form1.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.TableGrid1.Cells[2,i] = 'НОВАЯ' then Form1.TableGrid1.Cell[2,i].Color := clRed;
         if Form1.TableGrid1.Cells[2,i] = 'Готов' then Form1.TableGrid1.Cell[2,i].Color := clGreen;
     end;
end;

я лишь исправил номер столбца, с 3 на 2, т.к. нумерация столбцов начинается с нуля.