Объявление константы в delphi.

[daitro]

Есть некая константа типа string с одним (или несколькими) алфавитами. Можно ли както обьявить её, прибегая к функции ord например, т.е. без вбивания кучи буковок?
Заранее спасибо.

[BDA]

Константу вы обязаны создать до выполнения программы.
Создайте переменную, и заполните ее, как нужно, в событии OnCreate формы.
Можно так же быстренько написать программу, которая сгенерирует требуемую строку, и вставить ее в свой проект.

[daitro]

Более точнее...

Есть такая процедура:

  procedure br(const s,d:string; k:integer);
  var i:integer;
  begin
    for i:=1 to length(s) do
    if Length(d)<k then br(s,d+s[i],k) else viv(d+s[i]);
  end;

Вызываю я её так:

...
const s='ABCDEFGHJKLMNOPQRSTUVWXYZabcdefghjklmnopqrstuvwxyz01234567890';
begin
   j:=Length(edt1.text);
   for i:=0 to j-1 do br(s,'',i);
...

т.о. если создавать подпрограмму для генерации строки я делаю константу - переменной, что ломает поцедуру.
как быть?

[BDA]

var
	form1:tform1;
	s:string;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
	s:='ABCDEFGHJKLMNOPQRSTUVWXYZabcdefghjklmnopqrstuvwxyz01234567890';//делать со строкой все, что нужно
end;		
	
procedure br(const s,d:string; k:integer);
  var i:integer;
  begin
    for i:=1 to length(s) do
    if Length(d)<k then br(s,d+s[i],k) else viv(d+s[i]);
  end;
  
procedure TForm1.Button1Click(Sender: TObject);
begin
	j:=Length(edt1.text);
	for i:=0 to j-1 do br(s,'',i);
end;

[OFFTOP]Поздравляю с первым сообщением [/OFFTOP]

[daitro]

BDA спасибо, разобрался.