SetString, процедура

Синтаксис


procedure SetString(var Str:  string; Buffer: PChar; Length: Integer);

Описание

Процедура SetString устанавливает длину Str равной Length, затем копирует Length символов из Buffer в строку. SetString не является настоящей процедурой.

Ошибки

Советы и приемы

  • Если Str - длинная строка, SetString всегда создает новую строку, таким образом, Str сохраняет свое уникальное значение.
  • Str может иметь тип ShortString, в этом случае Length должна быть меньше 256.
  • Buffer может быть равно nil, в этом случае длина строки меняется, а содержимое остается неинициализированным. В случае ShortString предыдущее содержимое строки остается нетронутым.

Пример


// Получаем дескриптор экземпляра или исполняемого модуля и
// возвращаем соответствующее имя файла. Заметьте, что
// Delphi автоматически преобразует PChar в строку, однако
// она должна просканировать PChar для определения длины
// строки. GetModuleFileName возвращает длину строки,
// поэтому необходимости сканировать строку нет.
function GetModuleName(Instance: THandle): string;
var
  Len :  Integer;
  Buffer:  array[0..MAX_PATH] of Char;
begin
  Len := GetModuleFileName(HInstance, Buffer, SizeOf(Buffer));
  SetString(Result, Buffer, Len);
end;

Смотрите также

Процедура SetLength.
    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник



Нет комментариев.


Оставить комментарий:
Ваше Имя:
Email:
Антибот: *  
Ваш комментарий: