1 Topic by lameska (edited by lameska 2017-04-28 05:57:23)

  • Registered: 2017-01-30
  • Posts: 22

Topic: Помогите пожалуйста с маленькой прогой, для учета ip адресов.

Все работало чудесно. Добавить в скрипт поиска повторных записей по IP адресам. И стало выдавать ошибку.
Пожалуйста посмотрите в чем проблема. И помогите сделать.
Может еще сразу подскажете, что бы искал совпадение по 2м полям ip и ФИО

Post's attachments

Attachment icon IP.rar 298.99 kb, 373 downloads since 2017-04-28 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Помогите пожалуйста с маленькой прогой, для учета ip адресов.

Скачайте пожалуйста последнюю бета версию, исправил ошибку, которая не давала правильно производить поиск с использованием маски
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0


Ошибка также возникала из за этой строки

Podset.TableGrid1.dbPopupMenu.Items[2].OnClick := @frmNew;

т.к. в скрипте не определено, что такое frmNew


Исправленный проект:

Post's attachments

Attachment icon IP_fixed.zip 10.75 kb, 342 downloads since 2017-05-01 

Dmitry.
  • Registered: 2017-01-30
  • Posts: 22

Re: Помогите пожалуйста с маленькой прогой, для учета ip адресов.

DriveSoft wrote:

Скачайте пожалуйста последнюю бета версию, исправил ошибку, которая не давала правильно производить поиск с использованием маски
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0


Ошибка также возникала из за этой строки

Podset.TableGrid1.dbPopupMenu.Items[2].OnClick := @frmNew;

т.к. в скрипте не определено, что такое frmNew


Исправленный проект:

Спасибо большое. Последнюю версию поставил.

  • Registered: 2017-01-30
  • Posts: 22

Re: Помогите пожалуйста с маленькой прогой, для учета ip адресов.

Дмитрий добрый день!
Подскажите пожалуйста как сделать в данном скрипте

if Form1.TableGrid1.Cells[1,i] = 'VAC' then Form1.TableGrid1.Cell[3,i].Color := clRed

Что бы в столбце 1, в ячейки сопоставление проводилось не по строгому значению 'VAC', а например 'Петров VAC'.
VAC будет неизменным, а вот текст перед ним или после него может меняться.

Такое возможно?)

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Помогите пожалуйста с маленькой прогой, для учета ip адресов.

попробуйте так

if Pos('VAC', Form1.TableGrid1.Cells[1,i]) > 0 then Form1.TableGrid1.Cell[3,i].Color := clRed;
Dmitry.
  • Registered: 2017-01-30
  • Posts: 22

Re: Помогите пожалуйста с маленькой прогой, для учета ip адресов.

DriveSoft wrote:

попробуйте так

if Pos('VAC', Form1.TableGrid1.Cells[1,i]) > 0 then Form1.TableGrid1.Cell[3,i].Color := clRed;

Спасибо большое, получилось.