Приведение TComponentName к String

[cherw9!40k]

Хотел сделать нечто подобное

procedure TForm1.LoadZakExecute(Sender: TObject);
var S:String;
begin
S:=(Sender as TMenuItem).Name; // <- Здесь не работает
Delete(S,0,3);
ComboBox1.Text:=ListZak[StrToInt(S)];
BeginLoad.Execute;
end;

Не получилось. Очень нужно извлечь имя вызывающего данное событие меню TMenuItem, которые создавались динамически и все ссылались на этот обработчик. Как быть?

[mihali4]

Код нужно оформлять по правилам!

Что это за процедура? Каким образом она вызывается?
Если вы ее вызываете по клику на итемсе меню, то и передавайте в нее в качестве параметра сендер из обработчика клика.

[cherw9!40k]

Что это за процедура?

Считывает имя вызывающего меню. Удаляет первые три символа в строковой переменной, куда считалось. Таким образом остается только номер. Примеры имен: Zak1, Zak2,..., Zak15.

Если вы ее вызываете по клику на итемсе меню

Да

то и передавайте в нее в качестве параметра сендер из обработчика клика.

А я разве не так сделал?

Мне надо значение параметра Name передать в строковую переменную.

[quit]

Может Вы это имели ввиду

TMenuItem(Sender).Caption

[cherw9!40k]

Сообщение от quit

Может Вы это имели ввиду

TMenuItem(Sender).Caption

Там Caption другую информацию содержит. Мне Name нужно.

[Utkin]

Попробуйте вместо

S:=(Sender as TMenuItem).Name;

использовать

S:=(Sender as TObject).Name;

[cherw9!40k]

использовать
Код:


S:=(Sender as TObject).Name;

Так, вообще, нельзя - он выдает ошибку при компиляции.

[Utkin]

Загнался .
Вот пример из Дельфи:

procedure TForm1.Button1Click(Sender: TObject);
var

  I: Integer;
begin
  for I := 0 to Form1.ComponentCount-1 do
    ListBox1.Items.InsertObject(0, Form1.Components[I].Name, 
                                Form1.Components[I] as TObject);
end;

[mihali4]

А я разве не так сделал?

Видимо, не так...

procedure TForm1.N2Click(Sender: TObject);
begin
MyProc(Sender);
end;

procedure TForm1.MyProc(Sender: TObject);
begin
Label1.Caption:=(Sender as TMenuItem).Name;
end;

[Serge_Bliznykov]

1) в строке символы считаются от единицы, поэтому:

Delete(s,1,4);

2) прежде, чем делать StrToInt я бы проверил, что в строке остались именно циферки.. (это можно сделать кучей способов, как через банальный VAL(), так и через try .. except ...