TBucket class について

解決

naao 2006-11-06 22:59:37 No: 23756

使いこなせばきっと便利なものに違いないという思い込みから
TBucket classについての解説記事を探しています。
検索ではあまりかかってきません。
ご存知の方おられましたら教えてください。

なんかやだな 2006-11-06 23:11:06 No: 23757

そのclessについては思い当たりませんが、どんなものなのでしょう。
それよりも「おられましたら」がイヤッ。「居る」じゃ謙譲語だからこういう場合には「いらっしゃいましたら」が正しい日本語。

えーとね 2006-11-06 23:26:28 No: 23758

たしかハッシュ・リストだと思います。

えーとね 2006-11-07 01:49:12 No: 23759

> 使いこなせばきっと便利なものに違いないという思い込みから
内部のアルゴリズムが良くないので、避けられているようです。

> 解説記事を探しています。
意味不明なサンプルですが。

uses
contnrs;

var
ob: TObjectBucketList;
res : Pointer;

  procedure FocusControlWithCombo(AInfo, AItem, AData: Pointer; out AContinue: Boolean);
  begin
    if TObject(AData) is TComboBox then
    begin
      TWinControl(AItem).SetFocus;
      AContinue := false;
  end
  else
    AContinue := true;
  end;
begin
  ohash := TObjectBucketList.Create(TBucketListSizes(2));
  try
    ob.Add(Memo1, Label3);
    ob.Add(Edit1, Label1);
    ob.Add(Edit2, ComboBox1);

ob.ForEach(@FocusControlWithCombo);

    if ob.Find(Edit1, res) then
      if TObject(res) is TLabel then
        TLabel(res).Caption := 'Found';
  finally
    FreeAndNil(ob);
  end;
end;

えーとね 2006-11-07 01:54:24 No: 23760

> ohash := TObjectBucketList.Create(TBucketListSizes(2));
ob := TObjectBucketList.Create(bl4);
に変えてください。

naao 2006-11-07 22:04:09 No: 23761

えーとね様ありがとうございました。