Че-то совсем туплю..

← →
Steep © (2007-04-09 14:54) [0]

procedure RegSaveButton(Sender: TObject; Count: integer; Tip: string; ArrayPath: array[0..5] of string);
Пишет [Pascal Error] PanelUnit.pas(68): E2029 "OF" expected but "[" found

что не так??

← →
Джо © (2007-04-09 14:57) [1]

type
TArrayPath = array[0..5] of string;

procedure RegSaveButton (ArrayPath: TArrayPath)

← →
Steep © (2007-04-09 15:21) [2]

блин..
А потом можно задавать сразу пять элементов в Массив? В процедуре?

← →
Джо © (2007-04-09 15:33) [3]

> [2] Steep © (09.04.07 15:21)
> блин..
> А потом можно задавать сразу пять элементов в Массив? В
> процедуре?

Перефразируй.

← →
Steep © (2007-04-09 15:38) [4]

ну т.е. как потом использовать сию конструкцию?

← →
Джо © (2007-04-09 16:13) [5]

> [4] Steep © (09.04.07 15:38)
> ну т.е. как потом использовать сию конструкцию?

То есть как это «как использовать»? Есть проблемы с использованием массивов? Какие именно?

← →
Германн © (2007-04-09 16:36) [6]

<telepator>
Автору нужно что-то типа array of const
</telepator>

← →
Steep © (2007-04-10 07:25) [7]

> type TArrayPath = array[0..5] of string;
> procedure RegSaveButton (ArrayPath: TArrayPath)

ну т.е. просто RegSaveButton("1", "2", "3","4","5");
и всЕ?

ну т.е. просто RegSaveButton("1", "2", "3","4","5");
> и всЕ?

Ну ести так просто работает, то и используй :)

Иначе:

procedure RegSaveButton( Sender: TObject; Count: integer; Tip: string; ArrayPath: array of string ); var i: integer; txt: string; begin if Sender is TForm then begin txt := ""; for i := 0 to High(ArrayPath) do txt := txt + ArrayPath[i] + "\"; TForm(Sender).Caption := txt; end; end; procedure TForm1.Button2Click(Sender: TObject); begin RegSaveButton(Form1, 10, "TypeA", ["1", "2", "3", "4", "5", "6"]); end; procedure TForm1.Button1Click(Sender: TObject); begin RegSaveButton(Form1, 10, "TypeB", ["1", "2"]); end;

На худой конец, можно и заполнить массив:
TArrayPath = array[0..5] of string; ... procedure RegSaveButton(Sender: TObject; Count: integer; Tip: string; ArrayPath: TArrayPath); ... var arr: TArrayPath; begin arr[0] := "1"; ... arr[5] := "6"; RegSaveButton(Form1, 10, "TypeA", arr);

> if Sender is TForm then begin
за это вобще большое спасибо!!
Еще такой маленький вопросик sender - там указывается (как бы это правильней сказать...) только классы T...
т.е. можно ловить и обрабатывать отдельно от Кнопки (TButton.click) и например Листбокса (TListBox.Click)
Правильно я мыслю?

Че-то совсем туплю.. Найти похожие ветки