записать значение Edita в Memo если повторяется 10 раз

[Aleksandr]

В Edit вводятся числа, если 10 раз вводится одно и тоже число то оно записывается в Memo2

  r:=strtoint(Edit1.text);
   i:=0;
  if (r > 0) AND (r <> chislo) then
  begin
   Memo1.Lines.Add(Edit1.Text);
    try
      chislo := r;
    except
        end;
     end
  else
 begin
 repeat
        begin

        i:=i+1;
        end;
   until i=10;
   Memo2.Lines.Add(Edit1.Text+' повтор');

end;

[eval]

ну усе, я сей алгоритм слямзил, теперь буду его везде впихивать, данке шон!

[Serge_Bliznykov]

Aleksandr, ОМГ!
Это что за бурный поток операторов??!!! (кодом это назвать язык не поворачивается )

[Sibedir]

если 10 раз вводится одно и тоже число

Что имеется в виду под 'вводится 10 раз'. Короче, какое событие считается окончанием ввода (нажали какой-нибудь button или клавишу Enter)?

[Aleksandr]

Ввел значение нажал кнопку и т.д.

[Serge_Bliznykov]

так, что ли?
исходники: Primer.rar

exe файл: PrimerEXE.rar

[Sibedir]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Povtor := 0;
end;

// Тоже самое, что и у Serge_Bliznykov
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  i := StrToInt (Edit1.Text);
  Memo1.Lines.Add (IntToStr(i));

  if Edit1.Tag = i then begin
    Inc(Povtor);
    if Povtor = 10 then begin
      Memo2.Lines.Add (IntToStr(i));
      Povtor := 0;
    end;
  end
  else begin
    Povtor := 1;
    Edit1.Tag := i;
  end;
end;

// Регистрация каждого 10-ого повтора (не подряд)
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  i, c, h: Integer;
begin
  s := Edit1.Text;
  i := StrToInt (s);
  s := IntToStr(i);
  Memo1.Lines.Add (s);

  c := 0;
  h := Memo1.Lines.Count - 1;
  for i := 0 to h do
    if Memo1.Lines[i] = s then
      Inc(c);

  if (c mod 10) = 0 then Memo3.Lines.Add (s);
end;