Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.28;
Скачать: CL | DM;

Вниз

Как восстановить диапазон таблицы Paradox?   Найти похожие ветки 

 
Ильдар   (2002-11-09 17:15) [0]

Мастера, кто ответит? Как узнать параметры диапазона установленные методом Table1.SetRange(StartValues, EndValues)? Где хранится информация о границах установленного диапазона, этих самых StartValues и EndValues?


 
Ученик ©   (2002-11-10 00:18) [1]

Возможно так:

type
TTableWrapper = class(TTable);

procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
begin
with TTableWrapper(Table1) do begin
DisableControls;
try
SetKeyBuffer(kiCurRangeStart{kiCurRangeEnd}, False);
for i := 0 to KeyFieldCount - 1 do
ShowMessage(GetIndexField(i).AsString);
PostKeyBuffer(False)
finally
EnableControls
end
end
end;




 
Ильдар   (2002-11-10 11:26) [2]

Извините, уважаемый Ученик, но Ваш пример абсолютно не понятен. Возможно, я не точно сформулировал вопрос. Пример:
var
Table1: TTable;
begin
Table1.FileName:= "Customer.db"; // Таблица Paradox
Table1.Active:= True;
Table1.IndexFieldName:= "Field1"; // Индекс по полю Integer
Table1.SetRange([5], [7]); // Установить диапазон
end;

Теперь видны только записи со значениями в поле Field1 от 5 до 7.
Вопрос. Существует ли свойство или метод возвращающий текущие границы диапазона таблицы Table1? Видимо, это два массива. Если так, то для приведённого примера это массивы [5] и [7].


 
Ученик ©   (2002-11-10 12:18) [3]

>Ильдар (10.11.02 11:26)
for i := 0 to KeyFieldCount - 1 do
ShowMessage(GetIndexField(i).AsString);
показывает элементы этих массивов, если
SetKeyBuffer(kiCurRangeStart, False);
то элементы StartValues,
SetKeyBuffer(kiCurRangeEnd, False);
то элементы EndValues,

как массивы значения не хранятся





 
Ильдар   (2002-11-11 10:52) [4]

Спасибо, мастер Ученик! Ты велик и твой уровень не доспупен для меня, но твой пример работает и я каюсь, что не проверил его после первого письма.



Страницы: 1 вся ветка

Текущий архив: 2002.11.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
3-92852
RomZm
2002-11-13 00:10
2002.11.28
QReport по одной строке...


14-93232
Grande
2002-11-10 17:18
2002.11.28
Zeoslib для Delphi7


8-93146
Bars
2002-07-30 22:01
2002.11.28
Mediaplayer


1-93012
sammy
2002-11-18 14:52
2002.11.28
Unicode


14-93185
Ketmar
2002-11-08 17:36
2002.11.28
OpenGL: определение того, был ил отрисован хоть один пиксел...