Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi screenshot https://www.cyberforum.ru/ delphi-beginners/ thread237981.html
Как можно получить скриншот экрана программно? Как можно получить видео с экрана? Как забиндить на это клавишу?
Открытие ссылок в браузере по умолчанию Delphi
Помогите пожалуйста, при нажатии на ссылку в компоненте Webbrowser открывается IE, но мне необходимо что бы открывался браузер по умолчнию. Искал в гугле там было что то про ShellExecute, но можно ли увидеть конкретный код?
Delphi Генерация пароля путем перебора символов Помогите плиз я новенький, у мну нехватает еше мозга! Как сделать цыкл который бы генерировал все возможные пароли в переменную длина пароля от 4 до 16 символов. Типа так... procedure TForm1.KnVzlomaClick(Sender: TObject); begin //////здеся начяло цыкла .......... ............... ............. https://www.cyberforum.ru/ delphi-beginners/ thread237958.html Delphi Координатная сетка https://www.cyberforum.ru/ delphi-beginners/ thread237929.html
"Построить оцифрованную координатную сетку на форме. И при щелчке мыши в любой точке этой сетки в Label выводить ее координаты". Так звучит задание. Саму сетку построила, разобралась как и что. Но возникли небольшие проблемы с выведением координат этой сетки. Могу вывести координаты самой формы. Но как координаты сетки вывести, никак не соображу. Буду благодарна, если кто поможет, или поделится...
Дан текст из k символов. Вывести на экран только строчные русские буквы, входящие в этот текст. Delphi
Помогите пожалуйста написать программу Дан текст из k символов. Вывести на экран только строчные русские буквы, входящие в этот текст. Большое спасибо))
Delphi Антикаптча и сохранение картинки Добрый день, уважаемые форумчане. Проблема с антикаптчей, точнее с ее реализацией. Я использую стандартную функцию для оправки файла на antigate.com: function recognize(filename: string; apikey: string; is_phrase: boolean; is_regsense: boolean; is_numeric: boolean; min_len: integer; max_len: integer): string; var ftype,tmpstr,captcha_id: String; i: integer; http: TIdHTTP; multi:... https://www.cyberforum.ru/ delphi-beginners/ thread237876.html
Delphi Не найти прогу Rose Delphi Link https://www.cyberforum.ru/ delphi-beginners/ thread237873.html
Может кто-нить кинет рабочую ссылку на дистрибутив проги Rose Delphi Link? а то в инете кроме битых ссылок ниче не нашел((( Добавлено через 1 час 16 минут прога очень нужна(((
Сортировка массивов различными методами Delphi
Сортировка массивов различными методами
Delphi Умножение многочленов!Он перемножает только коэффициенты с одинаковыми степенями,это неправильн...Найдите ошибку unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread237864.html Delphi Добавление вкладок на PageControl Здравствуйте! Мне необходимо добавить вкладку на PageControl, и с эти впринципе проблем нет. Но я не могу добавить на созданные вкладки элементы. Ниже представлен код: begin TabSheet1:= TTabSheet.Create(Self); TabSheet1.Caption := 'Page'; TabSheet1.PageControl := PageControl2; WebBrowser1:= TWebBrowser.Create(self); WebBrowser1.Parent :=TabSheet1; end; Выдает ошибку: Cannot assign to a... https://www.cyberforum.ru/ delphi-beginners/ thread237844.html
Delphi Чётные элементы равны нулю
Задана исходная матрица.Размерность матрицы определяется пользователем при выполнении проэкта.Исходная матрица расположена на первой форме На второй форме отобразить результат.Результатом является вектор, в котором все чётные элементы равны нулю, а все нечетные элементы отображают сумму значений соответствующих нечетных строк в исходной матрице. не подсажете как делать вторую форму!
Delphi openDialog и saveDialog https://www.cyberforum.ru/ delphi-beginners/ thread237775.html
В общем есть программа, она по нажании кнопки выводит исходный список студентов, и по нажатию второй кнопки - фильтрует их (выводит те фамилии, которые начинаются с гласной буквы). Мне в эту программу надо вставить сейвдиалог, чтобы он сохранял то, что находится в стринггрид2 (после фильтрации списка) и опендиалог(чтобы он открывал этот же сохраненный список). Помогите пожалуйста, с диалогами...
13104 / 5885 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
06.02.2011, 01:32 0

Вывести на экран только строчные русские буквы - Delphi - Ответ 1346253

06.02.2011, 01:32. Показов 4550. Ответов 10
Метки (Все метки)

Ответ

В начале, строка S2 имеет нулевую длину, поэтому такой код привёл бы к ошибке:
Delphi
1
S2[j] := S1[i];
Поэтому, предварительно, под S2 была выделена память. Была установлена длина строки S2 равной длине S1. - Т. к. по условию задачи, в S2 может быть переписано максимум Length(S1) символов (если ни одной русской строчной буквы в S1 не окажется).
Без предварительного выделения памяти, код можно переписать так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество строчных русских букв.
  D = ['а'..'п', 'р'..'я', 'ё'];
var
  S1, S2 : String;
  i : Integer;
begin
  S1 := Memo1.Text;
  //Переписываем в S2 только заданные буквы.
  for i := 1 to Length(S1) do 
    if S1[i] in D then S2 := S2 + S1[i];
  
  //Ответ.
  Memo2.Text := S2;
end;
Этот код проще, но зато он по быстродействию сильно уступает первому варианту.

Вернуться к обсуждению:
Вывести на экран только строчные русские буквы Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2011, 01:32
Готовые ответы и решения:

Дан текст из k символов. Вывести на экран только строчные русские буквы, входящие в этот текст.
Помогите пожалуйста написать программу Дан текст из k символов. Вывести на экран только строчные...

Дан текст из k символов. Вывести на экран только строчные русские буквы, входящие в этот текст
Дан текст из k символов. Вывести на экран только строчные русские буквы, входящие в этот текст....

Строки:вывести строчные русские буквы
Дана задача "Дан текст из k символов. Вывести на экран только строчные русские буквы, входящие в...

Напечатать только строчные русские буквы, входящие в текст
3.Дан текст из 60 литер. Напечатать только строчные русские буквы, входящие в этот текст. ...

10
06.02.2011, 01:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2011, 01:32
Помогаю со студенческими работами здесь

Напечатать только строчные русские буквы, входящие в текст
Ребят помогите пожалуйста с задачкой: Дан текст из 60 литер. Напечатать только строчные русские...

Для массива ASCII-символов произвести сортировку, вывести только строчные буквы, прописные преобразовать в строчные
Ввести массив из произвольных ASCII-символов(цикл и 01h) и произвести её сортировку или выборку под...

В алфавитном порядке напечатать только один раз все строчные и прописные русские гласные буквы
Дан текст, за которым следует точка. В алфавитном порядке напечатать только один раз все строчные и...

Вывести все строчные русские согласные звонкие буквы, входящие в текст
создать приложение на языке C#, которое позволит для текста, заданного строкой, вывести в консоль...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru