Регистр

@less11 · Регистрация: 17.02.2016

Author24 — интернет-сервис помощи студентам

помогите, пожалуйста, возникла такая проблема - имеется поле DBEdit, в которое вводится ФИО, нужно чтобы каждая буква была заглавной. Вот как это реализовалось:

Delphi

procedure form1.DBEdit2Change(Sender: TObject); 
var
  S : TCaption;
  P, K : Integer;
begin
  if Length(DBEdit2.Text) > 0 then begin
    P := DBEdit2.SelStart;
    S := AnsiUppercase(DBEdit2.Text[1]) + Copy(DBEdit2.Text, 2, 255);
    K := PosEx(' ' , S);
    while K > 0 do begin
      if Length(S) > K then
        S[K+1] := AnsiUppercase(S[K+1])[1];
      Inc(K);
      K := PosEx(' ', S, K);
    end;
    DBEdit2.Text := S;
    DBEdit2.SelStart := P;
  end;

но если фамилия двойная, т.е. содержит "-" (тире), как дополнить код?

@ZfoxAK · 02.05.2017, 06:58

Сообщение от less11

нужно чтобы каждая буква была заглавной.

Delphi

1	DBEdit1.Text:= AnsiUppercase(DBEdit1.Text);

Новые блоги и статьи
[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .

	02.05.2017, 06:58