ООП

[VladimirVB]

Здравствуйте. При создании объектной переменной s2 появляется ошибка при выделении памяти. Что неправильно?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  SIZE = 255;
type
  TStrType = class
    strict private
      p: PChar;
      len: Integer;
    public
      constructor Create(ptr: PChar);
      destructor Destroy; override;
      procedure Show;
  end;

{ TStrType }

// инициализация объекта строка
constructor TStrType.Create(ptr: PChar);
begin
  inherited Create;
  len := StrLen(ptr);
  try
    // при выделении памяти для s2 появляется ошибка
    GetMem(p, len + 1);
  except
    on EOutOfMemory do
      begin
        Writeln('Error allocation memory.');
        Abort;
      end;
  end;
  StrCopy(p, ptr);
end;

// Освобождение памяти при удалении объекта строка
destructor TStrType.Destroy;
begin
  Writeln('Free memory of address p');
  FreeMem(p);
  inherited;
end;

procedure TStrType.show;
begin
  Writeln(p, ' - length: ', len);
end;

var
  s1, s2: TStrType;

begin
  s1 := TStrType.Create('This is a check');
  s2 := TStrType.Create('I like a Delphi');

  s1.show;
  s2.show;

  s1.Free;
  s2.Free;

  Readln;
end.

[BOBAH13]

Все как обычно.

ошибка при выделении памяти

Какая ошибка ? Где ее описание, текст ? Или Вам Windows выкидывает окошко где написано 'Ошибка!' ? Ну если так только...
Еще, будьте так любезны, сообщить нам какая версия Delphi / Code Gear ?
Лучше бы сразу сделали так

len := StrLen(ptr) * sizeof(CHAR);

хотя в не уверен, что там CHAR выбирается компилятором, автоматически, ну т.е. для ANSI версии в 1 байт, а для Unicode в 2.

Edit:
mutabor: не ужели была необходимост еще раз, в двух строках продублировать мой пост ?

[mutabor]

GetMem(p, len*2 + 1);
Не забываем про юникод в Дельфи 2009. Или же используй PAnsiChar.

[mihali4]

Сообщение от BOBAH13

mutabor: неужели была необходимость еще раз, в двух строках продублировать мой пост ?

Вы на время создания постов смотрели? Сравните.
Вы просто одновременно с ним писали...
Что ж вы так переживаете? Никто ваши идеи себе не присваивает...

[VladimirVB]

Спасибо всем за советы. Проблема решена за счет использования PAnsiChar вместо PChar. Программа создавалась в Delphi 2009. А сам пример взят из книги Герберта Шилдта "Самоучитель C++". Только решил переделать пример из этой книги на Delphi.