Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
$LongStrings
Деректива компилятора
Обрабатывает тип string такие как AnsiString или ShortString unit
  
1. {$LongStrings Off}

2. {$LongStrings On}
Описание
Директива компилятора $LongStrings определяет, обрабатывает ли Delphi тип string как AnsiString, когда директива включёна (по умолчанию), или как ShortString когда выключена.

Значение по умолчанию признает, что общее использование типа string должно содержать данные, которые, вероятно, будут длиннее, чем 255 символов (вместимость ShortString).
Примечания
$LongStrings эквивалентен $H.

$LongStrings в вашем коде может использоваться множество раз, но это не рекомендуются (пример используется только в качестве иллюстрации).

$LongStrings On является значением по умолчанию
Похожие команды
$H  Обрабатывает строковые типы, такие как AnsiString или ShortString.

AnsiString  Тип данных, который содержит строку AnsiChar

ShortString  Определяет строку, содержащую до 255 символов

String  Тип данных, который содержит строку символов

 
Пример кода : Упаковка записи для уменьшения расзода памяти
var
  // Определение littleString, которая будет обработана как ShortString
  {$LongStrings Off}
  littleString : string;

  // Определение bigString, которая будет обработана как AnsiString
  {$LongStrings On}
  bigString : string;
begin
  // Показ размера небольшой строки - 256 байтов
  ShowMessageFmt('размер littleString= %d',[SizeOf(littleString)]);

  // Показ размера большой строки - 4 - указатель на текст
  ShowMessageFmt('   размер bigString = %d',[SizeOf(bigString)]);
end;
размер littleString = 256
размер bigString = 4
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия