ПОТОКИ!!!! Synchronize

[Djavol]

Мне нужно засунуть FResultList.Add(FormatDateTime('dd. mm.yyyy ddd',t)); в синхронайз, правильно ли сделал или как правильно?

type
  TMyPotok = class(TThread)
  private
  FT1: Integer;
  FT2: Integer;
  FResultList: TStrings;
  protected
  procedure Execute; override;
  destructor Destroy; override;
  procedure UpdateListBox;
  public
  constructor Create(T1, T2: integer; ResultList: TStrings); virtual;
  end;
   procedure TMyPotok.UpdateListBox;
var t:integer;
begin
    FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t));
end;


procedure TMyPotok.Execute;
var t:integer;
    Year,Month,Day,dn:Word;
begin
    Form1.ListBox1.Clear;
    For t:=Ft1 to Ft2 do
    begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
     If (dn=6) and (Day=13) then
     FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t));
     //Synchronize(UpdateListBox);
    end;
  Synchronize(UpdateListBox);
end;
//Synchronize(UpdateListBox);
end.

[evg_m]

нет.

begin
    Form1.ListBox1.Clear; //проводить это лучше в главной форме ДО запуска потока
или тоже "обертывать"  в процедуру ClearList аналогочную UpdateList (да и использовать внутри не Form1...  
 а все тот же ResultList) и применять Synchronize(ClearList);
....
     If (dn=6) and (Day=13) then
     FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t)); //вы ПРОДОЛЖАЕТЕ использовать не ваши объекты БЕЗ синхронизации
     //Synchronize(UpdateListBox); // а вот так было бы правильно.
    end;
  Synchronize(UpdateListBox); // ну формально оно правильно, но немного бесполезно, при учете предыдущего замечания.
разве что мы захотим "индикацию" что все мы проверили и поток идет гуд-бай. но тогда 
по аналогии с ClearList  Synchronize(FinishList);

[Djavol]

Сообщение от evg_m

нет.

begin
    Form1.ListBox1.Clear; //проводить это лучше в главной форме ДО запуска потока
или тоже "обертывать"  в процедуру ClearList аналогочную UpdateList (да и использовать внутри не Form1...  
 а все тот же ResultList) и применять Synchronize(ClearList);
....
     If (dn=6) and (Day=13) then
     FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t)); //вы ПРОДОЛЖАЕТЕ использовать не ваши объекты БЕЗ синхронизации
     //Synchronize(UpdateListBox); // а вот так было бы правильно.
    end;
  Synchronize(UpdateListBox); // ну формально оно правильно, но немного бесполезно, при учете предыдущего замечания.
разве что мы захотим "индикацию" что все мы проверили и поток идет гуд-бай. но тогда 
по аналогии с ClearList  Synchronize(FinishList);

procedure TMyPotok.UpdateListBox;
var t:integer;
begin
    FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t));
end;


procedure TMyPotok.Execute;
var t:integer;
    Year,Month,Day,dn:Word;
begin
    //Form1.ListBox1.Clear;
    For t:=Ft1 to Ft2 do
    begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
     If (dn=6) and (Day=13) then
     //FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t));
     Synchronize(UpdateListBox);
    end;
  //Synchronize(UpdateListBox);
end;
//Synchronize(UpdateListBox);
end.

так?? Если нет, то напишите пожалуйста все таки полностью как надо

[evg_m]

если НИГДЕ нет обращений к ВНЕШНИМ объектам без Synchronize то общение с "внешним" миром построено правильно.
OFFTOP. если конечно же в качестве синхронизации используется только он. это замечание для "гуру".

так что на беглый взгляд, такой же как и в прошлый раз (что увидел, то и сказал в комментариях), то все нормально.
В "начинку" цикла(алгоритм вычислений) не вникал даже бегло.

[Aliens_wolfs]

Ну тогда вот так если такой путь избрали

Код:

type
MyClass= class(TThread)
FResultStr: string; объявите в классе потока в место FResultList
............................


procedure MyClass.UpdateListBox;
begin
 Form1.Listbox1.Items.add(FResultStr);
end;

procedure MyClass.Execute;
var t, t1, t2:integer;
    Year,Month,Day,dn:Word;
begin
   t1:=Trunc(form1.DateTimePicker1.Time);
   t2:=Trunc(form1.DateTimePicker2.time);
     For t:=Ft1 to Ft2 do
     begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
    If (dn=6) and (Day=13) then
    begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
    end;
    end;
end;

end.

в общем надеюсь вы поняли что передаем через новую переменную FResultStr она синхронно передается уже листу, можете применить и в моем коде что я писал в другом посте либо в вашем.

в моем будет так

type
  TMyPotok = class(TThread)
  private
  FT1: Integer;
  FT2: Integer;
  FResultList: TStrings;
  FResultStr: string; 
  protected
  procedure Execute; override;
  destructor Destroy; override;
  procedure UpdateListBox; virtual;
  public
  constructor Create(T1, T2: integer; ResultList: TStrings); virtual;
  end;

