|
|
| Другие темы раздела | ||||||||||||||||||||||||||||||||||||
|
Delphi Вставка картинок в StringGrid
https://www.cyberforum.ru/ delphi-beginners/ thread1167299.html Приветствую всех! Нужна ваша помощь! Я сделал следующее: при выборе названия картинки в ComboBox в Image она отображается! Теперь нужно эту картинку засунуть в первую ячейку StringGrid'a! При выборе следующей картинки она засовывалась в СЛЕДУЮЩУЮ ячейку StringGrid'a. При выборе следующей картинки - в следующую ячейку и т.д. Помогите пожалуйста реализовать данную задумку. Буду очень... |
Создать программу обработки исключения при обращении к несуществующему элементу массива Delphi Здравствуйте в делфи кроме БД не работал, вот последствия возникла проблема, помогите пожалуйста Создать программу обработки исключения при обращении к несуществующему элементу массива. В форму поместите поля редактирования для ввода – вывода значений и номеров элементов массива и кнопку для обработки события. | |||||||||||||||||||||||||||||||||||
| Delphi Разноцветные буквы в RichEdit Как в RichEdit можно правильно реализовать такую штуку ? for c:=#33 to #125 do begin n:=randomrange(0,256); edt1.Font.color:=RGB(0,n,0); edt1.Text:=edt1.Text+c; end; каждая буква должна быть разного оттенка зеленого? а изменяется весь текст https://www.cyberforum.ru/ delphi-beginners/ thread1167244.html |
Delphi Работа с массивами и матрицами
https://www.cyberforum.ru/ delphi-beginners/ thread1167243.html 1.Реализуйте проект «Массив». Кнопка «Заполнить» формирует массив из десяти случайных целых чисел в диапазоне , заполняет этими числами первую таблицу строк, выбирает из массива отрицательные элементы и заполняет ими вторую таблицу строк. Кнопка «Вычислить» вычисляет произведение отрицательных элементов массива и выводит его в метку. Кнопка «Очистить» удаляет содержимое таблиц и метки.... | |||||||||||||||||||||||||||||||||||
|
Delphi Создание теста. Ошибка: системе не удается найти указанный путь Добрый вечер. При создании теста у меня возникли проблемы в чем может быть ошибка? Вот часть кода после запуска появляется ошибка системе не удается найти указанный путь. procedure TForm4.FormShow(Sender: TObject); var AppPath:array of char; _file : AnsiString; begin GetCurrentDirectory(255,AppPath); _file := AppPath + '\Доп. материалы\test.rtf'; try RichEdit1.Lines.LoadFromFile(_file);... |
Delphi Парсинг web-страниц Добрый день, форумчане. Задача заключается в следующем: 1) Грузим в компонент TWebBrowser страницу. 2) Сохраняем код страницы в переменную. 3) Достаем из кода страницы нужные значения. Задача казалась бы легкой, если бы значение было бы одно... Но значений много и все нужно достать, при этом нужно сохранить каждое значение в TStringList на каждую строчку. Подскажите пожалуйста, как это дело... https://www.cyberforum.ru/ delphi-beginners/ thread1167126.html | |||||||||||||||||||||||||||||||||||
|
Delphi Файловый тип
https://www.cyberforum.ru/ delphi-beginners/ thread1167113.html Доброго времени суток!Подскажите, пожалуйста. Надо Создать текстовый файл, в который записать не менее 20 целых чисел в диапазоне от -7 до 7. Вывести содержимое файла на экран. Найти минимальное значение среди положительных и записать в другой текстовый файл номер строки найденного элемента и сам элемент. Учесть ситуацию, когда таких элементов несколько. Содержимое этого файла вывести... |
Delphi Приложение, которое позволяет ввод даты 8. Создайте приложение, которое позволяет ввод даты (формат даты: число - месяц - год) и определяет: • дату следующего (предыдущего) дня • дату, которая наступит через n дней (которая была за n дней до сегодняшнего дня) • день недели, выпадающий на введенную дату, если известно, что первый день нашей эры был понедельником. | |||||||||||||||||||||||||||||||||||
|
Delphi Не расшифровывается текстовый файл
https://www.cyberforum.ru/ delphi-beginners/ thread1167057.html Всем привет! Есть небольшая программа по шифрованию текстовых файлов методом гаммирования. Возникла проблема с дешифрацией. При выборе зашифрованного файла-нажимаю Дешифровать-в файле происходит повторное шифрование. Как исправить? var seqPSW : shortstring = 'D5wI5*%h(FK$'; function DecodeStr(const S : string) : string; var I, J : Integer; begin Result := S; J := 1; |
Delphi Форматирование HTML кода Вообщем пишу на дельфях прогу, смысл в том, что бы имея, например, вот такой код <HTML><BODY></BODY></HTML> получить, вот такой код <HTML> <BODY> </BODY> </HTML>Соответсвенное, это должно быть универсальным, ибо код может быть любым. Общий смысл, как это сделать, вроде ясно, читать по символьно, запонимать теги и сравнивать их. Но не очень понятно, как это... https://www.cyberforum.ru/ delphi-beginners/ thread1167052.html | |||||||||||||||||||||||||||||||||||
|
Посчитать количество элементов в строке после ";" Delphi procedure TForm2.Button1Click(Sender: TObject); var s: String; begin s:=AnsiReplaceStr(Edit1.Text,' ',''); Edit2.Text:=IntToStr(Pos(';',s)); // количество элементов в строке до ";" подскажите пожалуйста, как посчитать количество элементов в строке после ";"? |
Delphi Как передать на сервер файл с нулевым байтом
Я студе
Наверх
| |||||||||||||||||||||||||||||||||||
