Есть функция удаления подстроки типа <gg hhh>jjjj</gg> из строки. функция работает достаточно быстро (файл 3 мб за 30 мС обрабатывает)
но есть подозрение, что использование COPY (DefineTeg:=Copy(Data, I,10) увеличивает время обработки
Внимание!! Вопрос:
1. действительно ли COPY не самое лучшее решение по быстродействию
2. чем можно заменить COPY? может вставка на ASM? (читать всё…)

Marsel737

Подскажите как сделать чтоб можно было во время выполнения программы включать или выключать возможность редактирования StringGrid’а.
П.С.: Как делать это через инспект объектов я знаю

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

Как считать параметры процессора? (читать всё…)

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

Как определить какой из двух символов встречается в строке чаще? (читать всё…)

Как узнать запущенные службы? (читать всё…)

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

Есть компонент PaintBox, на котором размещена картинка. Нужно сделать, чтобы при передвижении указателя мышки по PaintBox’у вместе с ним и двигался прямоугольник, например, зеленый 40х40. Как реализовать?

Stilet

unit Unit1;

{$mode objfpc}{$H+}
interface
uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)

PaintBox1: TPaintBox;

procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure PaintBox1Paint(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;
var  ax,ay:integer;

Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Brush.Color:=clGreen;

PaintBox1.Canvas.Rectangle(ax-10,ay-10,ax+10,ay+10);

end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

ax:=x; ay:=y;  PaintBox1.Repaint;

end;
end.

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

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

Twix

Чем отличается подключения юнитов до implementation и после? (читать всё…)