Обычная задачка

← →
Бандерас (2005-11-25 21:53) [0]

На входе имеется обычная строка символов:
abcdefghij

Каждой букве соответствует цифра, т.е. :
a=1 b=2 c=3 d=4 e=5 f=6 g=7 h=8 i=9 j=0

Как на выходе получить строку из цифр?
Буквы не обязательно идут по порядку и могут повторяться, к примеру:
На входе: cdeffghijc
На выходе должно быть: 3456678903

Туплю жестко, вроде ничего сложного, а не догоняю ... ПОМОГИТЕ PLS !

← →
Eraser © (2005-11-25 22:14) [1]

> Бандерас (25.11.05 21:53)

> Туплю жестко, вроде ничего сложного, а не догоняю ... ПОМОГИТЕ
> PLS !

Сочувствую...
А вопрос какой?

← →
function s2n (2005-11-25 22:18) [2]

function s2n(s:string):string; var i:word; begin result:=""; for i:=1 to length(s) do begin if s[i]="j" then result:=result+char(ord(s[i])-58) else result:=result+char(ord(s[i])-48); end; end;
Caption:=s2n("cdeffghijc");

← →
SergProger © (2005-11-25 22:18) [3]

function MyFunc(S: String): String;
var
i, buf: Byte;
begin
Result:="";
For i:=1 to Length(S) do
Result:=Result+IntToStr(Ord(S[i])-96);
end;

← →
Бандерас (2005-11-25 22:22) [4]

> А вопрос какой?

Из файла получаю строку в буквах: например, st:="abcdefghij"

Надо записать в др. файл соответствующую строку в цифрах.

ВНИМАНИЕ ВОПРОС !!!
/////////////КАК ЭТО СДЕЛАТЬ?\\\\\\\\\\\\\\

← →
Бандерас (2005-11-25 22:30) [5]

function s2n и SergProger © !!!!!!!!!
СПАСИБО !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :))))))

ВСЕ ПОЛУЧИЛОСЬ !!!!!!!!!!!!!!!!!!

РАЗОБРАЛСЯ !!!!!!!!!!!!!!

ВСЕМ РЕСПЕКТ !!!!!!!!!!!!!!!!!

Обычная задачка Найти похожие ветки