Форум: "Потрепаться";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Вниз

Так уж повелось...   Найти похожие ветки 

← →
Adder   (2002-01-08 07:25) [4]

Не сойдет ж8:Р
Но раз ты пишешь string - тогда будем жульничать. Не буду я тебе длину вычислять - я ее просто получу :-)

Для PAS-строки длина хранится в байте St[0].

Для "длинных" AnsiString:

function GetAnsiSize(const st:string):integer;
var PSize:Pointer;
begin
if pointer(st)<>nil then
begin
PSize:=pointer(integer(pointer(st))-4);
result:=integer(PSize^);
end
else result:=0;
end;

---

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

Форум: "Потрепаться";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c