Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.11.08;
Скачать: CL | DM;

Вниз

ansistring   Найти похожие ветки 

 
redlord   (2009-09-23 02:00) [0]

всем привет.
народ подскажите
как узнать сколько байт в переменной типа s3:ansistring занято данными, а не сколько было зарезервировано в результате выполнения
setlength(s3,512)

var
s1,s2:pansichar;
sansi:ansistring;
s3:ansistring;
sstr:string;
begin
   sstr:="g:\";
   sansi:=sstr;
   s2:="1.txt";

  setlength(s3,512);
 
  if SearchTreeForFile(addr(sansi[1]),s2, addr(s3[1])) =true then
  begin
    sstr:=s3;        
    showmessage(sstr);
  end;

end;

p.s.
это не рабочий код , а попытка понять что к чему,
поэтому много лишних перетусовок.
пример для delphi 2009


 
Германн ©   (2009-09-23 02:46) [1]


> redlord   (23.09.09 02:00)
>
> всем привет.
> народ подскажите
> как узнать сколько байт в переменной типа s3:ansistring
> занято данными, а не сколько было зарезервировано в результате
> выполнения
> setlength(s3,512)

Все что было зарезервировано, всё занято данными.
Прочие ответы после четкой формулировки вопроса и представления реализации функции SearchTreeForFile.


 
brother ©   (2009-09-23 04:37) [2]

> setlength(s3,512)

s3 имеет длину 512 байт.

> Прочие ответы после четкой формулировки вопроса и представления
> реализации функции SearchTreeForFile.

а там признак #13#10 или #10#10 не может быть если было присвоение? или длинна урежется?


 
Anatoly Podgoretsky ©   (2009-09-23 09:20) [3]


> как узнать сколько байт в переменной типа s3:ansistring
> занято данными, а не сколько было зарезервировано в результате
> выполнения
> setlength(s3,512)

512 и плюс один байт терминатор ASCIIZ



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
2-1253184578
vegarulez
2009-09-17 14:49
2009.11.08
Просьба не банить.


15-1252269007
Юрий
2009-09-07 00:30
2009.11.08
С днем рождения ! 7 сентября 2009 понедельник


2-1253601055
d@vinchi
2009-09-22 10:30
2009.11.08
Доступ к переменной главного потока?


2-1253675081
vturkevich
2009-09-23 07:04
2009.11.08
Надстройки для Парус 7 созданные в дельфи в Дельфи


15-1252387473
pavel_guzhanov
2009-09-08 09:24
2009.11.08
Кто-нибудь собирается на семинар?