StrLenLimit?

[VintProg]

Что из себя представляет, что она делает StrLenLimit?

[Utkin]

А где ты ее взял? Наведи на нее курсор, зажимай CTRL и кликай на нее .

[MaxNik2009]

Судя по названию, функция ограничивает длину строки.. А ты где ее выкопал (я не нашел такой)?

[Utkin]

Возможно это обертка над SetLength

[VintProg]

В SysUtils
:

// StrLenLimit:  Scan Src for a null terminator up to MaxLen bytes
function StrLenLimit(Src: PChar; MaxLen: Cardinal): Cardinal;
begin
  if Src = nil then
  begin
    Result := 0;
    Exit;
  end;
  Result := MaxLen;
  while (Src^ <> #0) and (Result > 0) do
  begin
    Inc(Src);
    Dec(Result);
  end;
  Result := MaxLen - Result;
end;

[Utkin]

Ищет в потоке символов размером MaxLen терминальный символ #0. Раньше для старых строк нижнюю границу определяли нулем на конце. Сейчас для строки имеется определенное поле, указывающее ее размер.

[Stilet]

Судя по коду эта функа вычисляет позицию первого символа #0 в строке.
Зачем она тебе понадобилась? Судя по всему она для внутреннего использования.

Сейчас для строки имеется определенное поле, указывающее ее размер.

Наоборот. Раньше в классическом паскале как раз было поле, содержащее длину строки, а сейчас (В Делфи) строка ASCIIZ.

[VintProg]

Иногда чужой код разбирать тяжело!

[Utkin]

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

Наоборот. Раньше в классическом паскале как раз было поле, содержащее длину строки, а сейчас (В Делфи) строка ASCIIZ.

Разве? А почему же так быстро определяется размер длинных строк?

[Stilet]

Utkin

Потому что в Делфи String самый хитрый тип
Компилятор может его компилировать с оптимизацией в зависимости от того как с ним работают. Поверь мне дзенить Строки Делфи весьма увлекательно - каждый раз что-нить новое найти мона