procedure TMyPotok.UpdateListBox;
var t:integer;
begin
    FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t));
end;

procedure TMyPotok.Execute;
var t:integer;
    Year,Month,Day,dn:Word;
begin
FResultList.clear; //если нужно но это вы можете делать при создании потока в Unit1
     For t:=Ft1 to Ft2 do
     begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
    If (dn=6) and (Day=13) then
    begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
    end;
    end;
end;

end.

[Djavol]

Сообщение от Aliens_wolfs

Ну тогда вот так если такой путь избрали

Код:

type
MyClass= class(TThread)
FResultStr: string; объявите в классе потока в место FResultList
............................


procedure MyClass.UpdateListBox;
begin
 Form1.Listbox1.Items.add(FResultStr);
end;

procedure MyClass.Execute;
var t, t1, t2:integer;
    Year,Month,Day,dn:Word;
begin
   t1:=Trunc(form1.DateTimePicker1.Time);
   t2:=Trunc(form1.DateTimePicker2.time);
     For t:=Ft1 to Ft2 do
     begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
    If (dn=6) and (Day=13) then
    begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
    end;
    end;
end;

end.

в общем надеюсь вы поняли что передаем через новую переменную FResultStr она синхронно передается уже листу, можете применить и в моем коде это либо в вашем

http://www.programmersforum.ru/showt...=1#post1661995

[Djavol]

Сообщение от Aliens_wolfs

Ну тогда вот так если такой путь избрали

Код:

type
MyClass= class(TThread)
FResultStr: string; объявите в классе потока в место FResultList
............................


procedure MyClass.UpdateListBox;
begin
 Form1.Listbox1.Items.add(FResultStr);
end;

procedure MyClass.Execute;
var t, t1, t2:integer;
    Year,Month,Day,dn:Word;
begin
   t1:=Trunc(form1.DateTimePicker1.Time);
   t2:=Trunc(form1.DateTimePicker2.time);
     For t:=Ft1 to Ft2 do
     begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
    If (dn=6) and (Day=13) then
    begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
    end;
    end;
end;

end.

в общем надеюсь вы поняли что передаем через новую переменную FResultStr она синхронно передается уже листу, можете применить и в моем коде что я писал в другом посте либо в вашем.

в моем будет так

type
  TMyPotok = class(TThread)
  private
  FT1: Integer;
  FT2: Integer;
  FResultList: TStrings;
  FResultStr: string; 
  protected
  procedure Execute; override;
  destructor Destroy; override;
  procedure UpdateListBox; virtual;
  public
  constructor Create(T1, T2: integer; ResultList: TStrings); virtual;
  end;

procedure TMyPotok.UpdateListBox;
var t:integer;
begin
    FResultList.Add(FormatDateTime('dd.mm.yyyy ddd',t));
end;

procedure TMyPotok.Execute;
var t:integer;
    Year,Month,Day,dn:Word;
begin
FResultList.clear; //если нужно но это вы можете делать при создании потока в Unit1
     For t:=Ft1 to Ft2 do
     begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
    If (dn=6) and (Day=13) then
    begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
    end;
    end;
end;

end.

unit Unit2; //ìîåååååååå

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMyPotok = class(TThread)
private
FT1: Integer;
FT2: Integer;
FResultStr: string;
FResultList:TStrings;
protected
procedure Execute; override;
destructor Destroy; override;
procedure UpdateListBox;
public
constructor Create(T1, T2: integer; ResultList: TStrings); virtual;
end;

implementation
uses unit1;

constructor TMyPotok.Create(T1, T2: integer; ResultList: TStrings);
begin
inherited Create(true);
FreeOnTerminate := True;
FT1:= T1;
FT2:= T2;
FResultList:= ResultList;
Resume;
end;

destructor TMyPotok.Destroy;
begin
inherited;
end;

procedure TMyPotok.UpdateListBox;
var t:integer;
begin
// Form1.Listbox1.Items.add(FResultStr ); //âîò çäåñü ÷òî òî íå òî, åñëè çàêîìåíòèòü òî ðàáîòàåò
FResultList.Add(FormatDateTime('dd. mm.yyyy ddd',t));
end;


procedure TMyPotok.Execute;
var t:integer;
Year,Month,Day,dn:Word;
begin
//Form1.ListBox1.Clear;
For t:=Ft1 to Ft2 do
begin
DecodeDate(t,Year,Month,Day);
dn:=DayOfWeek(t);
If (dn=6) and (Day=13) then
FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
synchronize(UpdateListBox);
end;
//Synchronize(UpdateListBox);
end;
//Synchronize(UpdateListBox);
end.

Он мне выводит не те даты. Посмотрите, я вам скинул проект, если вам удобно, то поправьте пожайлуста

[Djavol]

ВСЕМ СПАСИБО! ЗАРАБОТАЛО!

[Aliens_wolfs]

Да не за что, главное вникайте в код который вам присылают и тогда все получиться.