Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 187565
09.10.2013, 07:44
85.34 руб.
0 8 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос: В ComboBox грузится список людей, мне требуется из полной ФИО (Иванов Иван Иваныч) получить в Edit Иванов И.И.. Подскажите как лучше организовать такое.
Код:
var s : String;
    i : integer;
begin
  s := ComboBox2.Text;

  Edit1.Text := '???';
end;

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
09.10.2013, 11:06
общий
Адресаты:
Попробуйте этот код:
Код:
function f(a:string):string;
  var
    b:string;
  begin
    b:=copy(a,1,pos(' ',a));
    delete(a,1,pos(' ',a));
    b:=b+a[1]+'.';
    delete(a,1,pos(' ',a));
    f:=b+a[1]+'.';
  end;
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Владимир
Посетитель
352040
133
09.10.2013, 11:26
общий
Адресаты:
А можно подробнее? Как мне с этой функцией работать.
Об авторе:
Пользуюсь Delphi Enterprise Version7.
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
09.10.2013, 11:34
общий
Адресаты:
Код:
Edit1.Text := f(ComboBox2.Text);
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Владимир
Посетитель
352040
133
09.10.2013, 11:43
общий
Адресаты:
Благодарю. То что нужно. Тему можно закрывать.
Об авторе:
Пользуюсь Delphi Enterprise Version7.
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
09.10.2013, 11:48
общий
это ответ
Здравствуйте, Владимир!

Используйте следующий код:
Код:
function f(a:string):string;
  var
    b:string;
  begin
    b:=copy(a,1,pos(' ',a));
    delete(a,1,pos(' ',a));
    b:=b+a[1]+'.';
    delete(a,1,pos(' ',a));
    f:=b+a[1]+'.';
  end;

Вызов:
Код:
Edit1.Text := f(ComboBox2.Text);

Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
09.10.2013, 11:50
общий
Адресаты:
Небольшое добавление.
В XE4 и выше нумерация элементов строк начинается с нуля, а не с единицы. Поэтому вместо a[1] лучше написать a[Low(a)]
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
09.10.2013, 12:14
общий
Спасибо будут знать.
У меня D6 - всё правильно сделал.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Владимир
Посетитель
352040
133
09.10.2013, 12:34
общий
Спасибо Владимир. Учтем. У меня D7, так что все работает.
Об авторе:
Пользуюсь Delphi Enterprise Version7.
Форма ответа