Текущий архив: 2007.02.25;
Скачать: CL | DM;

Вниз

Функция 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 в каких-то случаях вернуть минусовое значение?

Нет.

---

← →
TUser ©   (2007-02-03 16:57) [2]

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;

:)

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.25;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.028 c