Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Растяжение memo Как сделать, чтобы при наведении курсора на край memo (только верхний), он принимал форму стрелочки (или crVSplit) и можно было потянуть за этот край, растягивая memo до необходимого размера? Добавлено через 7 часов 14 минут Решил проблему при помощи компонента splitter. https://www.cyberforum.ru/ delphi-beginners/ thread1156212.html	Delphi Комбинации букв в слове Привет! Есть задача Слово до 10 букв. Есть слово замены той же длинны.Побуквенно заменяем строку. Буква слова может меняться или не меняться. Если изменяемая буква в слове не одна, то для неё действуют замены, которые выполняются для ее клонов. Например слово молоко. Заменное слово - пиджак. Буква м может быть м или п.Буква о - буквой о или и или ж или к. Задача: вывести в memo все...
Delphi Исправить ошибки в 3 и 4 юнитах (формах) https://www.cyberforum.ru/ delphi-beginners/ thread1156175.html Исправить ошибки в 3 и 4 юнитах (формах). Заранее спасибо! Архив с заданием и решением прилагается. Прикрепите архив с проектом.	Delphi Люди переведите пожалуйста с С++ https://www.cyberforum.ru/ delphi-beginners/ thread1156163.html #include <iostream> #include <string> #include <list> bool compare_func(const std::string& first, const std::string& second) { return (first.length() < second.length()); } int main()
Delphi Создать меню с командами: Input color, Change, Exit Помогите решить задачу,буду очень благодарен! Заранее спасибо. Создать меню с командами: Input color, Change, Exit, Help. При выборе команды Exit приложение завершает работу. При выборе команды Input color открывается диалоговое окно, содержащее: □три поля ввода типа TEdit с метками Red, Green, Blue; □группу из двух флажков (Left, Right) типа TCheckBox; □кнопку типа...	Delphi Заархивировать БД delphi Подскажите пожалуйста, что мне нужно сделать с БД, чтоб она смогла открыться на др компьютере. Не то чтобы на др компе не было delphi, а просто хотяб чтоб он сам автоматически создавал псевдонимы в BDE admin и не показывал ни каких ошибок! https://www.cyberforum.ru/ delphi-beginners/ thread1156110.html
Delphi Работа с файлами. Как мне вывести вектор в Edit1 чтобы после каждого числа шёл пробел? Как мне вывести вектор в Edit1 чтобы после каждого числа шёл пробел? Ниже процедуры создания вектора и записи его в файл и открытия его procedure TForm2.N2Click(Sender: TObject);//Записать var i:byte; begin randomize; if SaveDialog1.Execute then begin FileName := SaveDialog1.FileName; https://www.cyberforum.ru/ delphi-beginners/ thread1156106.html	Delphi Как переменные H, t, k присвоить в диаграмму (чтобы на ней отображались мои числа)? Ахаха ) как я вас обманул , но тут есть часть правды . Как переменную H,t,k присвоить в диаграмму ? чтобы на Диаграмме отображались мои числа ? (Chart)
Delphi Формульный калькулятор Господа вот есть у меня кальулятор , но , допустим синус о считает : сначала вписываем число (радианы) а потом только жмем кнопку синуса... и тогда выводит, как сделать чтобы было наоборот? И еще пожалуйста , господа, помогите с RadioButton (градусы и радины) Вот исходник. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,... https://www.cyberforum.ru/ delphi-beginners/ thread1156072.html	Delphi Сколько стоит один конверт Я студентка. пожалуйста помогите срочно решить задачу. Комплект из К1 конвертов и О1 открыток стоит С рублей. Сколько стоит один конверт если К2 конверта дешевле С2 открыток на R рублей? https://www.cyberforum.ru/ delphi-beginners/ thread1156056.html
Тест с чтением с doc в дельфи Delphi тест с чтением с doc в дельфи	Delphi Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке Помогите пожалуйста переделать программу на делфи. Переводил код с паскаля на делфи, не работает. На паскале работает. Задача: Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке. Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов одной строки и массив количеств одинаковых элементов в строках}... https://www.cyberforum.ru/ delphi-beginners/ thread1155974.html

Артём Леонтьев

0 / 0 / 0

Регистрация: 23.12.2013

Сообщений: 31

Программа не считает русские буквы, почему? - Delphi - Ответ 6082501

24.04.2014, 15:05. Показов 1094. Ответов 4

Метки (Все метки)

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,n,f,byk,cif:integer;
s: string;
begin
byk:=0; //счетчик букв
cif:=0; //счетчик цифр
with memo1 do //обращаемся к компоненту Memo
 begin
  for n:=0 to lines.Count-1 do //идем по всем строкам
   begin
    s:=lines[n]; //присваиваем значение строки
      for i:=1 to length(s) do //идем по строке
       begin
        for f:=49 to 57 do //если встречаются цифры то счетчик прибавляем
          if s[i]=chr(f) then cif:=cif+1;
        for f:=128 to 175 do //если встречаются буквы (русские) то счетчик прибавляем
          if s[i]=chr(f) then byk:=byk+1;
        end;
    end;
 end;
edit1.Text:=inttostr(byk);
edit2.Text:=inttostr(cif);
end;

Где что нужно поменять ?

Вернуться к обсуждению:
Программа не считает русские буквы, почему? Delphi

Следующий ответ

Миниатюры

Программа не считает русские буквы, почему?

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.04.2014, 15:05

Готовые ответы и решения:

Программа, которая считает определенные буквы в тексте
Всем доброго времени суток, срочно нужна помощь в написании программы, суть вот в чем: нужна...

Почему программа считает, что -4/-1 < -6/-2
Вот код программы: unit Kursovaya_MatMod; interface uses Windows, Messages, SysUtils,...

Почему программа зависает и не правильно считает?
Привет всем! Если этим кодом попробовать пройтись по достаточно большому тексту, комп...

Почему MS Visual C++ не показывает русские буквы
Вот такая программа(код) // rrrrrrrr.cpp: определяет точку входа для консольного приложения. // ...

	24.04.2014, 15:05

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.04.2014, 15:05

Помогаю со студенческими работами здесь

Почему неправильно отображаются введенные русские буквы?
Почему вводя русские буквы , функция gets выдаёт другие символы? int main() { setlocale(LC_ALL,...

Почему Like различает english + цифры // но не русские буквы
DataSet ds = new DataSet(); SqlConnection sqlConn = new SqlConnection(@"Data...

Почему с базы данных, не выводит русские буквы?
Почему вместо слова, отображаются вопросики?

почему не работает запрос, когда в поле name русские буквы?
Доброо времени суток <?php $db=mysql_connect("localhost", "root", "") or die("Ошибка");...

Наверх