RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 275
от 17.01.2004, 01:30
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 1252 Отправлено ответов: 2659 Активность: 212.3 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Boriss Статус: Профессиональный Общий рейтинг: 149.18 URL: Программирование на Паскале [Подробней >>] |
Pawel Статус: Доверительный Общий рейтинг: 167.21 [Подробней >>] |
sir henry Статус: Профессиональный Общий рейтинг: 159.8 [Подробней >>] |
| THE_PRO Статус: Опытный Общий рейтинг: 138.71 URL: THE_PRO [Подробней >>] |
samum2000 Статус: Опытный Общий рейтинг: 116.08 [Подробней >>] |
CJ Статус: Опытный Общий рейтинг: 123.23 URL: Мой персональный сайт! Зайдите и не пожалеете! [Подробней >>] |
| vitya Статус: Профессиональный Общий рейтинг: 108.38 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 1240. доброе время суток, уважаемые эксперты. как сделать так, что бы в компоненте tdatetimepicker выбран... (ответов: 5)
Вопрос № 1241. Kak mojno vizvat function iz DLL bez function Name:booelan; external \'name.dll\' Nujno chto to vrod... (ответов: 4)
Вопрос № 1242. Доброе время суток!! Очень благодарен Вам за ответ!! Но я только начинаю все это познавать поэтому н... (ответов: 1)
Вопросов: 3, ответов: 10
| Вопрос № 1240 |
доброе время суток, уважаемые эксперты.
как сделать так, что бы в компоненте tdatetimepicker
выбранная дата автоматически содержала системную дату.
спасибо.
Вопрос отправлен: 13.01.2004, 00:15
Отправитель: евгений
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Добрый день, евгений!
Это элементарно, Ватсон - евгений:
procedure TfmMain.FormActivate(Sender: TObject);
begin
DateTimePicker1.DateTime:=Now
end;
Ответ отправлен: 13.01.2004, 08:30
Отправитель: Boriss
Отвечает Pawel
Здравствуйте, евгений!
Вообщето компонент автоматом содержит текущую дату!!!
Можно её изметить через Tdatedimedicker.date:=Tdate;
Ответ отправлен: 14.01.2004, 18:55
Отправитель: Pawel
Отвечает sir henry
Приветствую Вас, евгений!
Выбранная дата в компоненте TDateTimePicker, всегда содержит дату, которую Вы выбрали :)).
Если-же Вы хотите занести дату просто так, не выбирая, то у компонента есть свойство - Date:
TDateTimePicker.Date:=Date;
{Стандартная функцуия Date возвращает текущую дату}
Ответ отправлен: 13.01.2004, 03:57
Отправитель: sir henry
Отвечает THE_PRO
ОїЅОїЅОїЅОїЅОїЅОїЅ ОїЅОїЅОїЅОїЅ, ОїЅОїЅОїЅОїЅОїЅОїЅОїЅ!
Ответ отправлен: 13.01.2004, 09:49
Отправитель: THE_PRO
Отвечает samum2000
Здравствуйте, евгений!
>выбранная дата автоматически содержала системную дату
Имеешь в виду чтобы была выбрана системная дата? Тогда в нужном месте (например, при создании формы) вставляешь строку такого вида:
Datetimepicker1.DateTime:=date;
Это сделает выбранной текущую системную дату.
Ответ отправлен: 14.01.2004, 09:00
Отправитель: samum2000
| Вопрос № 1241 |
Kak mojno vizvat function iz DLL bez
function Name:booelan; external \'name.dll\'
Nujno chto to vrode:
procedure MyProc;
var funcName, DLLName:string;
begin
funcName:=\'string\';
DLLName:=\'string\';
//call function: funncName
end;
Вопрос отправлен: 13.01.2004, 11:38
Отправитель: THE_PRO
[Следующий вопрос >>] [Список вопросов]
Отвечает Pawel
Приветствую Вас, THE_PRO!
Из под delphi по-мойму так нельзя.
Ответ отправлен: 13.01.2004, 20:01
Отправитель: Pawel
Отвечает CJ
Приветствую Вас, THE_PRO!
Я думаю нельзя, т.к. функция объявляется ранше всех процедур!
А зачем тебе это???
Ответ отправлен: 13.01.2004, 21:10
Отправитель: CJ
Отвечает vitya
Здравствуйте, THE_PRO!
Загружаешь DLL через LoadLibrary, а потом находишь адрес своей функции через GetProcAddress.
В дельфи это скорее всего будет как-то так (см приложение).
Если я что-то написал не так, то в help-е будет пример это точно.
Приложение:
Ответ отправлен: 14.01.2004, 08:46
Отправитель: vitya
Отвечает Boriss
Приветствую Вас, THE_PRO!
Неясно, зачем это нужно, но нужно либо имя, либо адрес функции в памяти - так уж устроен Delphi (Pascal)
Ответ отправлен: 15.01.2004, 10:15
Отправитель: Boriss
| Вопрос № 1242 |
Доброе время суток!!
Очень благодарен Вам за ответ!!
Но я только начинаю все это познавать поэтому не могли ли вы подробней расписать кто за что в этой проге отвечает,я пытался переделать ее под другой формат файла ничего не вышло.Надеюсь на вашу помощь.С уважением Антон.
...
var
...
f:text;
...
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
s1:string[6];
i:integer;
begin
StringGrid.Cells[1,0]:=\'Дата\';
StringGrid.Cells[2,0]:=\'Время\';
i:=0;
AssignFile(f,\'inform.txt\');
reset(f);
repeat
inc(i);
readln(f,s);
delete(s,1,5);
s1:=s;
StringGrid.Cells[1,i]:=s1;
delete(s,1,13);
StringGrid.Cells[2,i]:=s;
StringGrid.Cells[0,i]:=IntToStr(i);
until eof(f);
closeFile(f);
end;
****
...
Вопрос отправлен: 13.01.2004, 18:52
Отправитель: антон (oven_mars@rambler.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Pawel
Добрый день, антон!
Без проблем.
...
var
...
f:text; // Контекст нашего фаила по старой привычке это тип TEXT
...
procedure TForm1.Button1Click(Sender: TObject);
var s:string; // Сюда будем записывать строки из фаила
s1:string[6];// Сюда будем писать первые 6 символов строки
i:integer; // счётчик
begin
StringGrid.Cells[1,0]:=\'Дата\';
//cells[столбец,строка]:strung
StringGrid.Cells[2,0]:=\'Время\';
i:=0; // :)))
AssignFile(f,\'inform.txt\');
reset(f);
repeat
inc(i);
readln(f,s); //читаем
delete(s,1,5);// удаляем из строки первые 5 символов
s1:=s;// первые 6 символов пишим в s1
StringGrid.Cells[1,i]:=s1;
//заносим в StringGrid в первую колонку s1
delete(s,1,13); //удаляем из s первые 13 символов
StringGrid.Cells[2,i]:=s;
//заносим в StringGrid во вторую колонку s
StringGrid.Cells[0,i]:=IntToStr(i);
//заносим в StringGrid в нулевую колонку номер строки
until eof(f); // если конец фаила то закончим цикл
closeFile(f); // закрыть фаил
end;
****
...
Ответ отправлен: 13.01.2004, 19:54
Отправитель: Pawel
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (24) C / C++ (17) Perl (4) Builder / Delphi (18) Pascal (19) Basic / VBA (5) Java / JavaScript (5) PHP (13) Криптография (5) WinAPI (12) |
Пользователю Windows 95/98/Me (40) Windows NT/2000/XP (58) "Железо" (30) Поиск информации (20) |
Администратору Windows NT/2000/XP (28) Linux / Unix (10) |
Юристу Гражданское право (14) Семейное право (10) Трудовое право (11) КоАП (10) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
