OleVariant zu TBytes

[Bummi]

Schmeiß den ganz Block

Delphi-Quellcode:

  try
    if not assigned(MyVariantStream) then
      MyVariantStream := TMemoryStream.Create
    else begin
      MyVariantStream.Free;
      MyVariantStream := TMemoryStream.Create;
    end;
  except
    Result := nil;
    Exit;
  end;

raus

statt dessen nur
MyVariantStream := TMemoryStream.Create
Stackvariablen sind nicht installiert