Свойство dbLimit задает кол-во записей, которое будет

выведено в TableGrid, начиная с 1-й записи. 

   А как вывести тоже самое начиная с любой записи ?

52

(1 replies, posted in Russian)

Evgeniy D  !
Вы получили  сообщение  от  abc50@rambler.ru  ?

В таблице есть текстовое поле ( km ), в котором находятся
   различные цифровые выражения. Как их вычислить ( sm ) ?

                  km                                      sm
                10+20+30+40                     100
                2*3+10                                 16
                (150/5)*4-50                         70   
                 . . . . . .

    В Clipper- ных языках это было сделать просто sm = &km.

54

(24 replies, posted in Russian)

Ув.  Дмитрий !  Спасибо за  понимание
 
   Совершенно  верно - для закрытия формы.

  Esc   для этого  и  подходит  как  стандарт
  под  левую  руку в большинстве программ.

  Сделайте,  пожалуйста,   левой  руке  подарок.
   (  правая  в это время  отдохнет  )

55

(24 replies, posted in Russian)

Ув.  Дмитрий !

  Очень жаль, что  нельзя.

Но наверное можно задействовать клавишу Esc в формах,
кроме главной  ( без  Onclick  )  в  версии  5.4 бета.

   Свободная  левая рука  тянется  к  Esc.

56

(24 replies, posted in Russian)

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    proc(' p2 ');
end;

Так конечно работает   
В  событии  OnClick    proc(' p2 ')    не работает

57

(24 replies, posted in Russian)

Ув. Дмитрий !

Работает  только  кнопка    "proc1"          см.  script.pas 

Не понятно как  отправить  пример  A_proc.rar

var s,x: string;

procedure proc1(s,x: string);  begin  proc('p1'); func(' F1 ');end; // proc1 - работает

function func(x: string):string;  begin   ShowMessage(x); end;

procedure proc(s: string);  begin   ShowMessage(s); end; // proc(' p2 ') - не работает

begin
end.

58

(24 replies, posted in Russian)

A почему не вызываются процедуры с параметрами,например,
   name(1)  в свойстве Button и событии onClick,
   однако  в скриптах это работает.

59

(24 replies, posted in Russian)

Около 50 лет с времен Вирта формат языка Паскаль
    не менялся.  Я имею ввиду его совершенствование
    за счет дополнения сокращений.       Например:
    Procedure - Pro  Function - Fun. then, begin - вообще лишние
   
     If a=1 then begin b:=1;c:=1;end; else begin b:=2;c:=2;end;
   
     if a=1;b:=1;c:=1;L;b:=2;c:=2;E; (< 2 раза)  где L-else E-end
    (или    if a=1\b:=1\c:=1\L\b:=2\c:=2\E\     \  вместо  ;  )
   
   И это не сложно сделать преобразованием
         script_pro  -> script.pas  перед компиляцией

    за счет подобных сокращений можно получить 3-5 кратный эффект

60

(28 replies, posted in Russian)

DriveSoft wrote:

если я правильно вас понял, то так

FT := 'Id<20';


Но на счет TextBox не понял и причем тут TableName  +  FieldName

  FT := 'Id<20';  -  это обыкновенное  присвоение значения  для FT
А я хочу  вводить это значения  с  экрана для FT      КАК  это сделать ?

В   Turbo Pascal 7.0  это  ReadLn ( FT );

61

(28 replies, posted in Russian)

DriveSoft wrote:
abc52 wrote:

Очередное СПАСИБО  Dmitry.


       Как ввести данные в  переменную , например,    Ft: String  для значения  фильтра  ?
         TextBox  требует  TableName  и  FieldName

К сожалению не понял вопроса.

Переменная  обьявлена  как  FT :  String;   Каким образом  ввести  в нее  значение , например ,  " Id<20 "
Свойство  Form1.TextBox.Edit1   позволяет  это только  для   TableName  +  FieldName  в  построителе  форм

62

(28 replies, posted in Russian)

Переменная  обьявлена  как  FT :  String;   Каким образом  ввести  в нее  значение , например ,  " Id<20 "

Свойство  Form1.TextBox.Edit1   позволяет  это только  для   TableName  +  FieldName  в  построителе  форм

63

(28 replies, posted in Russian)

Очередное СПАСИБО  Dmitry.

   1.  Очень громоздко,  но работает  Не проще ли было  выделить поле
        в настройках компонента таблицы  для  каждой колонки VE  (-visible,-editing) ...
         Например,  для разных пользователей  не показывать или запретить
         редактирование колонок.

       Как ввести данные в  переменную , например,    Ft: String  для значения  фильтра  ?
         TextBox  требует  TableName  и  FieldName

64

(28 replies, posted in Russian)

Да в таком случае все работает  Dmitry.

" Кого где увидел ? "  я имел ввиду  какие еще есть свойства после Columns[0]
в  Form1.TableGrid1.Columns[0]. ?????  и где их посмотреть ?

1.    Есть ли возможность запрета редактирования некоторых колонок  как,
        например,  у вычисляемых полей  ?

  2 . У редактора  скриптов  есть  ПОИСК  строк ?   A  то часто приходится
        обращаться  к  Блокноту   Notepad.exe

65

(28 replies, posted in Russian)

Информация полезная  Dmitry. !
Чтобы было поменьше вопросов,  а где вы ее увидели ?

Для скрытия колонки Id  таблицы использую  F1.TG1.Columns[0].visible:=False ,
Колонка исчезает, но при новом входе в форму таблицы, редактировании  или 
применяя  F1.TG1.dbUpdate  (обновить)  свойство сбрасывается  в …Visible:=True
Специально проверял    ПОЧЕМУ ?

66

(28 replies, posted in Russian)

Спасибо Dmitry.
Надеюсь с версии  5.3  "Del"  тоже будет работать.

  В TableGrid1 есть свойство dbListFieldsNames  Оно показывает заголовки  колонок таблиц.
А как узнать программно  еще и соответствующие имена полей  и  имя таблицы.

67

(28 replies, posted in Russian)

Спасибо за помощь    SQLite  работает

     Fio  like  'IVAN%'
     Fio  glob  'Ivan*'

   А вот при редактировании  ячейки  TableGrid1  не работает
    клавиша "Delete"    ПОЧЕМУ ?   Приходится использовать  "BackSpace".

   Заранее спасибо

68

(28 replies, posted in Russian)

Доброго дня !

   ..dbFilter := '( Length( Fd )<13 )'  - работает
   ..dbFilter := '( pos( 'A' ,fd )>0 )'  -  нет   " no such function pos "
    ='( copy( fd,1,3 ) = 'Alex' )'  -  тоже не  работает
   
      Какими  функциями  тогда  искать  ?

Извините     ( Fpk.TG1.Field[ C ].asString ? )

Программно определяются  колонка C , строка  R  и значение  ячейки [C,R]

C:=Fpk.TG1.SelectedColumn;  R:=Fpk.TG1.SelectedRow;    xp:=Fpk.TG1.Cell[c,r].asString;

А вот  имя поля по N колонки конструктор не предлагает  (  Fpk.TG1.column[ C ].asString ? )