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

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

Войти

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

Другие темы раздела
Delphi Приклеить одну форму к другой Как можно приклеить одну форму к другой, например как в Aimp приклеивается плейлист к главному окну? https://www.cyberforum.ru/ delphi-beginners/ thread247580.html	Запрет закрытия программы пока... Delphi Нужно сделать так, чтобы пользователь не мог закрыть программу, пока он не нажмет на кнопку "завершить действия" Такой вариант не устраивает :( BorderIcons := BorderIcons + Добавлено через 9 минут поторопился тему создать :) procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := x;
Delphi построение графика...string https://www.cyberforum.ru/ delphi-beginners/ thread247547.html у меня есть два ListBox, Chart, и кнонки, при нажатии на кнопку Data в ListBox появляются данные и вот по этим данным мне надо построить график. из одного бокса по точки оси X? из другого по Y. Типа амплитуда и время распространения сигнала. график должен быть один. тут из-за того что Strings не хочет строить. Подкинте плиз свои гениальные идеи. покажите плиз на примере кода вот листинг: вот...	Delphi С текстом дан большой текст. в тексте записаны слова на англ. языке с перестановкой первой и последней буквы в словах.. вывести текст в нормальном порядке.. https://www.cyberforum.ru/ delphi-beginners/ thread247522.html
Delphi Назначить событие программно Подскажите вот что: Я создаю программно несколько шейпов (TlvlShape:=TShape.Create(panel1);) возможно ли мне назначить им событие, ну допустим onMouseDown? Ну или любое другое и как это реализовать?	Delphi функции Win API https://www.cyberforum.ru/ delphi-beginners/ thread247495.html Помогите разобраться с функциями GetExceptionCode и GetStartUpInfo в Delphi. Сгодится любая помощь! Синтаксис использования, описание и т.д. Спасибо.
Delphi Квадратные уравнения https://www.cyberforum.ru/ delphi-beginners/ thread247487.html Написал программу: type TForm1 = class(TForm) a1: TEdit; b1: TEdit; c1: TEdit; Naiti: TButton; Korni: TLabel; D1: TLabel; x1: TLabel;	Delphi SaveDialog Мужики, подскажите как предложить имя файла в SaveDialog1.FileName по первым трем словам из RichEdit1. Спасибо, заранее)) Добавлено через 32 минуты up(((
Delphi Даны числа а,в,с.определить какое из них равно д даны числа а,в,с.определить какое из них равно д,если никакое не равно д,то найти max(д-а,д-в,д-с) https://www.cyberforum.ru/ delphi-beginners/ thread247478.html	Delphi Вопросы по теории 1)Как узнать -- есть у переменной дробная часть или нет? 2)Как из Integer сделать Extended? https://www.cyberforum.ru/ delphi-beginners/ thread247462.html
Delphi Не запускается с БДС Сразу после запуска корэла (дэльфи 2009) выдаёт ошибку. Не находит rtl120.bpl. Пробовал устанавливать rtl.pak, устанавливал rtl120.bpl вручную, никакого результата. Сижу под седьмым окном. Корэл 2009. Ошибка возникла сразу после его обновления. Кстати, он у меня крякнутый.	Delphi DynArray в FileSteam? https://www.cyberforum.ru/ delphi-beginners/ thread247415.html имеется массив Q:array of string; в ходе работы программы он заполняется.Затем сохраняю массив Q в файл-стрим FileStream.Write(Q,SizeOf(Q)), но при попытке чтения из файла(FileStream.Read(Q,Sizeof(Q)); он не читается из файла...Помогите кто может советом

Arcor

5706 / 2297 / 466

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

Сообщений: 7,721

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

24.02.2011, 02:17 [ТС]

Не вызывается функция - Delphi - Ответ 1395892

24.02.2011, 02:17. Показов 942. Ответов 8

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

Ответ

Сообщение от Mawrat

А, да - CloseHandle не там расположен. Вот так надо:

Delphi

function TForm1.GP: PC;
var i, j : Integer;
    hCom: THandle;
    Str: String;
begin
  SetLength(Result, 255);
  j := 0;
  for i := 1 to 255 do
    begin
      Str := 'COM'+IntToStr(i);
      hCom := CreateFile(PChar(Str),
                         GENERIC_READ or GENERIC_WRITE,
                         0, nil, OPEN_EXISTING,
                         FILE_FLAG_OVERLAPPED, 0);
      if hCom <> INVALID_HANDLE_VALUE then
      begin
        Result[j] := Str;
        Inc(j);
      end;
      Windows.CloseHandle(hCom);
    end;
    SetLength(Result, j);
end;

большое спасибо, кстати, я не знаю, что я сделал, ничего вроде бы не делал, а просто вырезал и вставил снова свою функцию и она заработала, как будто ничего и не было
может моя дельфи решила подшуть надо мной ???

Вернуться к обсуждению:
Не вызывается функция Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.02.2011, 02:17

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

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

Не вызывается функция
Здравствуйте. Не работает условие в цикле. Просто не вызывается функция prior. Как исправить? int...

Не вызывается функция
Всем привет. Вот мой код https://jsfiddle.net/ueagLh0d/ Требуется удалить класс shake у инпута...

Не вызывается функция
Здравствуйте. Не понимаю почему, но код работает, а программа даже не заходит в функцию. В чем...

	24.02.2011, 02:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.02.2011, 02:17

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

Не вызывается функция
Когда код функции находился в главной функции, то выполнялся без нареканий(не считая выскакивания...

Не вызывается функция
Проблема заключается в следующем: при выполнении в WM_CREATE не выполняется рекурсивная функция...

на вызывается функция в IE 9
Здравствуйте в IE 9 в функции не вызывается функция updateChatArea() тобиш <script...

Не вызывается функция
Здравствуйте, вот какая проблема. В этом методе p.repaint() не вызывается, все остальное работает. ...

Наверх