Динамические массивы в Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Динамические массивы в Delphi - 2004-07-12 22:53:12
|
|
|
je0n
Сообщений: 126
Оценки: 0
Присоединился: 2004-07-05 23:40:07
|
Мой динамический массив объявлен как выходной параметр в процедуре, но когда использую функцию SetLength в этой процедуре для этого массива, вылазеет какое-то несоответствие типов. Ну и вопрос - в чём ошибка? Может так вообще нельзя делать? А как тогда? Вот та самая процедура.
procedure Finding(path:string; out fuck:array of string);
var f:tsearchrec;
i:integer;
k:integer;
begin
k:=1;
i:=findfirst(path+''*.htm'',faAnyFile,f);
while i=0 do begin
setlength(fuck,k);
if i=0 then fuck[k-1]:=f.Name ;
i:=findnext(f);
k:=k+1;
end;
findclose(f);
end;
|
|
|
|
|
Динамические массивы в Delphi - 2004-07-22 21:39:05
|
|
|
daemon
Сообщений: 2
Оценки: 0
Присоединился: 2004-07-22 21:07:16
|
см это:
type TStrArray = array of string;
procedure Finding(path:string; var fuck: TStrArray);
var f:tsearchrec;
i:integer;
k:integer;
begin
k:=1;
i:=findfirst(path+'*.htm',faAnyFile,f);
while i=0 do begin
setlength(fuck,k);
if i=0 then fuck[k-1]:=f.Name ;
i:=findnext(f);
k:=k+1;
end;
findclose(f);
end;
|
|
|
|
|
|
