Lazarus

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

Войти

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

Другие темы раздела
Lazarus Lazarus. Реализация задач по обработке двумерных массивов в системе Delphi Вот второе задание. Звучит оно так: Для матрицы из 5 столбцов и 6 строк определить что больше: сумма элементов в строках с чётными номерами или сумма элементов с нечётными номерами. Для выполнения необходимо: 1.Разработать алгоритм решения задачи. 2.Реализовать полученный алгоритм в виде блок-схемы. 3.Написать текст программы в языке программирования Delphi. 4.Запустить разработанную... https://www.cyberforum.ru/ lazarus/ thread1481424.html	Циклы. Разработать программу для выполнения расчётов по формуле Lazarus Всем доброго времени суток. Пишу на форуме первый раз, могу не правильно выражаться) В общем дело такое, задали на дом выполнить "Лаборатоную работу"(2 курс универа), а я с компьютером на "Вы"( Нужно написать небольшие програмки на несколько тем. Помогите пожалуйста, ниже напишу задания..Заранее благодарен. Задание к Лабораторной работе №2 "Реализация циклических вычислений в системе...
Lazarus Найти площадь прямоугольного треугольника по гипотенузе и прилежащему углу https://www.cyberforum.ru/ lazarus/ thread1481065.html Известна гипотенуза с и прилежащий угол α прямоугольного треугольника. Найти площадь треугольника.	Lazarus Определить максимальный и минимальный элементы среди положительных четных элементов целочисленного массива Определить максимальный и минимальный элементы среди положительных четных элементов целочисленного массива X. Удалить из массива X совершенные числа, расположенные после максимального значения. https://www.cyberforum.ru/ lazarus/ thread1481064.html
Lazarus Найти первые пять положительных элементов массива и 2 последних и вывести в edit Помогите пожалуйста!!Как найти первые пять положительных элементов и выписать их в Edit затем еще выписать два последних элемента массива, далее вывести всё вместе!	Lazarus Ошибка "External: sigsegv" при нажатии на кнопку Вылетает ошибка при нажатии на кнопку- класс исключения "External: sigsegv". помогите пожалуйста завтра надо сдать курсач или отчислят. Вот код этой кнопки, компилирует нормально: procedure TfMain.bAddClick(Sender: TObject); begin //очищаем поля, если там что-то есть: fEdit.bl.Text:= ''; fEdit.grbl.Text:= ''; fEdit.zakaz.Text:= ''; fEdit.klient.Text:= ''; https://www.cyberforum.ru/ lazarus/ thread1480736.html
Lazarus Циклы: вычисление выражения S=1+1/2+2/3+3/4+4/5... для заданного числа элементов https://www.cyberforum.ru/ lazarus/ thread1480589.html Составить программу для вычисления выражения S=1+1/2+2/3+3/4+4/5...для заданного N элементов. а)Расчет выполнять с помощью трех типов циклов: цикл с переменной, цикл с предусловием, цикл с постусловием. б)Решить задание с использованием отдельной функции для расчета значения элемента на каждом шаге цикла.	Lazarus Найти сумму индексов отрицательных элементов одномерного массива Найти сумму индексов отрицательных элементов одномерного массива. Вывести полученный результат на экран. Массив может вводиться пользователем или заполняться случайным образом.
Lazarus Выход в меню в игре Pac-Man https://www.cyberforum.ru/ lazarus/ thread1480335.html Через какую операцию можно прописать кнопку выхода в главное меню?	Lazarus Настройка кросскомпилятора для WinCE 5.0 из-под Windows Здравствуйте, У меня возникла проблема при сборке Лазаруса для Windows CE. Исходя из разных документации по этой теме, все что нужно для программирования под Windows CE 5.0 это: 1. Скачать Lazarus-FPC и Lazarus-FPC-cross-arm-winCE (той же версии). 2. Установить первый, затем второй установить поверх первого. 3. В Параметрах проекта>генерации кода поставить "операционная система -... https://www.cyberforum.ru/ lazarus/ thread1480244.html
Считывание комплексного числа из TEdit'a Lazarus В одно поле пользователь вводит число от двух до пяти. Далее появляется кол-во TEdit'ов (Это комплексные числа.) равное числу введённому. Между ними появляется TComboBox (В них выбираем действие между двумя соседними числами). + появляется кнопка при нажатии на которую мы получаем результаты вычислений. (Порядок действий не важен.) Например: (2+i) * (2-i) + (1+0i) При нажатии на кнопку выведет...	Lazarus Работа с графиком https://www.cyberforum.ru/ lazarus/ thread1479169.html Что с моей программой не так? Вот текст задачи:В каждой строке файла указано по два числа – абсциссы и ординаты точек. Выведите на единый график столбчатую диаграмму и линию, соединяющую данные точки. Я написал и вбиваю в файл два числа, а мне в итоге выдаёт на графике какие-то квадраты. Вот код. unit unitChart; {$mode objfpc}{$H+} interface

volvo

Супер-модератор

32835 / 21172 / 8148

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

Сообщений: 36,431

Записей в блоге: 8

22.06.2015, 22:50

Ошибка при получении информации из ярлыка - Lazarus - Ответ 7796196

22.06.2015, 22:50. Показов 1307. Ответов 2

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

Сообщение было отмечено eagle nest как решение

Решение

Pascal

function GetFileNamefromLink(LinkFileName: string): string;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  Buff: array[0..MAX_PATH] of char;
begin
  Result := '';
  if (fileexists(Linkfilename) = False) then
    exit;
  MyObject := CreateComObject(CLSID_ShellLink);
  MyPFile := MyObject as IPersistFile;
  MySLink := MyObject as IShellLink;
  MyPFile.Load(StringToOleStr(LinkFileName), STGM_READ);
  MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
  Result := buff;
end;

прекрасно получает информацию из ярлыка, который НЕ находится в корневой папке. Что-то с StringToWideChar не то.

Вернуться к обсуждению:
Ошибка при получении информации из ярлыка Lazarus

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.06.2015, 22:50

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

При создании ярлыка ошибка "Создание ярлыка не возможно, Возможно нет места на диске"
При создании ярлыка на рабочем столе любого приложения, появляется окно с надписью "Создание ярлыка...

Ошибка при создании ярлыка!
Доброго времени суток народ! Помогите есть моя программа при её запуске создает ярлыки на рабочем...

ошибка при открытии ярлыка.
Вообщем,захотел я перенести иконки дисков на нижнюю панель(на левую сторону),но при их открытии...

Ошибка при получении данных из БД при использовании MVC framework 4.0
// HomeControlers.cs using System; using System.Collections.Generic; using System.Linq; using...

	22.06.2015, 22:50

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

22.06.2015, 22:50

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

Ошибка при получении ip адресов
Доброго времени суток!!! Есть 2 компьютера: 1 настольный, другой ноутбук. Есть интернет, через...

Ошибка при получении data
Добрый день! Столкнулся со следующей проблемой. Получаю параметр img data-large. Параметр...

Зацикливание при получении получении сообщения от клиента
Доброго времени суток! Уже выбился из сил... Суть моей проблемы в следующем. Реализую...

TidHTTP ошибка при получении данных
Здравствуйте. Rad Studio XE6. Написал парсер используя класс TidHTTP. Парсер постоянно работает....

Наверх