Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Удаление файла в корзину
Категория: Файловая система
Категория: Файловая система
Удалить пробелы в начале и конце
Категория: Текст и строки
Категория: Текст и строки
Взять часть URL, которая следует после названия сайта
Категория: Интернет и Сети
Категория: Интернет и Сети
Вывод текста на канву Canvas
Категория: Компоненты
Категория: Компоненты
Перекодировка в DBASE
Категория: Базы данных
Категория: Базы данных
Как произвести поиск файлов во вложенных папках
Категория: Файловая система
Категория: Файловая система
Поиск по EasyTable
Категория: Базы данных
Категория: Базы данных
Находится ли мышь над формой
Категория: Компоненты
Категория: Компоненты
Компонент StatusBar
Категория: Компоненты
Категория: Компоненты
Процедуры и функции для рабты с файлами
Категория: Файловая система
Категория: Файловая система
Delphi - Справочник: SetString
SetString
|
procedure SetString ( var TargetString : string; BufferPointer : PChar; Length : Integer ) ; |
Процедура (Unit System)
|
Копирует символы из буфера в строку
|
Описание:
|
Процедура SetString меняет длину TargetString на Length перед копированием этого количества символов из буфера, заданного переменной BufferPointer. Длина меняется только в том случае, если строка не типа ShortString. Фактически, память под строку перераспределяется - ссылка на TargetString указывает на эту новую строку. |
Пример кода: Простой пример
|
var target : string; source : array[1..5] of Char; srcPtr : PChar; i : Integer; begin // Заполнение массива символов for i := 1 to 5 do source[i] := Chr(i+64); // Копирование этих символов в строку srcPtr := Addr(source); SetString(target, srcPtr, 5); // Показываем, что мы имеем ShowMessage('target теперь = '+target); end;