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

[Yurk@]

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

[Stilet]

На заметку: Я бы не эдиты использовал а StringGrid

[Аватар]

StringGrid

+1. Даже очень ничего может получится. Для фамилии, например, отдельный грид из одной строки и 20 колонок. Можно еще свой компонент набросать, в котором динамически создается заданное количество эдитов. Или фрэймы использовать. Но грид наверно проще и быстрей всего

[DelphiError]

Всем спасибо за обсуждения и советы. StringGrid не подходит, т.к. это анкета набора кадров на роботу (если видели форма 8 др). Курсовую я уже защитил на 5). А функция должна иметь следующий вид:

function TForm1.Next(strData: string; num: string): string;
var i: integer;
    nameNum: integer;
    buffStr: string;
begin
      nameNum := StrToInt(num);
      for i := 1 to Length(strData) do
         begin
            buffStr := copy(strData, i, 1);
            if (buffStr = '.') then
              begin
                Delete(strData, i, 1);
                buffStr := copy(strData, i, 1);
              end;
            (FindComponent('Edit' + IntToStr(nameNum)) as TEdit).Text := buffStr;
            inc(nameNum);
         end;
end;