Модератор: Модераторы
vitaly_l писал(а):Там не должно быть никакой задержки, если всё правильно сделать.
Не очень люблю велосипеды.vitaly_l писал(а): у вас начинает всё работать, через 100 мс.
Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure AsyncButtonFree(Data: PtrInt);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.AsyncButtonFree(Data: PtrInt);
begin
Button1.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.free;//так нельзя, закоментируй, раскоментируй следующую строку
//Application.QueueAsyncCall(@AsyncButtonFree,0);
end;
end.Код: Выделить всё
Button1.free;Код: Выделить всё
Clear();
FillTree();zub писал(а):Время требуется на любую работу.
zub писал(а):QueueAsyncCall ставит переданые адреса процедур в очередь
- это было интересно и познавательно, т.к. я бы решал такую задачу созданием и удалением новых ptr.
Код: Выделить всё
Node:=FEditingItem;
if (Node<>nil) then begin
if Assigned(OnEdited) then
OnEdited(Self,Node,NewText);
Node.Text:=NewText; // А Node уже удалили!
end;
zub писал(а):суть в том что QueueAsyncCall ставит переданые адреса процедур в очередь,
Лекс Айрин писал(а):olegy123, ты сам сказал процессы. А уж организация связи между ними может быть разной.
wofs писал(а):И, главное, я понял суть проблемы - спасибо!
olegy123 писал(а):Даже TThread синхронизируется с главным потоком, чтобы не было конкуренции за ресурсы..
olegy123 писал(а): Зачем нужна атомарность, блокировки, ожидания.
wofs писал(а):И, главное, я понял суть проблемы - спасибо!
Код: Выделить всё
with Tree1 do
begin
for i:=Items.Count-1 downto 0 do
begin
Items[i].Data:=nil;
Items[i].Free;
end;
end;
//и затем тут же в procedure FillTree(); снова чистите Tree1
Tree1.Items.Clear;
vitaly_l писал(а):Да?
Тогда объясните пожалуйста, зачем Вы два раза подряд "чистите" Tree1.Items?
Код: Выделить всё
Tree1.Items.ClearКод: Выделить всё
Tree1.Items.ClearКод: Выделить всё
Tree1.Items.Clear vitaly_l писал(а):С какой целью два раза подряд "чистится" Tree1.Items?
Код: Выделить всё
Clear();Код: Выделить всё
Tree1.Items.ClearКод: Выделить всё
FillTree();wofs писал(а):мол даты не подчищает.
vitaly_l писал(а): Вы data - не создавали ( не пользовались new(); при создании pntr ) - поэтому вам их чистить и ненужно, там всё без Вас чистится.
Лекс Айрин писал(а):А ты уверен, что он их не создавал? Ведь откуда то они взялись?