掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TObjectをStringにキャストするには？ (ID：32515)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たぶんもう少し勉強しないと分からないかと思います。 Object,ポインタについては基本を学んだ上で経験を積んでください。 という私もまだまだ勉強中の身ですが、サンプルを書くとすればこんな感じ。 当然この方法がすべてではありません、無理やり文字列ポインタをオブジェクトと言い張って置いています。 あくまでサンプルですからね！！！ procedure TForm1.Button1Click(Sender: TObject); var strList:TStringList; i:Integer; s,obs:string; p,p2:PString; begin //詰め込み strList:=TStringList.Create; for i := 0 to 100 - 1 do begin s :=Format('str %d',[i]); obs:=Format('Object %d',[i]); New(p); p^ := obs; strList.AddObject(s,TObject(p)); end; //参照 p2:=PString(strList.Objects[20]); obs := PString(p2)^; ShowMessage(obs); //破棄 for i := 0 to 100 - 1 do begin p:=PString(strList.Objects[i]); Dispose(p); end; strList.Free; //参照 obs := PString(p2)^; ShowMessage(obs); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.