Вопросы по Delphi 2 - [62] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006

RedPromo

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Дак у меня тоже самое после включения флага, только отрабатывает прога дата меняется а потом когда свойство открываеш меняется, это не антивирус это и есть оно система меняет дату последнего доступа.
Сейчас посмотрю ДрВеб.

Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 12:33 17-10-2006 | Исправлено: RedPromo, 13:05 17-10-2006

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору rs Именно так и получается (в реестре значение не стоит). Вот код процедуры Если нужен весь проект и exe - кинь в ПМ мыло FILE_WRITE_ATTRIBUTES взято из JediAPI
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 13:04 17-10-2006 \| Исправлено: RomanTim, 13:06 17-10-2006

rs

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

RomanTim
так ты поставь в реестре значение...

Добавлено:
RedPromo

Цитата:

а потом когда свойство открываеш меняется, это не антивирус это и есть оно система меняет дату последнего доступа.

нет, когда я смотрю даты доступа заведомо старых файлов в свойствах файла - я вижу именно старые даты доступа, а не текущие

Добавлено:
RomanTim
см. ПМ

Всего записей: 1344 | Зарегистр. 19-04-2003 | Отправлено: 13:14 17-10-2006

RedPromo

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

rs
А чем ты смотриш, дело втом что если я смотрю через файл свойство то дата после закрытия окна свойства тут же и обновляется. Тоесть приложение которым ты смотриш может тоже невидимо от тебя изменять дату последнего доступа.
Поэтому и мой пример и пример RomanTim работает нормально проверил свключенным флагом. При условии что смотрелка будет не видновзная.
Вот и вся проблема то. На то это и флаг последнего доступа, просто приложения кстати тотал тоже что интересно меняет это дату правда как то странно не у всех сразу файлов, наверно это какойто плагин фалы открывает.

Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 13:51 17-10-2006 | Исправлено: RedPromo, 13:55 17-10-2006

rs Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RedPromo far-ом смотрю - ctrl-a
	Всего записей: 1344 \| Зарегистр. 19-04-2003 \| Отправлено: 13:55 17-10-2006

RedPromo

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Да все нормально вроде и у фара у меня при включеном флаге все показывает и не сбрасывает дату.

Добавлено:
А у тебя плагины на фаре стоят?
МОжет это они тебе рубят всю капусту.

Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 14:07 17-10-2006 | Исправлено: RedPromo, 14:09 17-10-2006

rs

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

RomanTim
всё получил, работает как надо! проект собранный в D7 тоже работает правильно.

большое спасибо - вопрос закрыт!

Добавлено:
RedPromo

Цитата:

А у тебя плагины на фаре стоят?
МОжет это они тебе рубят всю капусту.

наоборот - я говорил о том, что far ничего не портит

ps
см выше - всё решено

Добавлено:
RomanTim
слушай, у тебя там ссылка на JwaWinNT, у меня такой нет - я просто заменил на JclWin32 из JediLib.310

но откуда у тебя JwaWinNT? - у меня в JediLib.310 такого файла нет...

Всего записей: 1344 | Зарегистр. 19-04-2003 | Отправлено: 14:44 17-10-2006

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору rs На Jedi лежит JediAPI: http://www.delphi-jedi.org/APILIBRARY:304666 Не самая свежая, конечно, но вполне хватает (самой jvcl не пользуюсь)
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 15:19 17-10-2006

RayZ

Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Добрые люди,...
Работаю с MySQL через MyDAC/

В Датамодуле DataModule1 cуществует некоторая таблица TMyTable, приконекчена к серваку через TMyConnection.

Скажу даже проще. Есть где-то 11 таблиц, однотипных достаточно, с некоторым различием в полях. Все работают нормально, отдают, принимают данные.

Собирась сгенерировать сразу несколько сложных запросов по всем таблицам, имена которых записаны в массиве obj_tables.

Код:

// CTable : TMyTable;
CTable := TMyTable(DataModule1.FindComponent(obj_tables[i]));

