Delphi vs C++ , Часть 1

Цитата Бобёр @ 10.10.07, 12:37

можно ещё массив void* затолкнуть (или как бишь оно в дельфях зовётся то.. LPVOID или как то так?..)

там есть pointer, но я не уверен, что его можно к любому другому указателю привести.

Цитата Allexx @ 10.10.07, 12:42

там есть pointer, но я не уверен, что его можно к любому другому указателю привести.

хе. в дельфе всё мона ко всему привести. Если есть желание...

Цитата

array of const,

а что, если у тебя пятый парамет строка, а десятый - число?.. как они уживутся в одном массиве?..

Цитата

хе. в дельфе всё мона ко всему привести. Если есть желание...

в сях то тоже, reinterpret_cast ещё никто не отменял, но лучше его использовать очень-очень-очень острожно.

Цитата jack128 @ 10.10.07, 12:55

хе. в дельфе всё мона ко всему привести. Если есть желание...

Ну.. интереса ради, а так можно:

int a

((char*)&a)[1]=1;

Цитата Бобёр @ 10.10.07, 13:01

а что, если у тебя пятый парамет строка, а десятый - число?.. как они уживутся в одном массиве?..

В чем проблема? Передается ведь адрес! Но в отличие от указателя, тип каждого такого параметра можно узнать во время исполнения.

Цитата Бобёр @ 10.10.07, 13:01

а что, если у тебя пятый парамет строка, а десятый - число?.. как они уживутся в одном массиве?..

легко и непренужденно. фактически компилятор создает массив структур, аналогичных com'овскому Variant'у и передаёт их в процедуру..

Цитата Allexx @ 10.10.07, 13:07

int a

((char*)&a)[1]=1;

Если я правельно понял ты во втротой байт int'а единицу записал?

Ну если дословно переводить, то так:

var
  a: Integer;
begin
  PChar(@a)[1] := chr(1);
end;

но более наглядно:

type  // этот тип объявлен в одном из стандартных модудей дельфи
  LongRec = packed record
    case Integer of
      0: (Lo, Hi: Word);
      1: (Words: array [0..1] of Word);
      2: (Bytes: array [0..3] of Byte);
  end;
 
var
  a: Integer;
begin
  LongRec(a).Bytes[1] := 1;
end;

jack128 ну.. 2й метод -- явная проктология. А насчёт первого, если PChar, естественный тип (не класс), то я смотрю, у вас не так всё запущено

Цитата Allexx @ 10.10.07, 14:03

2й метод -- явная проктология.

Это еще почему???

Цитата Allexx @ 10.10.07, 14:03

А насчёт первого, если PChar, естественный тип (не класс),

Ну в данном случае именно Pchar - обарабатывается особым образом.

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

type
  PByteArray = ^TByteArray;
  TByteArray = array[0..MaxInt-1] of byte;
 
 
PByteArray(@a)[1] := 1;

Цитата Alex Forth @ 10.10.07, 11:39

Так значит в Паскале можно хотябы обьявить процедуру с переменным числом параметров?

нет. writeln формально(по стандарту паскаля) является процедурой, но на деле это что-то вроде оператора языка.

нетипизированный объект - это такая специфическая, тормозная и потенциально глючная штука. Внутри это структура, содержащая два поля - тип объекта(байт) и собственно значение(4 байта). Соответсвенно, все, что больше 4 байт(например, число с плавающей точкой двойной точности, в терминологии C - double), хранится в виде указателя. В паскале это проходит - там все объекты создаются в куче. Естественно, ни о какой производиетльности при таком подходе говорить не приходится.

Цитата trainer @ 10.10.07, 14:40

по стандарту паскаля

где можно почитать?

Цитата daevaorn @ 10.10.07, 14:49

где можно почитать?

поищи сам. Их два:
ISO 7185:1990 Pascal
ISO 10206:1990 Extended Pascal

Цитата Бобёр

сам то ты можешь создать процедуру с переменным числом параметров?

Цитата Alex Forth

На паскале не могу.

Ну не моги и дальше

program Hello;
  procedure printf (str:pchar);overload;cdecl; external 'msvcrt.dll';
  procedure printf (str:pchar;val:integer);overload;cdecl; external 'msvcrt.dll';
const n = #$A#$D;
begin
   printf ('Hello, wtf?'+n);
   printf ('The hex code is: %x '+n, $12345678);
end.

Цитата trainer

Естественно, ни о какой производиетльности при таком подходе говорить не приходится.

О да, особенно с таким неоптимизирующим компилятором!

   mov         eax,000401628
   call       .000401570  
   push        00040208C  
   call        printf ;msvcrt
   pop         ecx
   push        012345678
   push        00040209C
   call        printf ;msvcrt
   add         esp,008
   call       .0004012CC

IntelC++ наверно лучше бы оформил?

Сообщение отредактировано: N0P - 10.10.07, 15:34

Цитата

аналогичных com'овскому Variant'

а, ну ещё наверное можно использовать ещё сам VARIANT

Цитата N0P @ 10.10.07, 14:54

Цитата Бобёр

сам то ты можешь создать процедуру с переменным числом параметров?

Цитата Alex Forth

На паскале не могу.

Ну не моги и дальше

program Hello;
  procedure printf (str:pchar);overload;cdecl; external 'msvcrt.dll';
  procedure printf (str:pchar;val:integer);overload;cdecl; external 'msvcrt.dll';
const n = #$A#$D;
begin
   printf ('Hello, wtf?'+n);
   printf ('The hex code is: %x '+n, $12345678);
end.

А ты "создание процедуры" не попутал с "вызовом процедуры" ?

Цитата N0P @ 10.10.07, 14:54

program Hello;
  procedure printf (str:pchar);overload;cdecl; external 'msvcrt.dll';
  procedure printf (str:pchar;val:integer);overload;cdecl; external 'msvcrt.dll';
const n = #$A#$D;
begin
   printf ('Hello, wtf?'+n);
   printf ('The hex code is: %x '+n, $12345678);
end.

А могу я на этих декларациях сделать третий вызов

printf('a=%u, b=%g, c=%p', a,b,c);