Variant массивы[Решено]

[dionic]

Народ подскажите кто сталкивался с такой проблемой, пытаюсь создать variant массив в lazarus, одним из элементов которого тоже является variant массив, пишу

Код: Выделить всё

lSend:= VarArrayOf([ VarArrayOf([False, 44]), 'ggg' ]);


, но в место массива получаю исключение :
EVariantTypeCastError
Could not convert variant of type (Array of variant) into type (Array of variant)

Уже разными способами перепробовал. А в delphi работает такой код.

[Sergei I. Gorelkin]

Что тут подскажешь... Исправлять RTL надо...

[dionic]

ааааа!!!!...


В variant массив даже не добавить просто динамический массив как элемент!!!

[Maxizar]

Хм что то сегодня у всех какие то баги... Обновились чтоль все ??
У меня: Lazarus 0.9.29 SVN: 29368 (по свн это наверное декабрь 2010)
Делаю так:

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Variants;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var VarArray:Variant;
begin

   VarArray:=VarArrayOf([ VarArrayOf([True, 44]), 'ggg' ]);

   if Boolean(VarArray[0][0]) then
     Caption:=IntToStr(Integer(VarArray[0][1]));

   Caption:=Caption+'  '+String(VarArray[1])
end;

end.


В Caption поучаем надпись: 44 ggg
И никаких предупреждений, и уж тем более вылетов программы. Удачи.

[dionic]

Видно у меня старая версия лазаруса, там это ещё не исправлено, щас попробую поставить новую может там всё нормально с этим...

Lazarus 0.9.28.2
FPC 2.2.4 i386-win32-win32/win64

[Maxizar]

Да скорее всего... я качаю отсюда, лень собирать из SVN
Если обновление поможет, измените название темы на: Variant массивы [Решено], это помогает при поиске ответов на проблему подобной вашей.

[Mr.Smart]

Народ это к Lazarus вообще никакого отношения не имеет! Это проблема RTL FPC. Так что обсуждать версии Lazarus не имеет смысла!

[dionic]

Ну вон у Maxizar же всё работает на Lazarus 0.9.29 SVN: 29368, или там другой FPC ставится вместе с ним?

[Maxizar]

Mr.Smart - Вы правы. Но dionic использует Lazarus 0.9.28.2 а тот в свою очередь FPC 2.2.4, Я же Lazarus 0.9.29 который компилит при помощи FPC 2.4.2.. Я не думал, что dionic использует такую старую версию, думал наоборот, типа FPC 2.5.1 и по этому выражение: "Обновились чтоль все ??" - Был в этом ключе мол у меня на "Старом" все работает а тут нет... Но оказалось все немного подругому

или там другой FPC ставится вместе с ним?

Да другой. читай пост... Некоторый юзают и Lazarus и FPC собирая и тот и другой из SVN. НО это дело вкуса. Я лично качаю дневные сборки
Для своей Win XP, я качаю вот этот: Lazarus-0.9.29-xxxx-fpc-2.4.2-xxxxx-win32.exe