Бросаю на форуму image появляеться квадратик. Каким образом его на шарик поменять? Это должно быть в инспекторе объектов, но где именно я не знаю
ёб*ный в рот,это издевательство что ли? 1)Объяви глобальные переменные (это там где var Form1 и т.п) типа real и integer. 2)Брось на форму paintbox (найти можно на панели компонентов ёмаё) 3)добавь кнопочку 4)добавь таймер сделай таймеру и кнопке обработчики событий путем двойного клика на компоненты. вставь код.все.
Подскажите пожалуйста, самые простые в реализации интерфейсы передачи команд программе на удалённом компе.
а сложно открыть гугл и найти? http://www.pascal.helpov.net/index/numerical_data_types_pascal_programming раз http://pas1.ru/booleantype два.
То что ты дал это немного не то. Мне нужно что бы комментарии в коде были. Описания алгоритма так сказать
ну так бы и сказал,написал что переменные.Палиндром находится перебором.в зависимости от длинны текста (делим без остатка) с двух концов проходим по элементам, и сравниваем их. Div- деление без остатка.
Подскажите. При создании формы пишу Code: if not FileExists(GetCurrentDir+'\log\log.txt') then begin MyLogFile := TFileStream.Create(GetCurrentDir+'\log\log.txt', fmCreate); MyLogFile.Free; end; MyLogFile := TFileStream.Create(GetCurrentDir+'\log\log.txt', fmOpenWrite or fmShareDenyNone); Записываю данные так. Code: MyLogFile.Write(mes[1], Length(mes)); Все хорошо. Но строки записываются одна за другой. Как каждую новую запись делать на новую строку?
Нашел вот эту процедуру для уничтожения процессов. После begin в первой строчке кода находится для обработки окно с шапкой WindowTitle и формой Classname (допустим Tfrom1). Во второй строчке кода находится айди выбранного процесса. Это все что я мог понять из кода. Что происходит в остальных двух строчках??? Я еще зеленый в кодинге, помогите =3
Что означает вот этот кусок кода if edit1.text<>edit1.text[length(edit1.text)-i+1] then Чему равно значение выражения в квадратных скобках, и сколько будет i+1