Вниз
Скачать: CL | DM;

Странно но факт. помогите понять   Найти похожие ветки 

← →
Fantasy ©   (2007-03-14 02:36) [0]


type
 TA = packed record
   TArray             : array[0..255] of Char;
 end;
 PA = ^TA;

type
 TB = packed record
   TArray             : array[0..255] of Char;
 end;
 PB = ^TB;

var
 AArray : TB;
 BArray : TA;

begin
AArray.TArray :=  BArray.TArray;//???? ошибка Incompatible types


почему ????


← →
Германн ©   (2007-03-14 02:40) [1]


> почему ????
>

Потому что для компиллятора это разные типы.


← →
Fantasy ©   (2007-03-14 02:41) [2]

А как присвоить ?


← →
Fantasy ©   (2007-03-14 02:43) [3]

если String то присвоит!
как присвоить?


← →
Fantasy ©   (2007-03-14 02:46) [4]

все сам же ответил
спосибо всем.

type
Array255 = array [0..255] of char;

type
TA = packed record
  TArray             : Array255;
end;
PA = ^TA;

type
TB = packed record
  TArray             : Array255;
end;
PB = ^TB;

var
AArray : TB;
BArray : TA;

begin
AArray.TArray :=  BArray.TArray;


← →
Германн ©   (2007-03-14 02:58) [5]


> Fantasy ©   (14.03.07 02:46) [4]
>
> все сам же ответил
> спосибо всем.
>

Поздравляю. Без всякого юмора, поздравляю!
Правильное решение, да ещё так быстро.
Но вот ещё раз приходится напоминать про "орфографию" :(



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
1-1170838732
Medved_
2007-02-07 11:58
2007.04.01
OpenDir


2-1173449425
DelphiLexx
2007-03-09 17:10
2007.04.01
Как создать глобальную переменную


2-1173855818
koha
2007-03-14 10:03
2007.04.01
какой функцией можно отличить съемный диск от не съемного


15-1173259611
Kok
2007-03-07 12:26
2007.04.01
8 марта близко, близко....


4-1163501617
novill
2006-11-14 13:53
2007.04.01
Как программно нажать (Num,Caps,Scroll)Lock?




   Наверх