Вывод названия константы

[Janger]

Проблема в следующем.

const
s1:String='111';
s2:String='222';
s3:String='333';
s4:String='444';
s5:String='555';
s6:String='666';

Далее:

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=s5;
end;

=================================== ==
Вопрос.
Каким образом мне вывести название константы, НЕ сравнивая значение Label1.Caption, со всеми константами поочерёдно...
Я ничего не могу придумать...
подскажите, пожалуйста

[Аватар]

Label2.Caption:='s'+Label1.Caption[1];

Это только для конкретно этого набора имен констант и их значений. Но вообще-то хрень на постном масле

[Janger]

Сообщение от Аватар

Label2.Caption:='s'+Label1.Caption[1];

Это только для конкретно этого набора имен констант и их значений. Но вообще-то хрень на постном масле

Вы меня не поняли...
Как мне получить через ShowMessage(), название константы, которые в данный момент выведено в Label1.Caption.
Название констант и значение в них может быть любым...
И константа присвоенная Label1.Caption может быть тоже любой

[Аватар]

Вы меня не поняли...

Понял, примеры нужно нормальные приводить, а не от балды. Ни как не получить, кроме кучи if then else

[Janger]

Сообщение от Аватар

Понял, примеры нужно нормальные приводить, а не от балды. Ни как не получить, кроме кучи if then else

пример похож на оригинал, процентов так на 80, если не больше

[northener]

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

=================================== ==
Вопрос.
Каким образом мне вывести название константы, НЕ сравнивая значение Label1.Caption, со всеми константами поочерёдно...
Я ничего не могу придумать...
подскажите, пожалуйста

Никак, никоим образом и никогда.
Все "названия" существуют только в исходном тексте файлов pas. После компиляции их уже нет.

[min@y™]

Каким образом мне вывести название константы, НЕ сравнивая значение Label1.Caption, со всеми константами поочерёдно...
Я ничего не могу придумать...

А зачем, собственно? Для чего тебе имена констант? Как ты их планируешь использовать на практике?

[Janger]

Сообщение от min@y™

А зачем, собственно? Для чего тебе имена констант? Как ты их планируешь использовать на практике?

я планировал сохранять название константы в ini-файле, и при следующем открытии программы, что бы при create открывалась именно та константа, которую я и запомнил

[Аватар]

что бы при create открывалась именно та константа, которую я и запомнил

Не получится даже если запомнишь имя константы. Запоминай значение, его и восстанавливай

[Poma][a]

Можно сделать нечто вроде этого..

const
   a : array [0..1] of record
      value : Integer;
      name : string
   end = ((value:5; name:'five'), (value:6; name:'six'));

var
   smt, i : Integer;

begin
   smt := 5;
   for i := Low(a) to High(a) do
      if a[i].value = smt then begin WriteLn(a[i].name); Break end
end.