Посимвольное чтение полей DBGrid в Editы

[DelphiError]

Есть несколько АДО-таблиц, поля которых нужно посимвольно записать в эдиты анкеты

[ReportCube]

И это хорошо, когда они есть.

[Stilet]

DelphiError

И в чем сложности? Что не получается?

[DelphiError]

проблема в написании функции, которая бы распределяла по эдитам символы

[Stilet]

Схема общая:

EditТакойТо.Text:=adoТакоеТо.FieldByName('поле').AsString;

[DelphiError]

Нужна функция, которая будет принимать два параметра: имя эдита, с которого начинается запись поля, а второй строка; возможно ли в функции сделать переход на следующий эдит, через вырезку его номера из имени?

[Stilet]

имя эдита, с которого начинается запись поля, а второй строка

Ничего не понял...

[Аватар]

возможно ли в функции сделать переход на следующий эдит, через вырезку его номера из имени

Чего, фамилию по буквам в разные эдиты вводить? Как в бумажной анкете? Прикольно. В принципе можно, используя например Tag эдитов и искать эдиты с нужным значением Tag в Controls. Можно и по имени искать. Или массивы эдитов иметь. Только на фига нужен такой прикол?

[DelphiError]

что-то вроде

function TForm1.Next(str: string; num: string): string;
var i: integer;
    name: integer;
begin
      name := 0;
      for i := 0 to Length(str) do
         begin
            str := copy(str, i, 1);
            ShowMessage(inttostr(name));
            name := name + 1;
            (FindComponent('Edit' + IntToStr(name)) as TEdit).Text := str;
         end;
end;

только выдаёт ошибку с адресами

курсовая "Кадры. Автоматическая анкета 8др" потом эту панель с эдитами еще и распечатать надо как-то

[DelphiError]

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

Ничего не понял...

это параметры функции