Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Как обновить данные в StringGrid по нажатию кнопки? Как обновить данные в stringgrid по нажатию кнопки? В stringgrid данные загружаются из внешних файлов https://www.cyberforum.ru/ delphi-beginners/ thread1725536.html Работа с камерами видеонаблюдений Delphi
Всем привет! Вот такая тема курсовой Хочу написать приложение используя firemonkey Смысл приложения такой, есть несколько магазинов, в каждом из которых есть камеры видеонаблюдения, и нужно подключаться к ним Подскажите архитектуру? с чего начать? Добавлено через 45 минут как я думаю. должна быть база данных с магазинами и камерами.
Delphi Чтение из StringGrid Подскажите пожалуйста,в чем ошибка: procedure TForm1.Button7Click(Sender: TObject); var numbers2:TMass; n,k,b:integer; begin n:=StringGrid1.RowCount; SetLength(numbers2,n,n); for k:=1 to n do for b:=1 to n do https://www.cyberforum.ru/ delphi-beginners/ thread1725394.html Delphi Как сделать что бы по нажатие кнопки зашло в игру включило консоль и автоматическе ввело подключение https://www.cyberforum.ru/ delphi-beginners/ thread1725393.html
Как сделать что бы вот нажал на кнопку запускается игра открывается консоль на букву F1 потом вписывается туда connect IP и нажимается enter
Delphi Присвоить длину динамическому массиву
Всегда получалось, а сейчас : unit txt_file; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, m_var; type
Delphi Как сделать чтобы написанная мной программа запускалась от имени администратора? https://www.cyberforum.ru/ delphi-beginners/ thread1725307.html
Моя программа, написанная на Delphi XE7 не может работать, если пользователь установил её в С:\, a на диске D:\ - работает нормально... Я понял, что это получается из-за того, что Windows не даёт ей права на запись необходимых ей файлов. Если же запустить от имени администратора - всё начинает работать... Как быть? Можно ли сделать чтобы программа сразу запускалась от имени администратора,...
Delphi Не могу понять, где я ошиблась https://www.cyberforum.ru/ delphi-beginners/ thread1725295.html
Вот задача: Определить равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр. procedure TForm1.Button1Click(Sender: TObject); Var a:Integer; begin a:=StrToInt(edit1.Text); if a div 1000 + a div 100 mod 10 = a mod 100 div 10 + a mod 10 then
Комбинаторика (сочетания): сколькими способами можно сформировать команду? Delphi
Всем доброго времени суток !!!! Задача такова: Для участия в команде тренер отбирает 5 мальчиков из 10. Сколькими способами он может сформировать команду, если 2 определенных мальчика должны войти в команду? Сама задача у меня готова .... только одна проблема, как вычислить общее количество способов. program Project1; {$APPTYPE CONSOLE} {$R *.res} uses
Delphi Проверка подключения к серверу SMTP с использованием try except Всем доброго времени суток! Реализую проверку подключения к серверу SMTP. В процедуре кнопки прописываю следующий код: // ввод параметров {Port, Host e t.c.} // проверка подключения Try IdSMTP1.Connect(); RzLabel5.Caption := 'установлено'; RzLabel5.Font.Color := clGreen; https://www.cyberforum.ru/ delphi-beginners/ thread1725212.html Delphi Наибольшее и наименьшее значение функции на заданном отрезке https://www.cyberforum.ru/ delphi-beginners/ thread1725211.html
Найти наибольшее и наименьшее значение функции y=1/2x+cosx на отрезке
Нарисовать заданную геометрическую фигуру, которая перемещается по заданной траектории Delphi
Господа нужна ваша помощь, есть програмка с движущимся квадратом, как изменить саму фигуру и ее маршрут в коде? Какие формулы нужно написать? Первое изображение сама фигура Второе изображение ее траектория unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Math;
Delphi Ошибка в присвоении массиву рандомных чисел в типизированном файле 1. Создать типизированный файл, содержащий 18 целых чисел. Найти сумму первого и второго чисел файла. Объясните пожалуйста как исправить ошибку в строке.Хочу найти сумму первого и второго числа через массивы. mas:=RandomRange(1,100); write(f,mas); unit Unit1; interface uses https://www.cyberforum.ru/ delphi-beginners/ thread1725200.html
Хитрая блондиночка $)
1472 / 988 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
02.05.2016, 11:03 0

Напечатать самое длинное (короткое) слово из заданного текста - Delphi - Ответ 9094043

02.05.2016, 11:03. Показов 1213. Ответов 5
Метки (Все метки)

Ответ

Напечатать самое длинное
Delphi
1
2
3
4
5
6
7
  with TStringList.Create do begin
    Sorted:=true;
    Duplicates:=dupIgnore;
    DelimitedText:='помогите написать программу в делфи';
    ShowMessage('Самое длинное='+Strings[Count-1]);
    Free;
  end;


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

Напечатать самое длинное слово из текста
1)Напечатать самое длинное слово из текста( между словами может быть несколько пробелов) ...

Напечатать самое длинное слово из текста.
Помогите пож-та решить...напечатать самое длинное слово из текста в delphi.. оч надо..срочно...

Определить самое короткое и самое длинное слово в строке введённой с клавиатуры
{ Определить самое короткое и самое длинное слово в строке введённой с клавиатуры }

В заданном предложении найти самое короткое и самое длинное слово и указать позиции, с которых они начинаются
В заданном предложении найти самое короткое и самое длинное слово и указать позиции, с которых они...

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

Найти самое длинное и короткое слово в строке
найти самое длинное и короткое слово в строке. что в нете нету не чего толкового

Поменять местами самое короткое и длинное слово
смог найти эти слова но вот как поменять не знаю.. вот что сделал const //Множество...

Напечатать самое длинное слово из заданного текста
Напечатать самое длинное слово из заданного текста "Цель статистики сосредоточивается в...

Напечатать самое длинное слово из заданного текста (слова разделены пробелами)
Напечатать самое длинное слово из заданного текста (слова разделены пробелами).

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