Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Вниз

Dynamic Array   Найти похожие ветки 

← →
Digitman   (2001-12-07 11:16) [3]


type
TMyOpenArray = array of string;

procedure FileFormat(f_name : string; var ExtEr : TMyOpenArray ; var rsm
: integer);
var
.....
begin
........
rsm := <новое значение>;
SetLength(ExtEr,rsm);
end;


---

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

Форум: "Базы";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.008 c