Пьяный дельфин от 1 декабря 2000

Hi !

Ну вот, почти за месяц набрали на полноценный выпуск. А как все начиналось ... Лауреатом стал Dmitry Lapchuk, огласивший ряд недокументированных интимных подробностей из жизни компиляторов:

Почемy напpимеp y gcc нет таких пpоблем, а Delphi3 и TurboPascal 7.0 конкpетно сосyт?

Я уж было подумал, что наберем на выпуск за неделю, ан нет, как отрезало.
Ну, а литературную премию имени Д.Самойлова получает S. Karelsky, за рекорд по удельному количеству ошибок на байт текста:

К песьму цыпляю


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

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

08.11.2000 Dmitry Lapchuk

procedure TFEGoods.Edit1Exit(Sender: TObject);
var
  i:integer;
  s:string;
label
  notvalid;
begin
  s:=Edit1.text;
  for i:=1 to length(s) do begin
    case i of
      1..5:
        if not (s[i] in ['A'..'Z']) then
        goto notvalid;
      6..10:
        if not (s[i] in ['0'..'9']) then
        goto notvalid;
      else
        goto notvalid;
    end;
  end;
  if false then begin
    notvalid:
    Edit1.text:=Edit1s;
  end;
end;

 ...
P.S. Пахнет отстоем...

14.11.2000 Dmitry Lapchuk

Почемy напpимеp y gcc нет таких пpоблем, а Delphi3 и TurboPascal 7.0 конкpетно сосyт?

20.11.2000 Timur Sementchuk

Какую команду надо ввести, чтобы программа, созданная на языке Дельфи, выгружала из памяти нужную программу (под памятью понимается следующее:
Если в Винде нажать три кнопки-перезапуска, то появится окно, в котором будут имена загруженных программ)

21.11.2000 Sergey Kabikov

Дело в том, что для TAutoObject вроде бы гарантируется (на уровне компилятора, наподобие строк) убиение обьекта, на который уже нет указателей.

22.11.2000 Dmitry Fedorov

Как затолкать и время и дату в одну переменную станартными средствами Дельфи? мне пока на ум токо пришло создать свой тип записи с полями даты и времени, но мне кажется что я велосипед изобретаю ..... :((

24.11.2000 S. Karelsky

К песьму цыпляю

26.11.2000 KEO

Hет ли в Дельфи какого-нить пpиема, поволяющего обpатиться к пеpеменной не пpямым указанием ее имени, а каким-нить извpащенным способом.

27.11.2000 Ivan Grigoriev

procedure SpeedButton4Click(Sender: TObject);
var
S1:PChar;
begin
  GetMem(S1, 255);
 if OpenDialogI.Execute then
  begin
    StrPCopy(S1,OpenDialogI.FileName);
    WinExec(S1,SW_Show);
  end;
  FreeMem(S1, sizeof(S1^));
end;

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