|
|
Другие темы раздела | |
Lazarus Генерация случайных целых чисел в заданном интервале
https://www.cyberforum.ru/ lazarus/ thread1701787.html Здравствуйте! Правильно ли я прописал код случайных чисел от -1 до 2 ??? Спасибо. procedure TForm1.FormCreate(Sender: TObject); var Col, Row, N, M: integer; begin randomize; N:=6; M:=6; StringGrid1.ColCount:=N; StringGrid1.RowCount:=M; |
Методы внутренней сортировки массивов (вставки и обмена) Lazarus Нужно создать вектор А. Для создания массива использовать генератор случайных чисел. Количество элементов рассчитывается по формуле n = 50 + 2i , где i=7. Отсортировать массив нужно метод вставки и обмена. Каждый из методов нужно оформить как под-программу. Тип сортировки по возрастанию. Так же нужно посчитать количество сравнений и обменов. Кому не сложно, помогите с данным заданием. Не... |
Lazarus ShowBalloonTip не отображает кириллицу есть код: procedure ShowBalloonTip(Control: TWinControl; Icon: integer; BackCL, TextCL: TColor; Title: String; Text: PWideChar); const TOOLTIPS_CLASS = 'tooltips_class32'; TTS_ALWAYSTIP = $01; TTS_NOPREFIX = $02; TTS_BALLOON = $40; TTF_SUBCLASS = $0010; https://www.cyberforum.ru/ lazarus/ thread1701578.html | Lazarus Как сделать скриншот области экрана? Есть пример на Делфи http://delphiexpert.ru/sozdanie-skrinshotera-na-delphi.html, но в Lazarus отсуствует Transparentcolor свойство. Выставил Alphablend true и AlphablendValue 100, делаю скриншот экрана и переношу на всю форму, все нормальгно, полупрозрачно. Далее пробую на OnMouseMove делать Canvas.CopyRect с экрана, но тогда именно нарисованное таким образом прямоугольник полупрозрачен, а вся... https://www.cyberforum.ru/ lazarus/ thread1701322.html |
Файл в кодировке ANSI Lazarus Лазарус работает с UFT8 и файлы, которые сохраняются через TStringList или TextFile так же имеют кодировку UTF8. Необходимо: открыть файл "1.txt"(utf8) и сохранить его в файл "2.txt"(ansi). открыть файл "2.txt"(ansi) и добавить строку String в кодировке Ansi не нарушая кодировку файла. 1й пример кода, вариант "консольный": var St8: UTF8String; |
Lazarus При работе с Lazarus и Firebird возникли трудности
https://www.cyberforum.ru/ lazarus/ thread1701093.html Самая простая программа. Пытаюсь вывести таблицу базу данных(.FDB) на экран. Компонент IBConnection, в котором просписан путь к базе. Пытался разными способами (\etc; localhost:путь; ip: путь). При запуске выдает DointernalConnect Unable to complete network request to host "localhost" Failed to establish a connection |
Lazarus Как из StringGrid скопировать значение в set of bytes и обратно? как из StringGrid скопировать значение в set of bytes и обратно? https://www.cyberforum.ru/ lazarus/ thread1700866.html |
Одномерный массив в Lazarus Lazarus 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа). 2. Вставить число К перед всеми элементами, в которых есть цифра 1. 3. Переставить первые три и последние три элемента местами, сохраняя порядок их следования. |
Lazarus Одномерный массив в Lazarus
https://www.cyberforum.ru/ lazarus/ thread1700069.html 1. Заменить первый элемент массива, кратный 5, нулем. 2. Заменить элементы массива с нечетными номерами на квадраты их номеров. 3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = Di2, а если нечетный, то по формуле Ai = Di / i. |
Lazarus Одномерный массив в Lazarus
https://www.cyberforum.ru/ lazarus/ thread1700067.html 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Найти сумму элементов, имеющих нечетное значение. 2. Вывести индексы тех элементов, значения которых больше заданного числа А. 3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К. |
Преобразования слова в другое Lazarus Составить программу, преобразующую слово 'Перепелица' в слово 'Пепел'. Допустимые процедуры и функции: - Процедуры: Delete, Insert, Str, Val - Функции: Copy, Concat, Lenght, Pos, UpCase |
Lazarus Почему case работает только с выражениями, и не работает с функциями? и как быть например если хочу действовоть в зависимоти от результатов вызова функции case MyFunc(i) of 3: ...; 4: ...; default; end; или я ошибаюсь? Неужели по любому использовать if-ы? и не работает с перемеными и не работает с "+" "-" https://www.cyberforum.ru/ lazarus/ thread1699042.html |
46 / 20 / 5
Регистрация: 29.12.2015
Сообщений: 1,814
|
||||||
0 | ||||||
PascalScript в Lasarus - Lazarus - Ответ 897235003.04.2016, 12:52. Показов 4028. Ответов 4
Метки (Все метки)
Добрый день. Может ктонибудь детально расказать как работать с PascalScript
Собственно что мне необходимо: В отдельном скрипте паскаль запускать процедуры и функции. К примеру скрипт
Вернуться к обсуждению: PascalScript в Lasarus Lazarus
0
|
03.04.2016, 12:52 | |
Готовые ответы и решения:
4
БД в lasarus Lasarus в школе Кодировка путей и текста Lasarus OPC-client для Lasarus |
03.04.2016, 12:52 | |
03.04.2016, 12:52 | |
Помогаю со студенческими работами здесь
0
Вызов ShowMessage из DLL в Lasarus Сохранения компонента в файл и загрузка из файла без использовании WinApi Lasarus Разработать приложение в среде Lasarus для проверки решений задач заданного вида |