svn/view/Unit4.pas

unit Unit4;

interface

uses
  System.Classes, System.SysUtils;

type
  TSearchMP3 = class(TThread)
  private
    { Private 宣言 }
  protected
    procedure Execute; override;
  end;

implementation

{
  重要: ビジュアル コンポーネントにおけるオブジェクトのメソッドとプロパティは、Synchronize を使って
  呼び出されるメソッドでのみ使用できます。たとえば、次のようになります。

  Synchronize(UpdateCaption);

  UpdateCaption は、たとえば次のようなコードになります。

  procedure TSeachMP3.UpdateCaption;
  begin
  Form1.Caption := 'スレッドで更新されました';
  end;

  あるいは

  Synchronize(
  procedure
  begin
  Form1.Caption := '無名メソッドを通じてスレッドで更新されました'
  end
  )
  );

  ここでは、無名メソッドが渡されています。

  同様に、開発者は上記と同じようなパラメータで Queue メソッドを呼び出すことができます。
  ただし、別の TThread クラスを第 1 パラメータとして渡し、呼び出し元のスレッドを
  もう一方のスレッドでキューに入れます。

}

uses Unit2, Unit1, Unit3;

{ TSearchMP3 }

procedure TSearchMP3.Execute;
var
  list: TStringList;
  depth: integer;
  i, k: integer;
  procedure Add(const Dir: string);
  var
    s1, s2: TSearchRec;
    st: string;
    i, j: integer;
  begin
    if Dir = '' then
      st := ''
    else
      st := IncludeTrailingPathDelimiter(Dir);
    i := FindFirst(st + '*', faDirectory, s1);
    j := FindFirst(st + '*.mp3', faAnyFile, s2);
    try
      while i = 0 do
      begin
        if (s1.Name <> '.') and (s1.Name <> '..') then
          list.Add(st + s1.Name + '|' + (depth + 1).ToString);
        i := FindNext(s1);
      end;
      while j = 0 do
      begin
        Synchronize(
          procedure
          begin
            with Form1.ListView1.Items.Add do
            begin
              Text := s2.Name;
              Detail := st + s2.Name;
            end;
          end);
        j := FindNext(s2);
      end;
    finally
      FindClose(s1);
      FindClose(s2);
    end;
  end;

begin
  { スレッドとして実行したいコードをここに記述してください }
  list := TStringList.Create;
  try
    list.NameValueSeparator := '|';
    list.Add('|0');
    i := Form2.PopupBox1.Text.ToInteger;
    k := 0;
    while (Terminated = false) and (k < list.Count) do
    begin
      depth := list.ValueFromIndex[k].ToInteger;
      if depth < Trunc(i) then
        Add(list.Names[k]);
      inc(k);
    end;
  finally
    list.Free;
  end;
  Synchronize(
    procedure
    begin
      Form3.Hide;
      Form1.Action2Execute(Self);
    end);
end;

end.