Пьяный дельфин от 05 января 2001

Hi !

С Новым Годом !

Дальфин плавно пересекает границу веков, поддерживаемый своими соавторами. По поводу праздника - лауреатов назначать не буду :-)


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

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

24.12.2000 Vlad Laskoff

1. Как установить пpи написании на API установить Align к пpимеpу в alRight или в alClient?

26.12.2000 Petya Gaibura

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

26.12.2000 Igor Orlov

wuku> подскажите как программно скроллить TMemo
wuku> Perform(WM_VSCROLL не помогает

Зачем же так глубоко :)

У МЕМО есть проперть Lines, у лайнеса есть методы: function IndexOf(const S: string): Integer - получение текущего индекса procedure Move(CurIndex, NewIndex: Integer) - установка новой позиции.

27.12.2000 Aleksey Tikhonov

> 05.12.2000 Alexander Kudrikov
> =============================
>
> > try
> > if (...) then Exit;
> > finally
> > end;
>
> > По идее финальная секция должна отрабатывать по
>
TT> НЕ ДОЛЖНА!
TT> При возникновении исключительной ситуации внутри секции try finally
TT> код за
TT> finally выполняется сразу после ошибки и Raise продвигается дальше.
TT> Без
TT> ошибки код просто выполняется. Exit не генерит ошибки и ,
TT> следовательно, не
TT> должна попадать на finally.

А вот и нет!
Следующий код в Delphi 5.0:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
exit;
finally
ShowMessage('Попал в блок finally.');
end;
end; Прекрасно у меня работает и выдает соответствующее сообщение.

27.12.2000 Petya Gaibura, Gavrilo

MJV> Скоро должна выйти 3-я версия. Обещают даже восстанавливать полную
MJV> техническую и проектную документацию по декомпилируемой программе.
MJV>
MJV> Ознакомительную версию можно скачать тут:
MJV> http://www.achtungbebi.de/exereverse
MJV>

Так вот ззнай нет там такой проги.

27.12.2000 winsor@unitrade.kiev.ua

> Не может ли глубокоуважаемый джинн :) поделиться секретом, как он писал в конец
> _запущенного_ ехе-файла?

может. попробуй открыть файл в режиме fmOpenReadWrite + fmShareCompat

02.01.2001 Yevgeniy Morgenshtern

  label a1;
  var fail:boolean;
begin
a1:
  try
    "Пpовеpка"
    fail:=false;
  except
    on E:Exception do fail:=True
  end;
  if fail then goto a1;
end;

03.01.2001 Кораблев И.Г.

>Как заставить кнопку окна в панели задач мигать (как, например, это
>происходит при возникновении системного сообщения об отсутствии бумаги в
>принтере) ?

По таймеру (0,5 сек ) менять цвет....

03.01.2001 Alex D Drugov

О Олл, не подскажешь ли как мне разлажить строку "привет" в массив [1..200] of char?

05.01.2001 Anton Vorontsov

уже два месяца pаботаю над созданием искусственного интеллекта.

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