以前做的軟體（不是我做的）， 資料庫中有個欄位（image）,現在我可以讀取到此image,
舉例如下：
有兩個類：
type
TOneGrade=packed record //1
GradeName:string[FILENAME_LEN];
Criterion:string[255];
end;
TGradeData = record //2
Gradecount:Integer;
Gradelist:array[1..128] of TOneGrade;
end;
讀取：
sSchdata := qry2.FieldByName('tf_schdata').AsString;
BigSch.SchList := TMemoryStream.Create ;
BigSch.SchList.Position :=0;
BigSch.SchList.Write(sSchlist[1],Length(sSchlist));
//-- 函式呼叫
BatchData.BatchSch.SchList.Position:=
sizeof(TSchStep)*(iTray.SchStep)+sizeof(integer);
BatchData.BatchSch.SchList.Read(PSch^,sizeof(TSchStep));
這些代碼只是一部份，我只是想說明一下怎樣讀取出來，（因為有30多個類，代碼太長了）,
最終讀取出來的東東就和上面TOneGrade差不多，可以直接讀取，
我的問題是：怎樣將這么多的東東一次性存到資料庫，（我只會讀取，不會保存）
uj5u.com熱心網友回復：
資料 表建好后，用ADO的幾個相關資料集連接，把讀取的資料插入到資料表就可以了。uj5u.com熱心網友回復：
上面只是其中一小段的讀取代碼，總共有7個段，每個段的類都不相同。不是很明白，謝謝uj5u.com熱心網友回復：
例如：procedure TForm1.btn7Click(Sender: TObject);
var t1:TOneGrade ;
t2:TSchStep ;
str1:string;
begin
t1.GradeName :='A01'; //string
t1.Criterion := 'adfadf'; //string
t2.StepType := 4; //int
t2.StepName :='ddddd'; //string
t2.BItBe := 1000; //int
t2.length := 100; //int
end;
怎樣將 t1,t2 兩個變數合在一起，存到SQL資料庫的一個欄位（image）？
uj5u.com熱心網友回復：
自己頂,不沉不沉轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/130930.html
標籤：數據庫相關
上一篇：演算法導論