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

[Aliens_wolfs]

Сейчас посмотрим

у тебя пустые строки потому что
вот ошибка

If (dn=6) and (Day=13) then
FResultList:= FormatDateTime('dd.mm.yyyy ddd',t);
synchronize(UpdateListBox); // в пустую долбит так как условие

а нужно так

If (dn=6) and (Day=13) then
begin
FResultList:= FormatDateTime('dd.mm.yyyy ddd',t);
synchronize(UpdateListBox);
end;


исправь и все будет норм я же написал два варианта

сейчас весь юнит исправленный пришлю.

Это рабочий себе в Unit2

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;
  FResultStr: string;
  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;
begin
    FResultList.add(FResultStr);
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
     begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
     end;
    end;
end;
end.

[Djavol]

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

Сейчас посмотрим

у тебя пустые строки потому что
вот ошибка

If (dn=6) and (Day=13) then
FResultList:= FormatDateTime('dd.mm.yyyy ddd',t);
synchronize(UpdateListBox); // в пустую долбит так как условие
end;

а нужно так

If (dn=6) and (Day=13) then
begin
FResultList:= FormatDateTime('dd.mm.yyyy ddd',t);
synchronize(UpdateListBox);
end;
end;


исправь и все будет норм я же написал два варианта

сейчас весь юнит исправленный пришлю.

Это рабочий себе в Unit2

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;
  FResultStr: string;
  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;
begin
    FResultList.add(FResultStr);
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
     begin
     FResultStr:= FormatDateTime('dd.mm.yyyy ddd',t);
     synchronize(UpdateListBox);
     end;
    end;
end;
end.

СПАСИБО ОГРОМНОЕ! ПОХОДУ РАБОТАЕТ! Слушай, а можешь посмотреть потоки вообще работают? Я просто хотел доп написать чтобы показывало работает или нет, но если ты скажешь, что работают, то не буду))

[Aliens_wolfs]

Конечно работают, я бы и не рабочий не присылал бы)
Я у себя проверяю прежде чем написать

[Djavol]

Спасибо большое! Выручил сильно))