[Silverstone]

Позиционная система кодирования информации. Необходимо провести проверку кода на изменение. Типа ввели признаки, они классифицируются и выводятся в Memo.
Если в Memo изменили полученный код, то должна выйти "ошибка, код не совпадает".

Может кто проверку эту помочь сделать?
У меня не получается провести проверку ( стоит на Button3)

[Pyro]

столько сложных слов

[Silverstone]

Ну если попытаться проще сформулировать, необходимо, чтобы при изменении текста в Мемо программа брякнула что-нибудь по этому поводу.

Честно, я сам не очень понимаю зачем это. Если мы уже изначально забили код, зачем нам его тогда изменять?!

[Pyro]

а может быть, что текст в memo изменён, но сообщение выводить не надо?

[Silverstone]

ну под сообщением я подразумеваю вывод в этом же поля слова "ошибки"
я думаю, необходимо то, что вы предложили

[Pyro]

сори, вобще ничего не понимаю

[Silverstone]

ну что, поможет кто?
вот код мой

Код:

I:=0;

  found :=false;
  while (i< memo1.Lines.Count) and (not found) do
  begin
    j:=1;
    while (memo1.Lines[i][j]<>'0') and (j<length(memo1.Lines[i])) and (not found) do
    begin
      if trystrtoint(memo1.lines[i][j],p) then found:=true;
      if not found then inc(j);
    end;
    if not found then inc(i);
  end;
  v:='';
  l:=0;
  if found then
  begin
    v:=copy(memo1.Lines[i],j,3);
    if TryStrToInt(v,p) then l:=l+strtoint(v);
    v:=copy(memo1.Lines[i],j+4,2);
    if TryStrToInt(v,p) then l:=l+strtoint(v);
    v:=copy(memo1.Lines[i],j+7,2);
    if TryStrToInt(v,p) then l:=l+strtoint(v);
    v:=copy(memo1.Lines[i],j+10,2);
    p:=0;
    TryStrToInt(v,p);
    if (round((l)/5*10)-5)<>p then
   Memo1.Lines[i]:=Memo1.Lines[i]+'ОШИБКА ВВОДА';
  end;

[angvelem]

Может достаточно обработать сообщение OnChange? Тогда не придётся городить такие проверки.

[Silverstone]

а поточнее можно?

[m1sclick]

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  ShowMessage('Error!');
end;

Bargest: не забываем про теги оформления кода, читаем правила форума!