unit UThreadCheckForNew;

interface

uses
  Classes,comctrls,sysutils,dialogs;

type
  TCheckForNewInPostkorbThread = class(TThread)
  private
   fNodeToCheck:string;
   procedure CheckForNew;
   procedure MarkNode;
    { Private-Deklarationen }
  public
   Liste:TStringList;
  protected
    procedure Execute; override;
  end;

implementation

uses navform;

{ TCheckForNewInPostkorbThread }

procedure TCheckForNewInPostkorbThread.checkfornew;
 var
  node:string;
  search:TDVSearch; // eigene Komponente die hier aber nichts zur Sache tut
  i : integer;
  res:integer;
begin
  search:=TDVSearch.Create(nil);
  for i:=0 to Liste.Count-1 do
   begin
    node:=trim(Liste.Strings[i]);
    res:=search.SRVSearch;
    if res <> 0 then
     begin
      factive:=false;
      MessageDlg('Es ist ein Fehler aufgetreten',mtError,[mbok],0);
      break;
     end;
    if search.Items.Count > 0 then
     begin
      fNodeToCheck:=node;
      Synchronize(markNode);
     end;
   end;
  search.Free;
end;

procedure TCheckForNewInPostkorbThread.Execute;
begin
  CheckForNew;
  Liste.Free;
end;


procedure TCheckForNewInPostkorbThread.MarkNode;
begin
 AdvNavForm.Test;
end;

end.