[Himera_3]

Дорогие ребята и милые девушки помогите с проблемкой!!!!
Нужно ввести в Эдит слово из букв и только!
Присвойть им определенное числовое значение и вывести в той же порядочности в которой вводились буквы!!!

За рание огроммное спосибо!!!!

[neutro]

C выводом только букв ясно, только вот не понял, ты хочешь зашифровать буквы в цифры, а потом обратно?

if (ord(edit1.text[length(edit1.text)]) > 47) or (ord(edit1.text[length(edit1.text)]) < 58) then \\если символ цифра то...

[NIch]

короче ты хочешь, чтобы все буквы стали цифрами???

Код:

var
 s, s1, s2 : string;
begin
 s := edit.text;//s приравнивается содержимому едита
 s1 := '';
 s2 := '';
 for i :=0 to length(s)-1 do begin//от нуля до конца едита
  s[i] := s1;//переменной приравниваем итый символ строки
  s1 := IntToStr(Ord(s1));//символ переменной переделать в его цифровой код
  s2 := s2+s1;//к новой строке прибавить новый символ
 end;
 edit.text := s2;//едиту присваеваем новую строку
end;

Код можно оптимизировать, но для начала мыслительного процесса начало есть...