Функция Length

← →
LongInt (2007-02-03 15:45) [0]

Может ли функция Length в каких-то случаях вернуть минусовое значение? Т.е. следует указывать только проверку на нуль?

Str := "123";
if Length(Str) <= 0 then Exit;

....

← →
Olivetti (2007-02-03 15:57) [1]

Может ли функция Length в каких-то случаях вернуть минусовое значение?

Нет.

procedure TForm1.Button1Click(Sender: TObject);
var a: string;
p: ^integer;
begin
a := "blablabla";
p := @a[1];
p := pointer (longint (p) - 4);
p^ := -10;

ShowMessage (inttostr (length (a)));
end;

:)

Функция Length Найти похожие ветки