| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Массивы и передача параметров...

ArtemESC ©   (2006-09-29 20:46:00) 

Есть функция
TStringArray: String of Array;
function IndexOfString(str: string; arr: TStringArray): integer;
и есть константа-массив (естественно, не динамический), когда передаю его, как параметр в эту функцию возникает ошибка - как этого избежать?

---

ArtemESC   (2006-09-29 21:10:00) [1]

Джо ©   (29.09.06 21:01) [2]
Спасибо. Правда, тогда будут другие ограничения...

---

Джо   (2006-09-29 21:01:00) [2]

Use open arrays ;)

type
 TStringArray = array of string;

const
 Strings: array [0..1] of string =
   (
     '1',
     '2'
   );

procedure Proc (AStrings: array of string);
begin
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 Sa: TStringArray;
begin
 Proc (Strings);
 Proc (Sa);
end;


---

Palladin   (2006-09-29 20:53:00) [3]

заполнить им переменную TStringArray и передать... а еще проще использовать TStringList и не мучать компилятор...

---

Наверх