|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Во введенной строке поменять первые буквы каждого слова на прописные
составить текст программы, которая позволяет по введенной строке поменять первые буквы каждого слова на прописные. Вывести на экран символьную строку до и после изменения
|
#2
|
||||
|
||||
Что-то такое
Код:
function ucw(ds:string): string; var i: integer; begin if ds <> '' then for i:= 1 to Length(ds) do if i = 1 then ds[i]:= AnsiUpperCase(ds[i])[1] else if (ds[i] = ' ') and (i+1 < Length(ds)) then ds[i+1]:= AnsiUpperCase(ds[i+1])[1]; ucw:= ds; end; пример использования Код:
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= ucw(Edit1.Text); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |