Обсуждение программирования на Delphi в конференции ru.delphi

Привет, Youra!








RTFM FindFirstChangeNotification, FindNextChangeNotification

WBR, Eugene mailto: www.tld.by [@] gmail*com

* Origin: Говорящая флора - это неправильно в принципе! (2:450/118.24)




Hello, Milchenko!
You wrote to All on Thu, 1 Sep 2005 05:48:27 +0000 (UTC):



Ты точно уверен, что ты хочешь передавать указатели? Какой в этом смысл?

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)




Здравствуйте, M..

Вы писали 20 августа 2005 г., 16:49:03:









Дальнейшее нагло выкину....

--
Здравствуйте, M..
Соглашусь, что очень стабиная, но не _абсолютно_, к
сожалению... Почему? Иногда (у меня) бывают глюки ide*.bpl,
заставляющие закрывать/открывать заново IDE. А вчера глюк был при
компиляции. В окошке "Build" появилось сообщение "License has
expired". Можно было бы грешить на пиратов/переводчиков и иже с ними,
но не на _официально купленном_ пакете....
Собсно по сабжу...Из old-ver склоняюсь больше к D3, т.к. линкер с
компилером совместимы с MSVC. В плане драйверов уровня ядра. (По
крайней мере, я не могу на D7 собрать такой драйвер _работающим_)
Вот!
--
С уважением, Михаил Булгаков (ICQ - 306337332)


Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru

* Origin: Talk.Mail.Ru (2:5020/400)


Хэлоу, Andrey!

29 авг 05 22:42, Andrey Dudko wrote to Anatoly Podgoretsky:


















Есть подозрение, что у оптимизатора сносит крышу от криво построенных условий. При такой модификации процедуры, оптимизатор отрабатывает корректно:

function TForm1.GetParamValue(const sParam: String): String;
var
b: Boolean;
i: Integer;
begin
b := False;
if Assigned(FParamValueSupplier) then
b := FParamValueSupplier.GetParamValue(sParam, Result);
if not b then begin
i := FOutDoc.Params.IndexOfName(sParam);

if b then
Result := FOutDoc.Params.ValueFromIndex[i]
else
Abort;
end;
ParamFound(sParam);
end;

В данном случае, можно обойтись и без локальной переменной:

function TForm1.GetParamValue(const sParam: String): String;
var
i: Integer;
begin
if not (Assigned(FParamValueSupplier) and FParamValueSupplier.GetParamValue(sParam, Result)) then begin
i := FOutDoc.Params.IndexOfName(sParam);

Result := FOutDoc.Params.ValueFromIndex[i]
else
Abort;
end;
ParamFound(sParam);
end;

Бу!
Dimk

* Origin: Twilight Zakamsk (2:5054/45)




Hello, Dmitry!
You wrote to Andrey Dudko on Fri, 02 Sep 2005 14:09:46 +0400:





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

Это в вольном переводе. А вот понять что неправильно не так просто.

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)




Хаю ду ю ду Острожинский Сергей?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:








Могу посоветовать все-таки подправить реестр ибо юзер только спасибо
скажет - без этого исправления даже копирование в самой windows
глючит:
Hапример, если скопировать из свойств ярлыка путь содержащий русские
буквы и вставить его затем, например, в WIN+R то нифига хорошего не
получиться - те же вопросы. (win2k sp4)

--
Только по темноте своей народ надеется на светлое будущее.
Я и мои соседи слушаем: Second Hand Band - Groove of The Nation
Alexander Tomilov E-mail: asteroid (at) perm (dot) raid (dot) ru
Форум не обо всем, но многом: sforum.hut1.ru/forum/

* Origin: Asteroid Software (2:5020/400)






У меня есть "выбранные записи" из "базы данных", ...данные разного типа:
01. blob`ы;
02. memo;
03. Integer, Byte, TDate;
03. Boolean;
04. String (PChar) и т.д.

Мне нужно это все переслать по локальной сети на др. компьютер
(TClientSocket/TServerSocket).

Я решил все данные загнать в массив (что бы избежать содания временных файлов
с выбранными данными) ...и из массива конвертировать в TStream, потом TStream
запакавать через Z-Lib и отправить на др. конец провода...


P.S. Хочу выразить признательность всем, кто не проигнорировал этот топик!!!

ERrorMAKros

* Origin: FidoNet Online - www.fido-online.com (2:5020/400)




Alexander Tomilov пишет:















[..]


Скажет ли? Либо у юзера кривые руки, и он не может нормально человеческую
кодировку выставить (пару кликов мышой), тогда это лечится залечиванием юзера :)
либо ему изначально не нужна русская кодировка, а ковырянем в реестре можно
доставить ему массу неприяных впечатлений.

Лучше выставить русскую кодировку в самой проге (font.charset := RUSSIAN_CHARSET)

--
Alexander Grischenko

* Origin: Demos online service (2:5020/400)




Fri Sep 02 2005 17:40, Alexander Grischenko wrote to Alexander Tomilov:


















Я повторю еще раз, лазить в реестр неприемлемо для наших задач, из всяких не
относящихся к Дельфи соображений. Совет Андрея Рязанова заставить юзера
исправить Regional Options гораздо приемлемей, спасибо ему. Hо остается
надежда как-то сделать так, чтобы работало и без этого...




А вот это первое, что я попробовал, не помогает.

* Origin: FidoNet Online - www.fido-online.com (2:5020/175.2)




Hello, Milchenko Alexandr!
You wrote to Anatoly Podgoretsky on Fri, 2 Sep 2005 13:22:52 +0000 (UTC):





В массив занать можно, но в статический, а данными переменной длины, посылай в начале блока размер.

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)