Перевод текста с фотографии / изображения | Яндекс Переводчик | Как перевести текст с картинки
Delphi для начинающих. Урок 3. Подсчет символов в тексте
1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...
Delphi 7. InputQuery. Как поменять текст на кнопке "Cancel" и шрифт в окошке.
Form := TForm.Create(Application); with Form do try После "try" добавляем пару новых строчек: Form.Font.Name := 'Comic Sans MS'; // Шрифт Form.Font.Size:= 11; // Размер шрифта Шрифт можете указать любой. Если он не меняется, убедитесь, что вы правильно ввели название. Рекомендую заменить шрифт на Segoe UI или хотя бы Microsoft Sans Serif, поскольку по умолчанию там используется устаревший шероховатый "MS Sans Serif"...