(читать всё…)

(читать всё…)

Как мне вызвать форму с настройками для каталога, имя которого я укажу? (читать всё…)

Нужно вывести отмеченный вариант, как это сделать? (читать всё…)

Нужно создать обработчик событий, который при вводе более 3-х одинаковых символов будет удалять вводимый символ. (читать всё…)

как написать программу на Delphi, которая ищет файлы, и чтобы с ними можно было что-либо делать? Я поискала решение задачи в Сети, но все рецепты там, во-первых, какие-то мутные, во-вторых, не работают. (читать всё…)

Cerber24

Есть дерево с двумя ветками. Первый объект выбран, нажимаем правой кнопкой на второй объект и тут начинается проблема, почему выбранным объектом по прежнему остаётся первый объект? как это исправить?

(читать всё…)

Подскажите, как объявить массив, чтобы верхний диапазон элементов можно было ввести с клавиатуры? (читать всё…)

(читать всё…)

В 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

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