Вопрос № 41209: Здравствуйте.
Помогите пожалуйста написать процедуру ButtonClick для программки, состоящей из трех переключателей (умножение далее введенного значения на 4, 9 и 23), поля ввода значения, кнопки ОК и поле вывода результата.
Знаю, что она прост...Вопрос № 41253: Здавствуйте.
У вопрос следующего содержания: как в Delphi импортировать файл из Exel (для использования таблицы в БД)? Я попыталась с помощью механизма ADO,
использовала ADOConnection, ADOTable, DataSource, DBGrid, но ничего не вышло. Не зна...Вопрос № 41260: Здравствуйте!
Скажите, пожалуйста, как определить время работы компа?...Вопрос № 41262: Подскажите пожалуйста, как в Delphi реализовать получение текущей даты (с сохранением значения, напрмер, в Edit). Может есть команда какая-нибудь для
получения системного времени или даты?
..
Вопрос № 41.209
Здравствуйте.
Помогите пожалуйста написать процедуру ButtonClick для программки, состоящей из трех переключателей (умножение далее введенного значения на 4, 9 и 23), поля ввода значения, кнопки ОК и поле вывода результата.
Знаю, что она простая, но что-то никак не могу сообразить.
Или подскажите хотя бы с чего начать.
Спасибо.
Отправлен: 25.04.2006, 03:33
Вопрос задала: Slofie (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, Slofie!
См. пример в прикреплённом файле.
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Kazakh
Здравствуйте, Slofie!
Запустите Deplhi. Создайте нове приложение (Меню New-Application).
Сохраните куда-нить. Далее скопируйте приложение 1 в Unit1.
Откройте правый клик по Form1 выбирайте "View as text" (простотр как текст) и скопируйте туда приложение 2.
F9 и усё.
З.Ы.: это если я всё правильно понял ;-). Если что - пишите.
Приложение:
--------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.
Ответ отправил: Kazakh (статус: 6-ой класс)
Ответ отправлен: 25.04.2006, 07:40
Вопрос № 41.253
Здавствуйте.
У вопрос следующего содержания: как в Delphi импортировать файл из Exel (для использования таблицы в БД)? Я попыталась с помощью механизма ADO,
использовала ADOConnection, ADOTable, DataSource, DBGrid, но ничего не вышло. Не знаю, что выбрать в строке подключения редактора соединения(какой
провайдер данных).
У меня получается соединиться с бд MS Access и импортировать данные(таблицы) из нее, а из Exel нет. Помогите, пожалуйста.
Приложение:
Отправлен: 25.04.2006, 14:02
Вопрос задала: Malishkin (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Решетник Д
Здравствуйте, Malishkin!
Вот список некоторых команд
Delphi
uses ComObj;
XL: variant;
XL := CreateOleObject('Excel.Application');
XL.DisplayAlerts := false;
XL.WorkBooks.Add;
XL.WorkBooks.Open(<filename>);
R := XL.ActiveSheet.UsedRange.Rows.Count;
C := XL.ActiveSheet.UsedRange.Columns.Count;
XL.Sheets[1].Cells[i,j].Text
--------- Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 3-ий класс)
Ответ отправлен: 25.04.2006, 14:33 Оценка за ответ: 4
Отвечает: sir henry
Здравствуйте, Malishkin!
Вы отчего то не написали, а в какой формат Вам нужно импортировать данные из Экселя.
Если, например, нужно импортировать в формат dBase, то это можно сделать и средствами самого Экселя. Вот например:
Var
xl: OleVariant;
Begin
xl:=CreateOleObject('Excel.Application');
{Открывает файл Экселя}
xl.WorkBooks.Add('Файл и его путь');
{Сохраняет файл в формате dBase4}
xl.ActiveWorkBook.SaveAs('Имя файла и путь', xlDBF4);
End;
*********
Если нужно импортировать в какой-то другой формат, то придется воспользоваться ODBC, в котором есть средства доступа к данным Экселя.
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 26.04.2006, 07:14 Оценка за ответ: 5
Вопрос № 41.260
Здравствуйте!
Скажите, пожалуйста, как определить время работы компа?
Отправлен: 25.04.2006, 15:54
Вопрос задал: NVBud (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Решетник Д
Здравствуйте, NVBud!
The GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.
DWORD GetTickCount(VOID)
Parameters
This function has no parameters.
Return Values
If the function succeeds, the return value is the number of milliseconds that have elapsed since Windows was started.
--------- Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 3-ий класс)
Ответ отправлен: 25.04.2006, 16:05
Отвечает: Kazakh
Здравствуйте, NVBud!
GetTickCount:cardinal - Количество милисекнуд прошедших с включения компа.
В приложении код который я использую для определния времени работы моего приложения.
Приложение:
--------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.
Ответ отправил: Kazakh (статус: 6-ой класс)
Ответ отправлен: 25.04.2006, 16:14
Отвечает: Diman_A
Здравствуйте, NVBud!
Время узнать можно также и без функции GetTickCount:
showmessage('C момента запуска Windows прошло '+ FloatToStr(GetCurrentTime/1000)+' сек.');
Ответ отправил: Diman_A (статус: 9-ый класс)
Ответ отправлен: 25.04.2006, 16:44
Вопрос № 41.262
Подскажите пожалуйста, как в Delphi реализовать получение текущей даты (с сохранением значения, напрмер, в Edit). Может есть команда какая-нибудь для
получения системного времени или даты?
Отправлен: 25.04.2006, 16:31
Вопрос задала: Malishkin (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Kazakh
Здравствуйте, Malishkin!
Элементарно, Ватсон ;-)
Используте функции Date(), Time(), Now()
Date() - текущая дата
Time() - текущее время
Now() - текущие дата и время
Edit1.text:=DateToStr(date) - так в Edit1 попадет текущая дата
Edit1.text:=TimeToStr(time) - так в Edit1 попадет текущее время
Edit1.text:=DateTimeToStr(now) - так в Edit1 попадет текущие дата и время
--------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.
Ответ отправил: Kazakh (статус: 6-ой класс)
Ответ отправлен: 25.04.2006, 16:44 Оценка за ответ: 5
