| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Incompatible types

cobalt ©   (2012-10-03 13:17:00) 

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); - нет ошибки?

---

jack128_   (2012-10-05 10:00:00) [1]

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

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

---

sniknik   (2012-10-04 07:50:00) [2]

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

---

icWasya   (2012-10-03 13:57:00) [3]

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

var
AC:TARColumn;

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

---

MBo   (2012-10-03 13:42:00) [4]

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

---

Наверх