Тип с плавающей запятой с наивысшей емкостью и точностью

Как вы уже знаете, программы на C++ хранят переменные в памяти. Указатель представляет собой адрес памяти, который указывает (или ссылается) на определенный участок. Из урока 10 вы узнали, что для изменения параметра внутри функции ваша программа должна передать адрес параметра (указатель) в функцию. Далее функция в свою очередь использует переменную-указатель для обращения к участку памяти. Некоторые программы, созданные вами в нескольких предыдущих уроках, использовали указатели на параметры. Аналогично этому, когда ваши программы работают с символьными строками и массивами, они обычно используют указатели, чтобы оперировать элементами массива. Так как применение указателей является общепринятым, очень важно, чтобы вы хорошо понимали их использование. Таким образом, этот урок рассматривает еще один аспект применения указателей. К концу данного урока вы освоите следующие основные концепции:

• Для простоты (для уменьшения кода) многие программы трактуют символьную строку как указатель и манипулируют содержимым строки, используя операции с указателями.
• Когда вы увеличиваете переменную-указатель (переменную, которая хранит адрес), C++ автоматически увеличивает адрес на требуемую величину (на 1 байт для char, на 2 байта для int, на 4 байта для float и т.д.).
• Ваши программы могут использовать указатели для работы с массивами целочисленных значений или значений с плавающей точкой.

Операции с указателями широко используются в C++. Выберите время для эксперимента с программами, представленными в этом уроке.

(читать всё…)

В предыдущих статьях я рассказывал о технологиях, с помощью которых создается сайт, о веб-дизайне, о регистрации доменного имени и получении хостингового пространства, о языках веб-программирования и о тематике вашего сайта, значит теперь можно считать, что ваш сайт уже готов к началу своей жизни. Да, именно своей жизни, я считаю, что у каждого сайта своя судьба, в переносном конечно смысле, и своя жизнь. Успех сайта во многом зависит, я думаю от его хозяина. Даже если на сайте будет огромное количество полезных вещей и информации, если его не раскрутить, здесь не будет посетителей. О раскрутке, как таковой, я расскажу в следующих статьях, а в этой мне бы хотелось рассказать о первичном наполнении сайта, о начале раскрутки и тактике приобретения сайтом известности.

(читать всё…)

var
 i: integer; //создавал "левую" переменную, которая ничего не делает
begin
 try
 ... //тут выполнялся мой код какой-то
 except
 {далее идет обработка ошибки. Помести то что идет после
 except в код туда, что "провоцирует" ошибку}
 on EAccessViolation do
  //блок begin...end в данном случае необязателен. Это у меня просто 
  привычка после do писать его 
  begin
   i:=1;
  end;
 end;

unit Unit1;

interface

uses    ThdTimer,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private t:TThreadedTimer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=TThreadedTimer.Create(self);
 t.Interval:=1000;
 t.OnTimer:=Timer1Timer;
 t.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Caption:=TimeToStr(now);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 t.Enabled:=false;
end;

end.

    if FOwner<>nil then
     FOwner.FOnTimer := nil; // AV

function QBass_GetTime(const Channel: DWORD): DWORD; stdcall;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  result := 0;
  pPos := BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
   Alltime := Trunc(BASS_ChannelBytes2Seconds(Channel, pPos));
   Result := Alltime;
  end;
end;

var
  mch: dword;
  lng: dword;
begin
  mch := BASS_StreamCreateFile(false, pointer(fname), 0, 0, 0 );
try
  lng := qbass_gettime(mch);
  // тут преобразовывай время в строку
finally
  bass_streamfree(mch);
  mch := 0;
end;
end;