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

В 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

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

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

Как отсортировать первую колонку по алфавиту в StringGrid, чтобы значения остались прежними?

pu4koff

Сортировка вызывается так:
GridSort(StringGrid1, 0);

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);

var

  Line, PosActual: Integer;

  Row: TStringList;

  Renglon :TStringList;

begin

  Renglon := TStringList.Create;

  Row := TStringList.Create;

  for Line := 1 to StrGrid.RowCount-1 do

  begin

    PosActual := Line;

    Row.Assign(StrGrid.Rows[PosActual]);

    while True do

    begin

      if (PosActual = 0) or

         (Row.Strings[NoColumn] >= StrGrid.Cells[NoColumn,PosActual-1])

        then break;

      StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1];

      Dec(PosActual);

    end;

    if (Row.Strings[NoColumn] < StrGrid.Cells[NoColumn,PosActual])

      then StrGrid.Rows[PosActual].Assign(Row);

  end;

  Row.Free;

  Renglon.Free;

end;

Австрийская компания iTap mobile выпускает RDP-клиенты — программы для подключения к настольному компьютеру Windows с мобильных устройств или компьютеров с другими операционными системами по протоколу удаленного рабочего стола. iTap mobile RDP для систем Mac или Linux предоставляет полный контроль и быстрый доступ к настольному компьютеру на платформе Windows отовсюду. iTap mobile поддерживает TS Gateway и является быстрым, безопасным и оптимизированным решением для дома и бизнес-нужд. Мощный RDP-клиент также сопровождается первоклассной технической поддержкой.

купить Itap-mobile RDP Client

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

Prod87

Подскажите пожалуйста, как с помощью TServerSocket и TClientSocket
передавать текст между пользователями сети.

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

Как переделать Delay, чтобы можно было в 10Mks выставить? Пробовал разные значения подставлять, но все равно в миллисекундах не получается.

raxp

procedure delay_microsec(val: int64);

var Freq, TimeImp, TimeImpNow, TimeElapsed: int64;

begin

 QueryPerformanceFrequency(Freq);

 QueryPerformanceCounter(TimeImp);

 repeat

  QueryPerformanceCounter(TimeImpNow);

  TimeElapsed:= ((TimeImpNow - TimeImp) * 1000000) div Freq;

 until TimeElapsed > val

end;

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

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

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