String в char

[_-Re@l-_]

Ну, вот есть примерно такой код:

var
     I,J:Integer;
     Buf:String;
If Controls[i] Is TEdit Then
            Begin
                  For J:=1 To Length(TEdit(Controls[i]).Text) Do
                  Begin
                        Buf:=Copy(TEdit(Controls[i]).Text,I,1);
                        Case Buf Of

Вот в строке

Case Buf Of

Выдаёт ошибку ordinal type required. Да, я знаю что в case можно юзать Integer и Char. Но вот мне нужно через String. Как строку можно перевести в Char?

[Serge_Bliznykov]

вместо Buf пишите обращение к символу строки

case TEdit(Controls[i]).Text[I] of ...

только, чувствую, Вы неверный алгоритм решения используете... Это что, в case будет 255 вариантов?!!

[_-Re@l-_]

Это что, в case будет 255 вариантов?!!

Нет, их там 34.Не спрашивайте почему, долго объяснять.

[Sanprof]

есть такая функция стандартная function PChar(S: String): PChar;