как написать программу на 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

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

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

Вобщем нужно «заутэфить» Memo. (читать всё…)

Необходимо подключиться к камере №1 IP 192.168.1.34:12088. Как это сделать?

Aleksandr

Подключился с помощью браузера

var

a1, a2: variant;

 Doc : Variant;

 begin

  a1:=webbrowser1.oleobject.document.getelementbyid('Login_id');

  a1.value:='admin';

  a2:=webbrowser1.oleobject.document.getelementbyid('login_passwd');

  a2.value:='111111';
    Doc := WebBrowser1.OleObject.document;

    if TVarData(Doc).VDispatch = nil then begin

    ShowMessage('Документ не задан. Действие отменено.');

    Exit;

  end;
  Doc.parentWindow.on_Login();

Пеллетные камины и котлы испанского производства EcoForest

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

VIR1435

Скажите как программно можно узнать размер папки?

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