Обращение к StreamIn и StreamOut у вариантов

[Oreol]

Как воспользоваться методами StreamIn и StreamOut для вариантов (Variant) с комплексными числами?

[Stilet]

Всмысле? Что это за методы такие?

[Oreol]

uses Variants, VarCmplx;
...
procedure ComplexVariantToStream (ComplexData: Variant; 
				  Stream: TMemoryStream);
var
  VariantType: word;

  procedure WriteComplexData (V: variant);
  begin
    //Write Type
    VariantType := TVarData (V).VType and varTypeMask;   
    Stream.Write  (TVarData (V).VType, SizeOf (word));
    //Write V   
    if VariantType=VarComplex
    then
    begin
      Stream.Write(TComplexVarData(V).VComplex.Real, SizeOf(Extended));
      Stream.Write(TComplexVarData(V).VComplex.Imaginary, SizeOf(Extended));
    end
  end;
  
begin  
  if (VarIsNull (ComplexData)) or (VarIsEmpty (ComplexData)) then exit;   
  WriteComplexData (ComplexData);   
end;


function StreamToComplexVariant (Stream: TMemoryStream): variant;
var
  VariantType: word;   
  TempVariant: variant;

  function Read1(var Buffer; Count: Longint): Longint;   
  begin  
    Result := Stream.Read (Buffer, Count);   
  end;   
             
  procedure ReadComplexData (VariantType: word; out V: variant);   
  begin
    VarCast (V, V, VariantType);   
    if VariantType=VarComplex
    then
    begin
      Read1 (TComplexVarData(V).VComplex.Real, SizeOf (VarComplex));
      Read1 (TComplexVarData(V).VComplex.Imaginary, SizeOf (VarComplex));
    end;
  end;

begin  
  Stream.Seek (0, soFromBeginning);
  Read1 (VariantType, SizeOf (word));   
  ReadComplexData (VariantType and varTypeMask, TempVariant);   
  Result := TempVariant;   
end;

==========================Delphi Compiler Messages
[Pascal Error] YYY.pas(XXX): E2003 Undeclared identifier: 'TComplexVarData'
[Pascal Error] YYY.pas(та же XXX): E2035 Not enough actual parameters

[XuTpbIu]

Такой функции нет в наборе стандартных модулей Делфи(Ну и как-то странно что название начинается с T). Может ещё какие-то модули надо подключить

[Kotofff]

О TComplexVarData вот тут есть что-то : http://program.rin.ru/razdel/html/1075-2.html
И вот тут : http://www.realcoding.net/teach/delp...010/Index6.htm