Как разделить дату от времени?
Имеется unixtimestamp (например: 1421279818 = 14.01.2015 23:56:58 UTC). Нужно произвести изменения с временем, не трогая дату. Алгоритмически так, например: '14.01.2015' + ('23:56…
Имеется unixtimestamp (например: 1421279818 = 14.01.2015 23:56:58 UTC). Нужно произвести изменения с временем, не трогая дату. Алгоритмически так, например: '14.01.2015' + ('23:56…
Доброе время суток, форумчане. Возник такой вопрос: я работаю с компонентом «Gauges», и нужно изменить максимальный порог параметра «MaxValue». Стандартное значение у него = 2.147…
Как активировать отображения номера строки в редакторе кода Delphi 7? Как во многих редакторах, для ориентирования в коде при его отладки.
Доброго всем. Я совсем забыл Delphi программирование. Что я делаю не так? Label1 не показывает оставшееся время. Timer_interval:= 10000; .... procedure TForm1.Timer1Timer(Sender:T…
Пробую реализовать то, что как-то не могу на php, и хотел бы уточнить, какая конструкция кода уместнее: procedure TForm1.RadioButton1Click(Sender: TObject); begin file_name := 'c:…
procedure TForm1.ComboBox1Change(Sender: TObject); var i: byte; sim : integer; begin sim := 0; for i:=2 to 10 do sim := ComboBox1.Items.Add(' Систему : '+IntToStr(i)); ShowMessage…
Я разрабатываю приложение под Android в XE7. Приложение работает с огромным числом изображений (Timage), которые нужно обновлять 30 раз в секунду. Мне нужно поддержание примерно 8…
Доброго времени суток, дорогие хэшкодеры. У меня будет несколько вопросов касательно работы с Memo и Image. Меня интересуют стили текста. Как сделать так, чтобы они менялись и в I…
Подскажите, пожалуйста, наименование WM сообщения, через которое можно обратиться к компоненту “Gauge” (чтоб менять свойство «Progress», используя PostMessage), управлять Gauge я …
Доброе время суток, форумчане. Только прочел о потоках, вследствие чего решил задачу: есть список файлов (в stringGrid), каждый файл обрабатывается (очень долго) неким алгоритмом.…
Как отправить GET запрос вида site.ru/index.php?id=457&vers=27 Есть такой код: procedure HTTPGet(URL,Query:String); //HTTPGet('site.ru','/index.php?id=123'); var WSAData1: TWS…
Т.е. без нажатия на клавишу enter. procedure TForm1.Memo1Change(Sender: TObject); var strok1:Integer; begin strok1:=Memo1.Lines.Count; if strok1 > 1 then Memo1.SetSelTextBuf('*…
if (Key=VK_RETURN) then begin Memo1.SetFocus; keybd_event(8, 0, 0, 0); Memo1.SetSelTextBuf(#13#10); if Pos(#9#9#9,Memo1.Lines[Memo1.CaretPos.Y-1])=1 then Memo1.SetSelTextBuf(#9#9#…
Так выглядит проверка на один определенный символ, стоящий перед кареткой, а как реализовать проверку на два определенных символа? if Char(Memo1.Text[Memo1.SelStart])<>'н' t…
В некоторой тулзе заюзал процедурку - ExecConsoleApp [её source] Но дело в том, что она выдаёт кракозябры, вместо кириллицы при выводе результатов работы команды в TMemo.
procedure TForm1.div6Click(Sender: TObject); const Z_ = '<div>'; X_ = '</div>'; var tmp, stroka: String; x, y: integer; pt: TPoint; begin tmp := Memo1.Text; x := Memo1…
Дано: двумерный массив целых чисел A[N, N]. Найти: произведение элементов, расположенных на главной диагонали. procedure TForm1.Button2Click(Sender: TObject); var a : Array [1..10…
Дан одномерный целочисленный массив. Найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами. procedure TForm1.Button2Click(Sender: TObject); va…
Подскажите, пожалуйста, названия контролов в delphi.
Скрин проблемы: Уже по-всякому пытался его использовать (вводил оригинал, заменял на integer, byte), все равно компилятор выдаёт ошибку. Помогите разобраться. Если можно где то об…
Здравствуйте. Не могу понять, как получить длительность видео. Есть апи https://sites.google.com/site/mxvpen/api Там есть описание: duration Added in 1.7.23 Type: int Value: Durat…
Всем доброго времени суток! Столкнулся с такой проблемой на Delphi 7. Вот кусок кода: procedure TForm1.Button1Click(Sender: TObject); var FileOnNet, LocalFileName: string ; begin …
Есть неуправляемая библиотека, написанная на Delphi, и графическая оболочка, написанная на C#. Нужно сделать так, чтобы библиотека на Delphi могла бросить исключение, которое можн…
Здравствуйте! Моя задача запустить МХ плеер с плейлистом, но как это сделать, я не знаю, прошу помощи. Вот код запуска видеофайла. При запуске следующего видео предыдущее воспроиз…
procedure TForm1.SpeedButton1Click(Sender: TObject); var Ini : TIniFile; ms : TMemoryStream; begin Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini'); try m…
Как получить список доступных в системе шрифтов и, например, закинуть его в ComboBox на форме?
Скрин: Мне нужно его название, чтоб я мог его найти в панели форм.
Как реализовать поиск далее по memo при повторном нажатии кнопки? procedure TForm1.SpeedButton1Click(Sender: TObject); var Find:string; i:integer; begin find:='""'; for i:=0 to Me…
Всем доброго [утра:дня:вечера:ночи] Набросал программку на Delphi. Функционал: вкл\выкл сетевых подкл. Ренэйм сетевых подкл. Всё срабатывает, НО! Есть одно но, ПО при выполнении к…
Всем привет! Стоит задача: загрузить папку на сервер FTP. В папке могут быть как файлы, так и вложенные папки с неограниченным вхождением. Работаю в Delphi XE7 + Indy. Планирую ср…