Четверг, 28.03.2024, 11:41 Приветствую вас Гость | Группа "Гости" 
Меню сайта

Категории раздела
Вирусология [40]
Статьи о вирусах
Системные [1]
Работа с системой
Примеры [45]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Шуточные программы [5]
Пишем шуточные программки
Остальное [6]
Всё что не вошло

Популярные статьи

Недавние темы

Опрос
Каким антивирусом вы пользуетесь?
Всего ответов: 782

Главная » Статьи » Delphi » Примеры

Функции позволяющие получить ФИО
function GetToken(var s:string;const Delimer:char = ' '): string;
var
i:integer;
begin
if s='' then
Result:=''
else
begin
i:=1;
while not (s[i] in [Delimer,#0]) do inc(i);
Result:=copy(s,1,i-1);
Delete(s,1,i);
end;
end;

Function GetFIO(fullname: string): string;
var
sbuf: string;
begin
Result:=GetToken(fullname);
if Result='' then exit;
sbuf:=GetToken(fullname);
if sbuf<>'' then
begin
Result:=Result+' '+sbuf[1]+'.';
sbuf:=GetToken(fullname);
if sbuf<>'' then
Result:=Result+' '+sbuf[1]+'.';
end;
end;
Категория: Примеры | Добавил: dolphin (12.03.2020)
Просмотров: 1056 | Рейтинг: 5.0/1

Всего комментариев: 0
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка
Вирусология, взгляд из Delphi

Статистика
Top.Mail.Ru Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 455
Форум: 1165/8116
Коментариев: 768
Новостей: 29

Статистика пользователей
Всего: 526
За неделю: 3
Вчера: 0
Сегодня: 0
Всего онлайн: 1
Гостей: 1
Пользователей: 0

delphicode.ru © 2008 - 2024 Хостинг от uCoz