Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Массивы и передача параметров...   Найти похожие ветки 

← →
ArtemESC ©   (2006-09-29 20:46) [0]

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

---

← →
Palladin ©   (2006-09-29 20:53) [1]

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

---

← →
Джо ©   (2006-09-29 21:01) [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;


---

← →
ArtemESC ©   (2006-09-29 21:10) [3]

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

---

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

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.048 c