我有一個 class，裡面定義了一些簡單的 strings


[code delphi]
PTSentence = ^TSentence;
TSentence = class(TObject)
public
id :Integer;
S1, S2, S3 :String;
procedure setSentence( id :integer; S2, S2, S3 :String );
end;

procedure TSentence.setSentence(id :Integer; S1, S2, S3: String);
var
tmpStr1, tmpStr2, tmpStr3 :PChar;
begin
try
Self.id := id;

tmpStr1 := PChar(S1);
GetMem(tmpStr2, StrLen(tmpStr1) 1);
GetMem(tmpStr3, StrLen(tmpStr1)*2);
Self.S1 := String(tmpStr3);

Self.S2 := S2;
Self.S3 := S3;
finally
FreeMem(tmpStr2);
FreeMem(tmpStr3);
end;
end;

[/code]

我從access database 中讀出每一條記錄，然後生成一個object ,把object記在一個stringlist中備用


[code delphi]
{ 讀取 database }
...
sid := Fields.Fields[0].AsInteger;
S1 := Fields.Fields[1].AsString;
S2 := Fields.Fields[2].AsString;
S3 := Fields.Fields[3].AsString;

sentObj := TSentence.Create; // sentObj 是 TSentence
sentObj.setSentence(sid, S1, S2, S3);
sentenceList.Add(sentObj); // sentenceList 是 TStringList
[/code]

數据存儲到 stringlist 後，以後會被讀出作進一步處理


[code delphi]
sentObj := TSentence(Self.sentenceList.Items[3]); // sentenceList 是 StringList
curSent := sentObj; // curSent 是被讀出的TSentence Object
[/code]

到目前為止似乎沒甚麼問題，但我不明白的是，在 TSentence 的 setsentence 中，為甚麼在處理 S1 的 copy 時要用到GetMem？ 而處理 S2, S3 時卻直接 assign? 我的數据庫字段中，S1, S2, S3 是中英文混合的。那段 setsentence 的代碼我是從forum中找到的，我試過，如果寫成下面的方式

[code delphi]
procedure TSentence.setSentence(id :Integer; S1, S2, S3: String);
begin
Self.id := id;
Self.S1 := S1;
Self.S2 := S2;
Self.S3 := S3;
end;

[/code]

則在數据存在 StringList 後被再次讀出時會有亂碼。但如果我對 S2, S3 都用GetMem等方式處理，即

[code delphi]
procedure TSentence.setSentence(id :Integer; S1, S2, S3: String);
var
tmpStr1, tmpStr2, tmpStr3 :PChar;
begin
try
Self.id := id;

tmpStr1 := PChar(S1);
GetMem(tmpStr2, StrLen(tmpStr1) 1);
GetMem(tmpStr3, StrLen(tmpStr1)*2);
Self.S1 := String(tmpStr3);
FreeMem(tmpStr2);
FreeMem(tmpStr3);

tmpStr1 := PChar(S2);
GetMem(tmpStr2, StrLen(tmpStr1) 1);
GetMem(tmpStr3, StrLen(tmpStr1)*2);
Self.S2 := String(tmpStr3);
FreeMem(tmpStr2);
FreeMem(tmpStr3);

tmpStr1 := PChar(S3);
GetMem(tmpStr2, StrLen(tmpStr1) 1);
GetMem(tmpStr3, StrLen(tmpStr1)*2);
Self.S3 := String(tmpStr3);
finally
FreeMem(tmpStr2);
FreeMem(tmpStr3);
end;
end;

[/code]

則再次從 TstringList 中讀取 Object時會出錯。請問怎樣處理才是正確的做法？

編輯記錄

ttI : Integer;//指標
ttOrder := POrder(ttStr.object[ttI])
ttMsg := ttOrder.id ;

------
程式沒有這麼難
只是還沒打通其中要絕

幾個問題:
(1) function AddObject(const S: string; AObject: TObject): Integer; override;

sentObj := TSentence.Create; // sentObj 是 TSentence
sentObj.setSentence(sid, S1, S2, S3);
sentObj := TSentence(Self.sentenceList.Objects[3]); // sentenceList 是 StringList
curSent := sentObj; // curSent 是被讀出的TSentence Object

(3) 記得在 Free sentenceList 時, 要先Free 自行產生的物件

(4) 字串直接 Assign 即可, 除非宣告於record 中, 且有儲存動作時
應使用 short string 方式.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.