Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Label1.Caption:=s;

В справке написано, что функция FloatToStr преобразует число в строку с 15 десятичными цифрами – вот почему ваше число отображается столь причудливым образом, попробуйте эту функцию с числами типа 25.5, 25.25, 25.125 или подобными, которые имеют конечное представление в двоичной нотации, и эта проблема должна у вас исчезнуть.

Или используйте функцию FloatToStrF, которой в параметрах необходимо указать общую длину строки и количество десятичных цифр.

Здесь кроется небольшая хитрость: получение эквивалентной функциональности с помощью классового метода. Просто объявите NodeCount как регулярную типизированную константу в секции implementation вашего файла .

typeTNode = class

public

NodeCount: Integer = 0; {ЭТО НЕ ДОПУСКАЕТСЯ}

constructorCreate;

Class FunctionGetNodeCount : word;

{другой необходимый код}

end;

implementation

const

NodeCount : word = 0;

TNode.Create;

begin

inheritedCreate;

Inc(NodeCount);

end;

FunctionTNode.GetNodeCount : word;

begin

result := NodeCount;

end;

Итак, теперь ваш код может выглядеть так, как вы хотели:

SampleNode := TNode.Create;

x := SampleNode.GetNodeCount;

следующая строка также корректна:

x := TNode.GetNodeCount;

Nomadicсоветует:

B D2 и выше на самом деле используется тип LongString вместо String, а старый тип тепеpь обзывается ShortString (о чем, кстати, написано в help). Из того же help можно узнать, что указатель LongString указывает на nullterminated string и потому возможно обычное приведение типа LongString к PChar (о чем я и написал), которое сводится просто к смене вывески. Там же можно узнать, что длина строки хранится в dword перед указателем. Есть также намек на то, что при присваивании другой строке информация не копируется, а увеличивается только счетчик ссылок. Более подробную информацию можно почерпнуть из system.pas:

typeStrRec = record

allocSiz: Longint;

refCnt: Longint;

length: Longint;

end;

От себя добавлю:

Сама переменная LongString указывает на байт, непосредственно следующий за этой процедурой, там же находится собственно значение строки. Значение '' (пустая строка) представляется как указатель nil, кстати, поэтому сpавнение str='' это быстpая операция.

Теперь подробнее о счетчике ссылок. Я уже говорил, что при присваивании копирования не происходит, а только увеличивается счетчик. Когда он уменьшается? Ну, очевидно, когда в результате операции значение строки меняется, то для старого значения счетчик уменьшается. Это понятно. Более непонятно, когда освобождаются значения, на которые ссылаются поля некого класса. Это происходит в System. TObject.FreeInstance пpи вызове _FinalizeRecord, а информация берется из vtInitTable (кстати, здесь же очищаются Variant). Ещё более непонятно, когда освобождаются переменые String, которые описаны как локальные в пpоцедурах/функциях/методах. Здесь работает компилятор, которые вставляет эти неявные операции в код этой функции.

Тепеpь о типе PString. Hа самом деле переменные этого типа указывают на такие же значения, как и LongString, но для переменных этого типа для всех опеpаций по созданию/копиpованию/удалению нужно помнить об этих самых счетчиках ссылок. Иногда без этого типа не обойтись. Вот опеpации для этого типа (sysutils.pas):

{ String handling routines }

{ NewStr allocates a string on the heap. NewStr is provided for backwards compatibility only. }

functionNewStr( constS: string): PString;

{ DisposeStr disposes a string pointer that was previously allocated using NewStr.DisposeStr is provided for backwards compatibility only. }

procedureDisposeStr(P: PString);

{ AssignStr assigns a new dynamically allocated string to the given string pointer.AssignStr is provided for backwards compatibility only. }

procedureAssignStr( varP: PString; constS: string);

Можно отметить, что явно задать использование long strings можно декларацией

var

sMyLongString: AnsiString; // long dinamically allocated string

sMyWideString: WideString; // wide string (UNICODE)

sMyShortString1: ShortString; // old-style string

sMyShortString2: String[255]; // old-style string, no more than 255 chars

Хотелось бы также предупредить наиболее частные ошибки при использовании длинных строк:

• Если Вы передаёте указатель PChar на буфер, взятый от длинной строки, в функцию, которая может изменить содержание буфера, то убедитесь, что на этот буфер указывает только одна строка. Это верно в случаях сложения строк, вызова UniqueString или SetLength и некоторых других;