Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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");
и всЕ?

---

← →
ЮЮ ©   (2007-04-10 09:20) [8]

ну т.е. просто 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);


---

← →
Steep ©   (2007-04-10 11:31) [9]

Большое спасибо Джо ©, ЮЮ ©  !!!

---

← →
Steep ©   (2007-04-10 11:37) [10]

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

---

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

Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.045 c