Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.11.08;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
15-1252854430
turbouser
2009-09-13 19:07
2009.11.08
С праздником всех!


2-1253858285
Johnnnn
2009-09-25 09:58
2009.11.08
IWebBrowser2 из webbrowser1.document.frames.item(i)


2-1253800991
N/O
2009-09-24 18:03
2009.11.08
вопрос по TClientDataSet


2-1253123104
GlowSolnce
2009-09-16 21:45
2009.11.08
TADOQuery + Access + Delete


15-1252276329
KilkennyCat
2009-09-07 02:32
2009.11.08
TTreeNode с Визибле-Невизибле





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский