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

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

Войти

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

Другие темы раздела
Delphi Напечатать информацию о сотрудниках, которые проработали не менее 3-х лет Известна информация о 20 сотрудниках фирмы: фамилия, имя, отчество, адрес, месяц и год поступления на работу. Напечатать информацию о сотрудниках, которые проработали не менее 3-х лет, упорядочив предварительно сведения по стажу. Начала вот так, а дальше не могу условие по стажу сделать type rabotnik=record fio:string; mes:byte; god:integer; adress:string; st:byte; end; var... https://www.cyberforum.ru/ delphi-beginners/ thread2156076.html	Необходимо реализовать приложение для создания и сортировки массива, а так же найти максимальное и минимальное значения Delphi Интерфейс требуемого приложения. p.s. Случайно создал не в той теме. Не бейте.
Delphi Определить под каким углом пересекаются 2 прямых https://www.cyberforum.ru/ delphi-beginners/ thread2155915.html На плоскости заданы 2 прямые у=a1x+b1 и у=а2x+b2 определить под каким углом они пересекаются, предусмотреть случай когда они перпендикулярны	Delphi Chart: построение графиков нескольких функций С использованием компонента Chart построить графики трех прямых каждого типа в соответствии с заданием. Предусмотреть возможность выбора пользователем графика, который необходимо построить ( с использованием компонентов ComboBox или RadioButton ). Cохранить полученные графики кривых в виде bmp-файла. Задание 1: а)квадратная парабола y=ax^2+bx+c (кривые в Декартовой системе координат, в... https://www.cyberforum.ru/ delphi-beginners/ thread2155866.html
Delphi Программа падает при попытке выполнить оригинальную функцию Собственно код перехвата и подмены. var OrgPostMessageW : function (hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall; function NewPostMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall; var WinName: array of Char; begin GetWindowText(hWnd, WinName, 255); WriteTxt(IntToStr(Msg) + ':' + IntToStr(wParam) + ':' + IntToStr(lParam) + ' -...	Delphi Управление громкостью других программ Здравствуйте. Нашел на просторах исходники, но там управление общей громкостью, а нужно управление разными приложениями, например отключить громкость у chrome.exe, но включить на всю aimp3.exe. Подскажите куда идти за инфой, кодом, примерами, ну или сами можете подсказать? https://www.cyberforum.ru/ delphi-beginners/ thread2155712.html
Delphi Работа с файлами. Дешифратор https://www.cyberforum.ru/ delphi-beginners/ thread2155647.html Нужно разработать программу, которая загружала бы "зашифрованный" текстовый файл (.txt), а выгружала бы его уже расшифрованным по такому алгоритму - все буквы заменяются теми, которые стоят после них по алфавиту.	Матрицы в delphi Delphi Как задать матрицу в delphi типа A:array of integer без цикла for (только с помощью while или repeat)
Delphi Разработать программу на Delphi 7. Определение площади геометрической фигуры Разработать программу для определения площади геометрической фигуры. Фигура получается при пересечении графиков функций y=k1cosx y=k2 y=b3x+c3 Программа должна обеспечить решение задачи для правильно выбранных коэффициентов k, b, c. (произвольный диапазон, например от 3 до -3) Предусмотреть графическую интерпретацию решения. Использовать численные методы для решения нелинейных уравнений и... https://www.cyberforum.ru/ delphi-beginners/ thread2155618.html	Delphi Имеется список, элементами которого являются вещественные числа. Добавить в начало списка элемент, равный среднему геоме https://www.cyberforum.ru/ delphi-beginners/ thread2155611.html Имеется список, элементами которого являются вещественные числа. Добавить в начало списка элемент, равный среднему геометрическому положительных элементов списка.
Как получить текст выделенный строки stringgrid Delphi Как записать полученные данные в переменную, чтобы потом ее можно было умножить? на данный момент он у меня тупо выводит из выделенной строки в лейбл значение и всё label5.Caption:=Cells;	Delphi Найти номер последнего максимального элемента среди элементов, меньших Т1, и расположенных до первого элемента https://www.cyberforum.ru/ delphi-beginners/ thread2155511.html Задание. Задан целочисленный одномерный массив A из N элементов. Найти номер последнего максимального элемента среди элементов, меньших Т1, и расположенных до первого элемента, большего Т2. Верно ли написана программа? Код :var a:array of integer; i,j,n,t1,t2,,max:integer;

Nanotentacle

884 / 404 / 174

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

Сообщений: 1,828

13.12.2017, 11:50

Прочитать файл, в имени которого есть сегодняшняя дата - Delphi - Ответ 11940866

13.12.2017, 11:50. Показов 743. Ответов 5

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

Ответ

Вариант 1 (могут быть косяки, но он каноничный):

Delphi

function DateFilename:String;
var fs:TFormatSettings;
begin
fs.ShortDateFormat := 'dd-mm-yyyy';
 
result := DateToStr(now,fs)+' 00-00.txt'
end;

Вариант 2 (точно рабочий):

Delphi

uses ...,DateUtils;
 
...
 
function DateFilename:String;
var y,d,m:String;
begin
y := inttostr(YearOf(now));
m := inttostr(MonthOf(now));
d := inttostr(DayOf(now));
 
while length(y) < 4 do y := '0'+y;
while length(d) < 2 do d := '0' + d;
while length(m) < 2 do m := '0' + m;
 
result := d+'-'+m+'-'+y+' 00-00.txt';
end;

Вернуться к обсуждению:
Прочитать файл, в имени которого есть сегодняшняя дата Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

13.12.2017, 11:50

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

Перемещение на флешку только того файла, в имени которого присутствует сегодняшняя дата
Здравствуйте. встала такая задача. Нужно создать батник. на диске с:\work каждый день создаются...

Дозапись в файл, если его имя - сегодняшняя дата
Здравствуйте! Есть небольшие проблемы при работе с файлами, хотелось бы уточнить несколько...

Сегодняшняя дата в DBEdit
Здравствуйте. Подскажите пожалуйста, как вывести в DBEdit'e системную дату при добавлении данных в...

Сегодняшняя дата в Label
Надо чтобы в Label или в Edit была написана сегодняшняя дата в формате ДД.ММ.ГГГГ

	13.12.2017, 11:50

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.12.2017, 11:50

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

сегодняшняя дата для value
Верстаю сайт с помощью bootstrap и в процессе работы возникла пара вопросов. Пытаюсь добавить...

Не могу найти способ удалить файл, в имени которого есть знак "\"
Столкнулся с такой проблемой, что никакими методами не получается удалить файл например такого типа...

При добавлении записи сегодняшняя дата должна умножиться на 86400, почему не считает?
написал такой маленький скриптик, при добавлении записи сегодняшняя дата должна умножиться на...

Переименование файла, в имени которого есть иерголифы
Здравствуйте, уважаемые форумчане! Обращаюсь к вам за помощью, очень надеюсь на то, что поможете...

Наверх