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
  depth: integer;
  i, k: integer;
  s: string;
  temp: TStringList;
  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', faNormal, s2);
    try
      while i = 0 do
      begin
        if (s1.Name <> '.') and (s1.Name <> '..') then
          temp.Add(st + s1.Name + '|' + (depth + 1).ToString);
        i := FindNext(s1);
      end;
      while j = 0 do
      begin
        Form1.list.Add(st+s2.Name);
        j := FindNext(s2);
      end;
    finally
      FindClose(s1);
      FindClose(s2);
    end;
  end;

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

end.