掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Variant変数のデータをTMemoryStreamに格納したいのですがこれだとやりすぎでしょうか (ID:150172)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
複素数を変数とストリームの間でやりたいと考えております 以下のコードで試してみましたが妥当でしょうか また、最後に必ずエラーが出て実現できていません program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, System.Variants, System.VarCmplx, System.TypInfo, System.Classes; var obj: TCustomVariantType; iv: IInterface; ms: TMemoryStream; v: Variant; begin try { TODO -oUser -cConsole メイン : ここにコードを記述してください } ms:=TMemoryStream.Create; FindCustomVariantType('TComplexVariantType',obj); v:=VarAsComplex(6.0); //複素数の格納を目的としています Writeln(obj.ClassName); Readln; iv:=obj; IVarStreamable(iv).StreamOut(TVarData(v),ms); v:='a'; //初期化の感じです ms.Position:=0; IVarStreamable(iv).StreamIn(TVarData(v),ms); obj.Free; Writeln(v); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.