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

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

← →
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 используется.
А про что твой вопрос?

---

← →
rentgen ©   (2005-07-27 09:41) [8]

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

---

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

RecNo

---

← →
Anatoly Podgoretsky ©   (2005-07-27 09:56) [10]

rentgen ©   (27.07.05 09:41) [8]
Num = идентификатор или используй предопределенный RecNo

---

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

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



Память: 0.47 MB
Время: 0.021 c