Строку в константу

[Janger]

Вот такая ситуация,

const
S1 := 'Делфи';
----------------------
{Где то в коде ...}
For i:=1 to 1 do
Memo1.Text := 's'+IntToStr(I);

В общем, я не понимаю, как дать понять Delphi, что я хочу не какие то данные передать в Memo, а именно назначить константу... Потому что, memo мне выдаёт 's1',а мне бы хотелось увидеть значение константы s1
У меня вообще мыслей нету, подскажите...
Спасибо

[Аватар]

Массив констант

[type_Oleg]

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

.. как дать понять Delphi..

Не знаю, как Delphi, но я ничего не понял.
Вот например, какой смысл у этого

For i:=1 to 1 do
Memo1.Text := 's'+IntToStr(I);

Это же то же, что

Memo1.Text := 's1';

Я не вижу связи между именем константы, и её значением. Эту связь только компилятор видит.

[Janger]

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

Не знаю, как Delphi, но я ничего не понял.
Вот например, какой смысл у этого

For i:=1 to 1 do
Memo1.Text := 's'+IntToStr(I);

Это же то же, что

Memo1.Text := 's1';

Я не вижу связи между именем константы, и её значением. Эту связь только компилятор видит.

Ну вот смотрите, я в мемо передаю строку, а я хочу, что бы компилятор, понял что эта строка является константой, и в мемо выдал значение этой константы

[Аватар]

const s: array[1..2] of String = ('Делфи','Delphi');

  for i:=1 to 2 do Memo1.Lines.Add(s[i]);

Ну вот смотрите, я в мемо передаю строку, а я хочу, что бы компилятор, понял что эта строка является константой, и в мемо выдал значение этой константы

Если бы делфи интерпретатором был, тогда мог бы как ТС хочет. А так только имя

[саша40]

Она и выдаст строку "s1". Ты строку "s" cовмещаешь со строкой, которая выдает функция IntToStr. Чтобы компьютер понял, что надо передать константу надо было просто написать:

Memo1.Text:=S1;

Если тебе надо таких значений много, то заведи массив из строк.
Код примерно такой:

var
S: array [1..сколько-то там] of String = ['Delphi', ...];

begin
...
for i:=1 to Length(S) do 
Memo1.Text:=S[i] + #10#13; //каждое значение на новой строке
end;