[Ужос] PChar(PChar(ptr^)^)^ := PChar(b^.ptr)^

p.S. Ниасилил.

А зачем же тогда усложнять так? :)

>> PChar(PChar(ptr^)^)^ := PChar(b^.ptr)^

Если я правильно вспоминаю, то ptr^ не имеет смысла. Это примерно то же самое, что в C:

void *ptr;
*ptr = 123; /* OH SHI-! */

* (char*) * (char*) * ptr = * (char*) b->ptr;

если я, конечно, не забыл Delphi.

Из первопоста:

>> здесь ptr и b.ptr - типа Pointer

Pointer - это просто указатель на какие-то нетипизированные данные, аналогично void*.

В Си вместо PChar был бы void *. Можно сделать аналогичный финт ушами в Си через union'ы с полями разных типов: присвоить через одно поле, использовать через другое. Поля накладываются на одну область памяти, поэтому получается неявное приведение типов.

чтобы распарсить, раскручивай назад отдельно левую и правую часть: y^ {паскаль, y - это указатель} = (*y) /*си*/

PChar (x)^ {pas} = f(x) = ( * ( (char*) x) ) /*ñè*/ PChar(PChar (ptr^)^ )^ =f(f(ptr^)) = (* ( (char*) ( (* ( (char*) (*ptr) )) ) ) ) PChar( b^.ptr )^ = f( b^.ptr) = (* ( (char*) (b->ptr) ))

буквальный аналог в Си:

X *ptr; X x; * ( (char*) ( (void *) (ptr) ) ) = 'c' ; /* был указатель типа Х, стал указатель на char, приведённый через void, присвоили значение как union, затёрли первый байт этого типа */

или сравни с * ( (char*) ( (void*) &x ) ) = 'Y' ; /* аналогично union { X xv; char cv;} ux; ux.cv = 'Y'; some_func ( ux.xv ); ... */

От скобок рябит в глазах, через union {..} T; T* p->cv, p-> xv читается проще.

вместо Pointer был бы (void *), конечно. Вместо PChar(x)^:='c' был бы (* ( (char*) x )) = 'c', конечно. В том смысле, как указатели непонятного типа приводятся к (char*)

PChar (x)^ {pas} = f(x) = ( * ( (char*) x) ) /*си*/
PChar(PChar (ptr^)^ )^ =f(f(ptr^)) = (* ( (char*) ( (* ( (char*) (*ptr)  )) ) ) )
PChar( b^.ptr )^ = f( b^.ptr) = (* ( (char*) (b->ptr) ))


форматирование, блин...

Мсью любит все усложнять? *(char*)p = 'c'; Работает.