Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c