如何從記錄

Question

數據插入到網格我有三個記錄歸檔：

type 
    TItem = record 

    Item : String; 
    Quantity: SmallInt; 
    Price : Currency; 
end; 

我也有程序設定值到記錄：

function TForm1.SetItem(item:string;quan:SmallInt;price:Currency):TItem; 
    var It :TItem; 
    begin 
      It.Item :=item; 
      It.Quantity:= quan; 
      It.Price:=price; 
     Result :=It; 
    end; 

現在，我需要插入一個過程記錄TItem到TStringGrid或TGrid我不知道該怎麼做。 我也有三列在我的TStringGrid：

1. col_Item  :string; 
2. col_Quantity :SmallInt; 
3. col_Price :Currency; 

每當我調用過程SetItem我需要插入到從唱片提起這三列三：

結果應該是這樣的：

ITEM  | Quantity | Price 

Bread   1   1,5 
Coca cola  1   3 
Fanta   2   3 

..等等。

Answer 1

首先，網格（TGrid）不存儲數據，因此您需要提供像f.ex這樣的數據存儲。 TDataArr = array of TItem;。當電網需要的數據在單元格中顯示，它調用OnGetValue()事件：

procedure TForm4.Grid1GetValue(Sender: TObject; const Col, Row: Integer; 
    var Value: TValue); 
begin 
    if Row > (Length(DataArr)-1) then exit; 
    case Col of 
    0: Value := DataArr[Row].Item; 
    1: Value := DataArr[Row].Quantity; 
    2: Value := DataArr[Row].Price; 
    end; 
end; 

有一個隱式轉換爲字符串在網格中的DISPLY。

當你在網格中編輯數據，改變觸發OnSetValue事件：

procedure TForm4.Grid1SetValue(Sender: TObject; const Col, Row: Integer; 
    const Value: TValue); 
begin 
    if Row > (Length(DataArr)-1) then exit; 
    case Col of 
    0: DataArr[Row].Item := Value.AsString; 
    1: DataArr[Row].Quantity := StrToInt(Value.AsString); 
    2: DataArr[Row].Price := StrToCurr(Value.AsString); 
    end; 
end; 

似乎沒有成爲一個隱式轉換的其他方式，因此StrToInt(Value.AsString)和StrToCurr(Value.AsString)。