Процедура с параметром динамическим массивом.

[VintProg]

Привет всем, возник такой вопрос вот код:

function Ks(C :  array of string): integer;
begin
  kS := SizeOf(C);
end;

Беда такая вожу строку:

Button1.Caption := IntToStr(Ks(['20040']));

а она возвращает 4 - байта, а хотя тут 5 - байт,
как исправить это?

[Serge_Bliznykov]

SizeOf возвращает размер, занимаемый в памяти переменной
в данном случае C - это указатель (pointer), в Win32 он занимает 4 байта.
Так что, всё правильно!

а что Вы хотите определить Вашим кодом?!
Сколько в массиве элементов?
это можно сделать так

High(c)- Low(c) + 1

если же, Вам зачем то понадобилась суммарная длина всех строк, то суммируйте её в цикле:

KC := 0;
 for i:=Low(c) to High(c) do
   KC := KC + Length(c[i]);

ДОБАВЛЕНО.
Кстати, то, как Вы вызываете, это не 5 элементов массива, а ОДИН!
чтобы в массиве было 5 элементов,
надо так:
Button1.Caption := IntToStr(Ks(['20040','2222','333','4','555']));

[VintProg]

Serge_Bliznykov
Спасибо большое, я что то про String забыл что это указатель.

[VintProg]

Вот еще проблема объявляю тип:

type
 CHJ = array of string;

function Ks(C :  CHJ): integer;
begin
  kS := SizeOf(C);
end;

и это не работает:

Button1.Caption := IntToStr(Ks(['234']) );

почему?

[Stilet]

function Ks(C : array of string): integer;
Иначе ошибку получишь. В Паскалевских языках с типами строго

[VintProg]

Stilet
Понял, Спасибо.

[Sibedir]

2 Stilet
А почему при

type
 CHJ = array of string;
Код:

function Ks(C :  CHJ): integer;
begin
...
end;

Ks(['234']) - не работает.
Это же вроде тот же самый тип.

-----------------------------------------------
А-а-а, сам допетрил.
['234'] = это же константа array [1..1] of string

[VintProg]

Sibedir
Значит тип CHJ надо как-то по другому определить?

[Stilet]

Это же вроде тот же самый тип.

В том то и дело что это уже другой тип, раз ты его явно обьявил. Это теперь тип CHJ а не Array...

А-а-а, сам допетрил.
['234'] = это же константа array [1..1] of string

Нет. Константы тут ни при чем

Значит тип CHJ надо как-то по другому определить?

Смотря что ты хочешь сделать.

[VintProg]

Смотря что ты хочешь сделать.

Хочу чтобы можно было записивыть вот так:
с таким типом CHJ.

Button1.Caption := IntToStr(Ks(['234']) );