Записать значение в Memo при его повторе

Posted by micher under Delphi

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

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 = s then

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

end;

Грех себя не отрекламировать в постовом 🙂
Снова делаем сайты и интернет-магазины на wordpress на продажу от недорого до очень дорого 🙂
Причём будем рады любым заказам.
создание и продвижение сайтов на wordpress

тема на форуме

Похожие статьи

• Получить из числа Int64 отдельные биты
• Совместить тексты из edit в memo
• Появление текста в Memo
• Копирование в Memo из буфера обмена