Форум: "Начинающим";
Текущий архив: 2013.04.07;
Скачать: [xml.tar.bz2];

Вниз

Incompatible types   Найти похожие ветки 

← →
cobalt ©   (2012-10-03 13:17) [0]

type
 TRColumn = record
   t: string;
 end;

const
 C_WARE_COLUMNS: array [0..4] of TRColumn = (
   (T: "Код"),
   (T: "Артикул"),
   (T: "Наименование"),
   (T: "Цена"),
   (T: "Остаток")
 );

procedure TForm1.FormCreate(Sender: TObject);
var
 AC: array of TRColumn;

   procedure CopyStatArrToDynArr(var ADest: array of TRColumn; const ASource: array of TRColumn);
   var
     i, len: Integer;
   begin
     len := Length(ASource);
     SetLength(AC, len);
     SetLength(ADest, len);
     len := 0;
     for i := Low(ASource) to High(ASource) do
       begin
         ADest[len] := ASource[i];
         Inc(len);
       end;
   end;
begin
 CopyStatArrToDynArr(AC, C_WARE_COLUMNS);
end;

Кто может пояснить, отчего в коде ошибка Incompatible types в строке SetLength(ADest, len); а на строке SetLength(AC, len); - нет ошибки?

---

← →
MBo ©   (2012-10-03 13:42) [1]

ADest - открытый массив, а не динамический. Предобъяви тип и используй его.

---

← →
icWasya ©   (2012-10-03 13:57) [2]

Вот так
type
 TARColumn = array of TRColumn;

var
AC:TARColumn;

procedure CopyStatArrToDynArr(var ADest: TARColumn; const ASource: array of TRColumn);

---

← →
sniknik ©   (2012-10-04 07:50) [3]

> const
>   C_WARE_COLUMNS: array [0..4] of TRColumn = (
>     (T: "Код"),
>     (T: "Артикул"),
>     (T: "Наименование"),
>     (T: "Цена"),
>     (T: "Остаток")
>   );
не изобретай "велосипед", только время потратишь. или у тебя всего 1 товар?
возьми готовую базу.

---

← →
jack128_   (2012-10-05 10:00) [4]

> sniknik ©   (04.10.12 07:50) [3]

а с чего ты взял, что там нету базы?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.04.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.002 c