[professor1979]

Всем привет.
Помогите чайнику создать программулинку для корректности проверки ввода СНИЛС (ХХХ-ХХХ-ХХХ ХХ)
Есть вот такой код, взял с какого-то сайта:

Код:

function CheckSnils(Snilss: string): boolean;
//****************************************************
{|Проверка СНИЛС на корректность|}
const z = ord('0');
var nn,n0,n1,n2,n3,n4,n5,n6,n7,n8,n9: byte;
cc: Byte;
sm: integer;
begin
  result:= false;
  if Length(Snilss) <> 14 then exit;
  n0:= ord(Snilss[13])-z;
  nn:= ord(Snilss[14])-z;
  cc:= (n0 * 10) + nn;
  n1:= ord(Snilss[11])-z;
  n2:= ord(Snilss[10])-z;
  n3:= ord(Snilss[09])-z;
  n4:= ord(Snilss[07])-z;
  n5:= ord(Snilss[06])-z;
  n6:= ord(Snilss[05])-z;
  n7:= ord(Snilss[03])-z;
  n8:= ord(Snilss[02])-z;
  n9:= ord(Snilss[01])-z;
  sm:= ((n1 +2*n2 +3*n3 +4*n4 +5*n5 +6*n6 +7*n7 +8*n8 +9*n9) mod 101) mod 100;
  if sm <> cc then Exit;
  result:= true;
end;

Админ: Пользуемся тегами для оформления кода!

Можно будет его использовать или надо писать другой код?

[Pyro]

добавляешь на форму edit, добавляешь событие onchange:

PHP код:

begin
  if CheckSnils((sender as tedit).text) then
    caption := 'правильный'
  else 
    caption := 'не-'
end; 


выше этого события сразу копируешь свой код

[professor1979]

Вот спасибо. Получилось. Только вот у меня созрел ещё один вопросик:
А как сделать, чтобы результат показывался не в заголовке окна, а на поле?

[Pyro]

лучше тогда кинуть на форму Shape и
caption := 'правильный'
заменить на Shape1.Brush.color := clLime
а caption := 'не-'
заменить на Shape1.Brush.color := clRed

[professor1979]

Спасибо Pyro, очень помог.