Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2012, 09:33   #1
SovereignSun
Форумчанин
 
Регистрация: 22.11.2011
Сообщений: 127
Сообщение Редактирование String

Чето я туплю страшно, но не могу сообразить как простую задачу решить.
Предположим в Edit1 вбивается Ф.И.О полностью, через пробел, как можно в отдельную переменную кинуть значение этого поля с сокращенным И.О, а фамилию оставить не тронутой.. так чтобы от имени осталась одна Буква заглавная и от Отчества, separator=. ?
SovereignSun вне форума Ответить с цитированием
Старый 13.04.2012, 09:39   #2
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

писал свое время для отчета на Pacale Fastreport-овском в Delphi тоже должен работать
Код:
Function GetFIOFromFamNamOth(s:string):string;
var x:integer;
    s2:string;
    Family:string;
    name1:string;
    name2:string;
begin
   Family:='';name1:='';name2:='';
   for x:=1 to length(s) do
     if (s[x] = ' ') or (x=length(s)) then begin if Family='' then Family:=s2
     else if name1='' then name1:=s2
     else name2:=s2;
       s2:='';
     end
     else s2:=s2+s[x];
     if (Family<>'') and (name1<>'') and (name2<>'') then
     result:=Family+' '+name1[1]+'. '+name2[1]+'.'
     else
     if (Family<>'') and (name1<>'')  then   result:=s;

end;
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Старый 13.04.2012, 09:42   #3
SovereignSun
Форумчанин
 
Регистрация: 22.11.2011
Сообщений: 127
По умолчанию

это все для одного Edit? Просто вроде функция простая, можно вопрос, а где он определяет здесь что является фамилией, что именем, а что отчеством?
SovereignSun вне форума Ответить с цитированием
Старый 13.04.2012, 09:48   #4
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
Радость

Цитата:
Сообщение от SovereignSun Посмотреть сообщение
это все для одного Edit? Просто вроде функция простая, можно вопрос, а где он определяет здесь что является фамилией, что именем, а что отчеством?
Код:
    Family:string; // фамилия
    name1:string; // имя
    name2:string; // отчество
входная строка
Фамилия Имя Отчество
Выходная строка
Фамилия И. О.

возможно у Microsoft-a что то есть на эту тему в Word же как то это делает
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Старый 13.04.2012, 09:49   #5
SovereignSun
Форумчанин
 
Регистрация: 22.11.2011
Сообщений: 127
По умолчанию

Понял.. Спасибо.
SovereignSun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
string-char-wchar_t-char-string чето потерял magog7 Общие вопросы C/C++ 0 08.08.2011 20:21
Редактирование БД son_of_koshi Помощь студентам 5 05.08.2010 11:31
String большого размера, более 255 String[255] bitSoft Общие вопросы Delphi 9 28.03.2010 19:45
Как получить адрес String строки или преобразовать String madboy4ik Общие вопросы по Java, Java SE, Kotlin 6 15.01.2010 11:57
Редактирование AntiZero Помощь студентам 2 12.11.2007 18:02