Замена символов на цифру

[Афанасий[vedma]]

Привет=)
я в memo1 ввожу текст и нажимаю button1 и как сделать так, чтоб латинские буквы заменились на 0, а цифры на 1, а символы(тире, точка, запятая) заменились на 2?

[Serge_Bliznykov]

var s : string;
     i : integer;
begin
   s := memo1.Text;
   for i:=1 to Length(s) do
      if s[i] in ['a'..'z','A'..'Z'] then s[i] := '0'
      else
        if s[i] in ['0'..'9'] then s[i] := '1'
        else
          if s[i] in ['.',',','-'] then s[i] := '2';

   memo1.Text := s;
end.

[Вадим Мошев]

Кстати, я где-то в интернетах читал, что прямая замена символа будет работать не всегда, поскольку строка не является массивом на самом деле. Поэтому тот сайт (не помню, какой) советовал поступать следующим образом:

c - тот символ, на который мы заменямяем
s[i]:= copy (s, ..., ...) + c + copy (s, ...,...)

У функции COPY вместо троеточия стоят порядковые номера символов, где мы режем, заменяем и так далее. Я просто не помню сейчас.

Как вам такой подход? Или то, что напрямую символ заменять нельзя - наглая ложь незнающих людей?

[FaTaL]

Сообщение от Вадим Мошев

Или то, что напрямую символ заменять нельзя - наглая ложь незнающих людей?

Наглая ложь.

[Serge_Bliznykov]

Наглая ложь.

+1 (присоединяюсь)

[Аватар]

Так покрасивше будет

   s := memo1.Text;
   for i:=1 to Length(s) do
      case s[i] of
      'a'..'z','A'..'Z': s[i] := '0';
      '0'..'9':          s[i] := '1';
      '.',',','-':       s[i] := '2';
      end;
   memo1.Text := s;

[Lesha]

Кстати, я где-то в интернетах читал, что прямая замена символа будет работать не всегда, поскольку строка не является массивом на самом деле. Поэтому тот сайт (не помню, какой) советовал поступать следующим образом:

на самом деле строка это массив символов