Объединение двух Unit DELPHI

[Djavol]

Ребята. Нужна помощь. Смотрите, у меня два юнита. Один с потоками другой обычный. Я вроде как правильно указал, в uses и там и там. В юните2 не видит ListBox и DateTimePicker, что делать? Может быть код сам по себе плохо написан или дело в другом?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,spin,Unit2;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Thread: array of MyPotok;
implementation
   {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
    i, j, n, a1, b1:integer;
  begin
    a1:=b1+1;
    b1:=b1+n;
    SetLength(Thread,i+1);
    Thread[i]:=MyPotok.Create(True); //ýêçåìïëÿð ïîòîêà
    Thread[i].a:=a1;
    Thread[i].b:=b1;
    Thread[i].Priority:=tpNormal;  //ïðèîðèòåò
    Thread[i].FreeOnTerminate:=True;
    Thread[i].Resume;
end;




end.

ВОТ ВТОРОЙ UNIT

unit Unit2; 

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  MyPotok = class(TThread)
  public
    a, b, n:integer;
    protected
    procedure Execute; override;
    procedure lfs;
  end;
  
implementation
  uses unit1;

procedure MyPotok.lfs;
begin

end;

procedure MyPotok.Execute;
var t1,t2,t:integer;
    Year,Month,Day,dn:Word;
begin
   t1:=Trunc(DateTimePicker1.В ЭТОМ МЕСТЕ Я НЕ МОГУ ПОСТАВИТЬ TIME , так как он не видит этот объект);
   t2:=Trunc(DateTimePicker2.В ЭТОМ МЕСТЕ Я НЕ МОГУ ПОСТАВИТЬ TIME , так как он не видит этот объект);
   For t:=t1 to t2 do
   begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
      If (dn=6) and (Day=13) then
      Listbox1.Items.Add(FormatDateTime('Äàòà: dd.mm.yyyy ddd',t));
   end;
end;
end.

ОШИБКА: unable to invoke code completion due to errors in source code delphi

[ura_111]

Выложи весь проект.

[Djavol]

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

Выложи весь проект.

Зачем?

[ura_111]

То, что называется пощупать его в живую.

[Djavol]

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

То, что называется пощупать его в живую.

А че так не скажешь?

[evg_m]

http://www.programmersforum.ru/showp...01&postcount=4
пункт 3.

[Aliens_wolfs]

Во первых даже если unit2 и увидит ваши контролы c Unit1, а увидит он их так Form1.Listbox1.Items.Add(FormatDate Time('dd.mm.yyyy ddd',t)) и form1.DateTimePicker1, в потоке возможно будут ошибки с отображением данных т.к. нужна синхронность Synchronize.
Данные еще можно возвращать в обратном вызове из потока Unit2 в Unit1.
И в заключении, зачем вам массив потоков вам хватит Thread: MyPotok, он и так будет создаваться сколько угодно и по завершению сам уничтожиться.
По изучайте потоки, здесь информации много, вот к примеру. http://programmersforum.ru/showthrea...=301418&page=3

Вот кое что накидал из вашего кода правда тоже без Synchronize но ошибок пока нет.

unit Unit2;

interface

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

implementation

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.Execute;
var t:integer;
    Year,Month,Day,dn:Word;
begin
    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));
    end;
end;
end.

В Uses1

procedure TForm1.Button1Click(Sender: TObject);
var
    t1, t2: integer;
  MyPotok: TMyPotok;
  begin
   t1:= Trunc(DateTimePicker1.Time);
   t2:= Trunc(DateTimePicker2.Time);
   MyPotok:= TMyPotok.Create(t1, t2, ListBox1.items);
end;

[Djavol]

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

Во первых даже если unit2 и увидит ваши контролы c Unit1, а увидит он их так Form1.Listbox1.Items.Add(FormatDate Time('dd.mm.yyyy ddd',t)) и form1.DateTimePicker1, в потоке возможно будут ошибки с отображением данных т.к. нужна синхронность Synchronize.
Данные еще можно возвращать в обратном вызове из потока Unit2 в Unit1.
И в заключении, зачем вам массив потоков вам хватит Thread: MyPotok, он и так будет создаваться сколько угодно и по завершению сам уничтожиться.
По изучайте потоки, здесь информации много, вот к примеру. http://programmersforum.ru/showthrea...=301418&page=3

Вот кое что накидал из вашего кода правда тоже без Synchronize но ошибок пока нет.

unit Unit2;

interface

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

implementation

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.Execute;
var t:integer;
    Year,Month,Day,dn:Word;
begin
    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));
    end;
end;
end.

В Uses1

procedure TForm1.Button1Click(Sender: TObject);
var
    t1, t2: integer;
  MyPotok: TMyPotok;
  begin
   t1:= Trunc(DateTimePicker1.Time);
   t2:= Trunc(DateTimePicker2.Time);
   MyPotok:= TMyPotok.Create(t1, t2, ListBox1.items);
end;

СПАСИБО ОГРОМНОЕ! А можетенаписать как синхронайз оформить?

procedure MyClass.UpdateListBox;
var t:integer;
begin
    Form1.Listbox1.Items.add(FormatDateTime('Äàòà: dd.mm.yyyy ddd',t));
end;


procedure MyClass.Execute;
var
t:integer;
    Year,Month,Day,dn:Word;
begin
   form1.ListBox1.Clear;
   t1:=Trunc(form1.DateTimePicker1.Time);
   t2:=Trunc(form1.DateTimePicker2.time);
   for t:=t1 to t2 do
   begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
      If (dn=6) and (Day=13) then

     Form1.Listbox1.Items.add(FormatDateTime('Äàòà: dd.mm.yyyy ddd',t));
     synchronize(UpdateListBox);
end;
end;
end.

Правильно?

[Aliens_wolfs]

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

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


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.

[Djavol]

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

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

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


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.

Будь добр, если не трудно, посмотри пожалуйста проект. Все ли правильно я сделал, а то сам уже не понимаю!