58. Пьяный дельфин от 12 октября 2001

Hi !

Ну уж не знаю, что бы делал в отчетном периоде, если бы не одна американская фирма

As you may be aware, the first patch update for Delphi 6 has been temoporarily removed from circulation.

Проект доступен в OnLine по адресу: http://podgoretsky.com/DrunkenDolphin.html
(спасибо Анатолию Подгорецкому)

[Почти] все нижеприведенные материалы являются безусловной авторской собственностью соответствующих соавторов

05.09.2001 Ura V Tobikov

Subj: dayofweek(date)

мн ув алл, есть какая нить функция/компонент ?

09.09.2001 Misha Cherkes

Прикольный трэд у вас :-)
Из пустого - в порожнее. Основы Object Pascal можно узнать из ВСЕХ книжек по эхотагу. Не секрет ведь, что все, обявленное в IMPLEMENTATION модуля видно в главном файле проекта "как свое".

12.09.2001 Sergey Verholantcev

Поставил вот 5 delphi, ну покопался в настройках и т.п. - в итоге сабж.
Т.е. при запуске проекта на исполнение - сначала вылезает dos-окно, а затем уже из него моя прога. Так же и при простом запуске готового exe-шника.

25.09.2001 Зинец Виктор

{DEFINE FORM1}

uses
  windows, frmMain,
{IFDEF FORM1}
  InputUnit in 'Form1\InputUnit.pas' {frmInput};
{ELSE}
  InputUnit in 'Form2\InputUnit.pas' {frmInput};
{ENDIF}

25.09.2001 Алексей А. Чистяков


query1.fieldbyname('nds_summa').ascurrency:=strtofloat(formatfloat('0.00',(0.2*query2.fieldbyname('nds_summa').ascurrency)))

27.09.2001 Borland

> As you may be aware, the first patch update for Delphi 6 has been
> temoporarily removed from circulation. An issue with variants was discovered
> after release that we consider serious enough to warrant removing the patch
> from public availability until the problem is resolved. To Anyone who may
> have downloaded the patch update already, please delete the update and do
> not distribute it further. Those who have already installed it, please be
> aware that in some instances, the use of variants with the update may cause
> unpredictable results in your programs. Our recommendation is that you
> return to the original Delphi 6 installation image from the CD.
> We intend to resolve this issue quickly and post a new patch as soon as
> possible.

28.09.2001 \"Roman\

Кое-что откапал...
просто для спарвки по поводу чтения заблокированного файла:

var Memory : TMemoryStream;
begin
  Memory := TMemoryStream.Create;
  try
    Memory.LoadFromFile('busyfile.dat'); // это он!
    ..
    Memory.Read(...); // Вы можете использовать методы чтения как у
файлов
    Memory.Seek(...);
    FileSize := Memory.Size;
    ..
  finally
    Memory.Free;
  end;
end;

Автор утверждает что:
"Данный способ никогда не открывает файл, а заместо этого создаёт копию его в памяти." © Juan Antonio Navarro Perez

30.09.2001 Alexandr Azhermachev

AR> В делфи - нет, в API есть...CharToOEM,OEMToChar , RTFM.

Чегой-то я всю хелпу пеpеpыл, но вот функции RTFM не нашел...

30.09.2001 Alex Anohov

Я этот десяток строк уже написал, но есть проблема когда идёт приём файла вс прога стоит, другие операции проводить нельзя. Я думаюесть два выхода, запихнуть всё это в поток или создать компонент.

10.10.2001 Alex Shpakovsky

OC> Вот такой вопpос. Что оптимальнее:
OC> if B then B := False;
OC> или пpосто
OC> B := False;

B:= not B;

Иконку в system tray (где часы) вставляют функцией Shell_NotifyIcon
Bye ... Тенцер А.Л. tolik@katren.nsk.ru
ICQ 15925834