( ゚Д゚)ノ Delギコ猫のプログラミング相談室part4
■ このスレッドは過去ログ倉庫に格納されています
0568デフォルトの名無しさん
NGNGTMyValueType = (
mvtInteger,
mvtDouble,
mvtBoolean,
mvtPointer,
mvtObject,
mvtString
);
TMyItem = record
:
StringValue: String;
case ValueType: TMyValueType of
mvtInteger: (IntegerValue: Integer);
mvtDouble: (DoubleValue: Double);
mvtBoolean: (BooleanValue: Boolean);
mvtPointer: (PointerValue: Pointer);
mvtObject: (ObjectValue: TObject);
mvtString: ();
end;
ValueType は型を意識したいときに使うけど、無くても可。
■ このスレッドは過去ログ倉庫に格納されています