| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Номер фильтрованное записи [D7, dBase, FoxPro]

rentgen ©   (2005-07-27 07:47:00) 

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

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

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

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

---

Anatoly Podgoretsky   (2005-07-27 09:56:00) [1]

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

---

ksa2002   (2005-07-27 09:54:00) [2]

RecNo

---

rentgen   (2005-07-27 09:41:00) [3]

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

---

Anatoly Podgoretsky   (2005-07-27 09:25:00) [4]

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

---

rentgen   (2005-07-27 08:56:00) [5]

> 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 08:53:00) [6]

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

---

rentgen   (2005-07-27 08:47:00) [7]

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


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

---

Anatoly Podgoretsky   (2005-07-27 08:37:00) [8]

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

---

rentgen   (2005-07-27 08:33:00) [9]

База - Paradox

---

rentgen   (2005-07-27 08:25:00) [10]

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

---

Наверх