|
Вопрос # 4 335/ вопрос открыт / |
|
Здравствуйте!Уважаемые эксперты!!!
Как отделить инициалы(первые буквы) от полных имен, отчеств введенных по отдельности на DBEditы. Н-р :DBEdit1.Text:='Почтальон',
DBEdit2.Text:='Великович', DBEdit3.Text:='Печкин'. Внизу шаблона-бланка надо выводить: _______(подпись)/П.В.Печкин
 |
Вопрос задал: Файзуллин Газиз Шакирович (статус: Посетитель)
Вопрос отправлен: 16 июня 2010, 16:28
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Вот, набросал тебе функцию на коленке, проверяй.
// Подставляй в параметры S1, S2, S3 соответственно Имя, Отчество и Фамилию.
// Печкина из "Простоквашина", кстати, зовут Игорь Иванович. :)
function GetShortName(const S1, S2, S3: string): string;
begin
Result:= S3;
if S2 <> ''
then Result:= S2[1] + '.' + Result;
if S1 <> ''
then Result:= S1[1] + '.' + Result;
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 16 июня 2010, 16:45
Оценка за ответ: 5
Комментарий к оценке: Спасибо большое,упростил до минимума. получилось отлично:
s1:=DBEdit1.Text;
s2:=DBEdit2.Text;
s3:=DBEdit3.Text;
s1:=s2[1]+'.'+s3[1]+'.'+s1;
Такие простые вещи, целый день голову ломал, спасибо!!!
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 16 июня 2010, 18:05; участников в обсуждении: 2.
|
|
min@y™ (статус: Доктор наук), 16 июня 2010, 17:44 [#1]:
Цитата (Файзуллин Газиз Шакирович):
Спасибо большое,упростил до минимума. получилось отлично:
s1:=DBEdit1.Text;
s2:=DBEdit2.Text;
s3:=DBEdit3.Text;
s1:=s2[1]+'.'+s3[1]+'.'+s1;
Такие простые вещи, целый день голову ломал, спасибо!!!
ОЧЕНЬ плохая идея! Обязательно оставь проверку на пустые строки!!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Файзуллин Газиз Шакирович (статус: Посетитель), 16 июня 2010, 18:05 [#2]:
Понятно, спасибо за замечание!Ну они у меня проверяются перед отправлением в базу данных, а тут после сохранения они пойдут на шаблон Wordа. Спасибо!!!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
