type
  pmyRec = ^myRec;
  myRec=Record
    item  : String;
    price : real;
    num   : Integer;
  end;    procedure TForm1.Button1Click(Sender: TObject);
var
  ts: TstringList;
  Rec, freeRec: pmyRec;
  Lable_price: real;
  i: integer;
begin
  ts := tstringlist.Create;
  GetMem(Rec, SizeOf(Rec)); --->這裡設定size，需要依t1的列數決定嗎？
  //不需要，與t1的列數無關
  with q1 do
  begin
    Close;
    SQL.Text := 'Select item_id ,price,qty From t1 ';
    Open;
    While not eof do
    begin
      Rec.item := FieldByName('item_id').AsString;
      Rec.price := FieldByName('price').AsFloat;
      Rec.num := FieldByName('qty').AsInteger;
      ts.AddObject(Rec.item, TObject(Rec));
      next;
    end;
<再來怎麼搜尋資料呢？>
    Lable_price := pmyRec(ts.Objects[2]).price;        //ts釋放之前記得先把對應的Object(即pmyRec所指內存給釋放了)
    for i := ts.Count - 1 downto 0 do
    begin
      freeRec := pmyRec(ts.Objects[i]);
      ts.Objects[i] := nil;
      FreeMem(FreeRec, SizeOf(freeRec));
    end;
 
    ts.Free;
  end;
end;

引言: 不好意思，我表達的不夠清楚 我想知道怎麼運用index... 因為我只知道item，所以必須靠著item去找出它的位置,再去找出price //我怎麼知道是在2這個位置呢？ Lable_price := pmyRec(ts.Objects[2]).price; 以上，謝謝!!

引言: 了解，謝謝!! 我以為也可以像一般StringList一樣用indexOf()，就可以找出他的位置了 因為料號資料量大，所以我想先將符合條件的料號找出來，將其金額/數量都先放進陣列 才不用每次都進資料庫做select,來找金額或數量。

procedure TForm1.Button1Click(Sender: TObject);
type
  myRec=Record
    item : String;
    price : real;
    num : Integer;
  end;
var
  ArrRec: array of myRec;
  L: integer;
begin
  Q1.SQL.Clear;
  Q1.SQL.Add('select count(*) from t1');
  Q1.Open;
  L := Q1.Fields[0].AsInteger;
  if L = 0 then exit;  //退出
  SetLength(ArrRec, L);
  Q1.SQL.Clear;
  Q1.SQL.Add('Select item_id ,price,qty From t1');
  Q1.Open;
  for L := 0 to Q1.RecordCount - 1 do
  begin
    ArrRec[L].item := Q1.FieldByName('item_id').AsString;
    ArrRec[L].price := Q1.FieldByName('price').AsFloat;
    ArrRec[L].num := Q1.FieldByName('qty').AsInteger;
    Q1.Next;
  end;
  //......//
end;

引言: 謝謝 h@visli.... 我原本是用陣列的,想說看看有沒有辦法利用indexOf一行解決... 看樣子,還是不能偷懶的 < face="Verdana, Arial, Helvetica"> 用indexOf也是可以的, 如： _price := pmyRec(ts.Objects[ts.indexof('AAA')]).price; ---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 ---------------------------