請教一下 我用以下的方式 將DBgird的資料逐行的輸入到memo裡面 因為我的DBGrid是由Query產生的 所以 我不知道欄位的名稱 與欄位數量 我用以下的方式來設計 While Not Query1.Eof Do Begin For i:=0 To Query1.FieldCount-1 Do Begin sLines:=Query1.Fields[i].FieldName '--' '[' Query1.Fields[i].AsString '],'; Memotest.Memo1.Lines.Add(sLines); End; Query1.Next; End; Memotest.show; end; 可是我查出來的資料 只有一行 比如說 我的其中一筆資料 他會這樣顯示 OrderNo--[1003], CustNo--[1351], SaleDate--[1988/4/12], ShipDate--[1988/5/3 PM 12:00:00], EmpNo--[114], ShipToContact--[], ShipToAddr1--[], ShipToAddr2--[], ShipToCity--[], ShipToState--[], ShipToZip--[], ShipToCountry--[], ShipToPhone--[], ShipVIA--[UPS], PO--[], Terms--[FOB], PaymentMethod--[Credit], ItemsTotal--[1250], TaxRate--[4.5], Freight--[0], AmountPaid--[0], 在--之前 是欄位名稱 那我可不可以 用以下的方式顯示 OrderNo--[1003],CustNo--[1351],SaleDate--[1988/4/12], ShipDate--[1988/5/3 PM 12:00:00],EmpNo--[114],ShipToContact--[], ShipToAddr1--[],ShipToAddr2--[],ShipToCity--[], ShipToState--[],ShipToZip--[],ShipToCountry--[], ShipToPhone--[],ShipVIA--[UPS],PO--[], Terms--[FOB],PaymentMethod--[Credit],ItemsTotal--[1250], TaxRate--[4.5],Freight--[0],AmountPaid--[0], 那我該如何修改程式呢 還有 在memo內的資料 每筆資料 都會相鄰而下 比如說 PaymentMethod--[Credit], ItemsTotal--[1250], TaxRate--[4.5], Freight--[0], AmountPaid--[0], OrderNo--[1004], CustNo--[2156], SaleDate--[1988/4/17], ShipDate--[1988/4/18], 我的OrderNo--[1004],是另外一筆紀錄的開始 如果我希望 兩筆記錄之間 能夠有空格 那我該如何做呢 謝謝

begin
  While Not Query1.Eof Do Begin
    sLines := '';
    For i:=0 To Query1.FieldCount-1 Do Begin
      sLines := sLines   Query1.Fields[i].FieldName   '--'   '['   Query1.Fields[i].AsString   '],';
    End;
    Memotest.Memo1.Lines.Add(sLines);
    Memotest.Memo1.Lines.Add('');
  End;
  Query1.Next;
  Memotest.show;
end;

-- Everything I say is a lie.