Любая буква

[Lich]

stringreplace(good,'Test'+bykva,myt ext,[rfReplaceAll, rfIgnoreCase]);
Вместо буква нужно чтобы при каждом обращении проверялись все буквы русского или англ. алфавита...Можно конечно сделать так:
stringreplace(good,'Test'+'a',mytex t,[rfReplaceAll, rfIgnoreCase]);
stringreplace(good,'Test'+'б',mytex t,[rfReplaceAll, rfIgnoreCase]);
...
Но может есть проще вариант ?!

[Toxa]

есть
a,b:integer
for i:=a to b do
stringreplace(good,'Test'+char(i),m ytext,[rfReplaceAll, rfIgnoreCase]);

где a код первой буквы алфавита, а b - код последней
и остается перевести "i" в букву, вроде char подходит но я не помню точно

[Lich]

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

есть
a,b:integer
for i:=a to b do
stringreplace(good,'Test'+char(i),m ytext,[rfReplaceAll, rfIgnoreCase]);

где a код первой буквы алфавита, а b - код последней
и остается перевести "i" в букву, вроде char подходит но я не помню точно

Спасибо, чет я не догнал тогда. Все правильно чар переводит