// CTable.Fields.Count = 22, как показала разведка в процессе отладки.
for J := 0 to CTable.Fields.Count - 1 do begin
// CFieldName: String;
CFieldName := CTable.Fields.FieldByNumber(J).FieldName;
// На вышестоящей строчке AV
...
end;

По идее, все должно работать... Не могу в упор понять, почему не можем получить имя поля

Количество полей значит, отпускаем, а имена - нет?.

Помогите, пжалста.

Всего записей: 381 | Зарегистр. 10-04-2002 | Отправлено: 05:06 18-10-2006

ArtemiyUO Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору А почему вы используете старье в виде - TMyTable, а не нормальный компонент TMyQuery? Учите СКЛ, забудьте про ТХХХТабле.
	Всего записей: 539 \| Зарегистр. 12-12-2005 \| Отправлено: 07:26 18-10-2006

RostY Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RayZ а так не пробовал ? CFieldName := CTable.Fields[J].FieldName;
	Всего записей: 387 \| Зарегистр. 11-01-2006 \| Отправлено: 09:11 18-10-2006

RayZ

Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

ArtemiyUO, потому что именно так нужно было

Цитата:

TMyTable provides properties and methods to gain direct access to records and fields in an underlying server database without writing SQL statements.

RostY, и действительно... Как-то не по людски делал. Спасибо.
Я уже пошел другим путем, который так же оказался работающим:

CFieldName := CTable.FieldDefs.Items[J].Name;

Всего записей: 381 | Зарегистр. 10-04-2002 | Отправлено: 10:52 18-10-2006

santila777

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Пиплы помогите решить простенькую задачку, нужно сделать такую вещ:
Есть 2<=M<=N<=300000
M и N задаются как константы в программе
Программа после запуска выводит на экран все простые числа из диапазона от M до N (включительно M и N)
Если простых чисел в этом диапазоне нет, то выводит «Absent»
Пример эм=2 эн=4, выводит 3
Эм=4, эн=4, выводит Absent
Как это будет выгледить в кодинге?Заранее фенк..

Всего записей: 4 | Зарегистр. 30-09-2006 | Отправлено: 11:07 18-10-2006

Bugriy Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Как импортировать библиотеку типов в Delphi 10? В меню project нет пункта import Type Library.
	Всего записей: 226 \| Зарегистр. 24-08-2005 \| Отправлено: 11:38 18-10-2006

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Bugriy Component - Import Component и там уже есть Import Type Library
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 11:57 18-10-2006

Bugriy Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RomanTim Нет у меня там пункта Import component. Есть New VCL component и Install Packages.
	Всего записей: 226 \| Зарегистр. 24-08-2005 \| Отправлено: 12:19 18-10-2006

Jokerjar

BANNED

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

santila777, вот держи

program Proga;

{$apptype console}

const
M = 1;
N = 25;

var
b: boolean;
i: integer;

function IsProstoe(a: integer): boolean;
var
i: integer;
begin
if a<=2 then exit;
result := true;
for i := 2 to a - 1 do
if a mod i = 0 then
begin
result := false;
exit;
end;
end;

begin
b:=false;
for i:= M to N do
if IsProstoe(i) then
begin
writeln(i);
b:=true;
end;
if not b then
writeln('Absent');
readln;
end.

Надеюсь, это то, что тебе нужно

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 14:10 18-10-2006 | Исправлено: Jokerjar, 14:23 18-10-2006

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Bugriy Должен быть... Может кривой дистрибутив делфи, может установилось коряво Jokerjar Заверни код в [more]
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 14:28 18-10-2006 \| Исправлено: RomanTim, 14:29 18-10-2006

santila777 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Jokerjar от души
	Всего записей: 4 \| Зарегистр. 30-09-2006 \| Отправлено: 15:02 18-10-2006

OrlangurStep Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подскажите не могу понять, почему не после выполнения процедуры SetNewField не изменяется значение поля Номер. Проект быложен тут
	Всего записей: 1392 \| Зарегистр. 08-04-2006 \| Отправлено: 18:23 18-10-2006

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC