Свойство dbLimit задает кол-во записей, которое будет
выведено в TableGrid, начиная с 1-й записи.
А как вывести тоже самое начиная с любой записи ?
My Visual Database → Posts by abc52
Свойство dbLimit задает кол-во записей, которое будет
выведено в TableGrid, начиная с 1-й записи.
А как вывести тоже самое начиная с любой записи ?
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.
Ув. Дмитрий ! Спасибо за понимание
Совершенно верно - для закрытия формы.
Esc для этого и подходит как стандарт
под левую руку в большинстве программ.
Сделайте, пожалуйста, левой руке подарок.
( правая в это время отдохнет )
Ув. Дмитрий !
Очень жаль, что нельзя.
Но наверное можно задействовать клавишу Esc в формах,
кроме главной ( без Onclick ) в версии 5.4 бета.
Свободная левая рука тянется к Esc.
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
proc(' p2 ');
end;
Так конечно работает
В событии OnClick proc(' p2 ') не работает
Ув. Дмитрий !
Работает только кнопка "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.
A почему не вызываются процедуры с параметрами,например,
name(1) в свойстве Button и событии onClick,
однако в скриптах это работает.
Около 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 кратный эффект
если я правильно вас понял, то так
FT := 'Id<20';
Но на счет TextBox не понял и причем тут TableName + FieldName
FT := 'Id<20'; - это обыкновенное присвоение значения для FT
А я хочу вводить это значения с экрана для FT КАК это сделать ?
В Turbo Pascal 7.0 это ReadLn ( FT );
abc52 wrote:Очередное СПАСИБО Dmitry.
Как ввести данные в переменную , например, Ft: String для значения фильтра ?
TextBox требует TableName и FieldNameК сожалению не понял вопроса.
Переменная обьявлена как FT : String; Каким образом ввести в нее значение , например , " Id<20 "
Свойство Form1.TextBox.Edit1 позволяет это только для TableName + FieldName в построителе форм
Переменная обьявлена как FT : String; Каким образом ввести в нее значение , например , " Id<20 "
Свойство Form1.TextBox.Edit1 позволяет это только для TableName + FieldName в построителе форм
Очередное СПАСИБО Dmitry.
1. Очень громоздко, но работает Не проще ли было выделить поле
в настройках компонента таблицы для каждой колонки VE (-visible,-editing) ...
Например, для разных пользователей не показывать или запретить
редактирование колонок.
Как ввести данные в переменную , например, Ft: String для значения фильтра ?
TextBox требует TableName и FieldName
Да в таком случае все работает Dmitry.
" Кого где увидел ? " я имел ввиду какие еще есть свойства после Columns[0]
в Form1.TableGrid1.Columns[0]. ????? и где их посмотреть ?
1. Есть ли возможность запрета редактирования некоторых колонок как,
например, у вычисляемых полей ?
2 . У редактора скриптов есть ПОИСК строк ? A то часто приходится
обращаться к Блокноту Notepad.exe
Информация полезная Dmitry. !
Чтобы было поменьше вопросов, а где вы ее увидели ?
Для скрытия колонки Id таблицы использую F1.TG1.Columns[0].visible:=False ,
Колонка исчезает, но при новом входе в форму таблицы, редактировании или
применяя F1.TG1.dbUpdate (обновить) свойство сбрасывается в …Visible:=True
Специально проверял ПОЧЕМУ ?
Спасибо Dmitry.
Надеюсь с версии 5.3 "Del" тоже будет работать.
В TableGrid1 есть свойство dbListFieldsNames Оно показывает заголовки колонок таблиц.
А как узнать программно еще и соответствующие имена полей и имя таблицы.
Спасибо за помощь SQLite работает
Fio like 'IVAN%'
Fio glob 'Ivan*'
А вот при редактировании ячейки TableGrid1 не работает
клавиша "Delete" ПОЧЕМУ ? Приходится использовать "BackSpace".
Заранее спасибо
Доброго дня !
..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 ? )
My Visual Database → Posts by abc52
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi