Номер фильтрованное записи

← →
rentgen © (2005-07-27 07:47) [0]

Доброе время.
Помогите узнать САБЖ.
//dBase;

В Следующей процедурке нужно узнать номер записи:

Procedure Numeration; var Num:Integer; begin While Not table1.EOF do begin Num:=?????; table1.next; end; end;

table1 - Фильтрованна.

← →
rentgen © (2005-07-27 08:25) [1]

Удалено модератором

← →
rentgen © (2005-07-27 08:33) [2]

База - Paradox

← →
Anatoly Podgoretsky © (2005-07-27 08:37) [3]

Переменная NUM не используется.

← →
rentgen © (2005-07-27 08:47) [4]

> Anatoly Podgoretsky © (27.07.05 08:37) [3]
> Переменная NUM не используется.

Вы это к чему?
Шутка такая???
В дельфи, если нужно, NUM используется.

← →
Anatoly Podgoretsky © (2005-07-27 08:53) [5]

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

← →
rentgen © (2005-07-27 08:56) [6]

> Anatoly Podgoretsky © (27.07.05 08:53) [5]
> Апшипаешься, компилятор выбросит и переменную и строчку
> кода.

Я бы с вами согласился, пока сам не проверил.

Работает СТОПРОЦЕНТНО(!):

procedure TForm1.DG3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var num:Integer; begin if key=VK_DELETE then table3.Delete; if key=VK_F9 then begin table3.First; While not table3.Eof do begin num:=table3.RecNO; ShowMessage(IntToStr(NUM)); table3.Next; end; end; end;
Может ДЕЛЬФИ_7 так влияет??? :)

← →
Anatoly Podgoretsky © (2005-07-27 09:25) [7]

rentgen © (27.07.05 08:56) [6]
Так это совсем другой код, здесь NUM используется.
А про что твой вопрос?

Так и в "потрепаться" можно угодить.
Вообще-то хотелось узнать все-таки САБЖ ... :[

← →
ksa2002 (2005-07-27 09:54) [9]

RecNo

Номер фильтрованное записи Найти похожие ветки