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

Вниз

Массивы   Найти похожие ветки 

 
Neket   (2007-01-04 16:46) [0]

Подскажите как можно присвоить массиву   szTip: array [0..63] of AnsiChar; обычную строковую переменную кроме как

s:="Wazuuuup!!!"
For i:=1 to length(s) do
szTip[i]:=s[i];


 
ors_archangel ©   (2007-01-04 16:52) [1]

Должно работать такое

 Move(s[1],szTip[0],length(s)+1);

но лучше

if s = nil then
 szTip[0] := #0
else
 Move(s[1],szTip[0],length(s)+1);

иначе, если s - пустая строка, то в szTip будт не понять что, это можно игнорировать только если известно, что szTip проинициирован нулями (ведь нам нужен ASCIIZ, да?), а ещё лучше

if s = nil then
 szTip[0] := #0
else
 Move(s[1],szTip[0],max(length(s)+1,length(szTip)-1));

чтобы не было "переполнения", в этом случае при length(s) > length(szTip) получаем ASCIIZ, где конечный ноль будет записан в szTip[high(szTip)].
з.ы. Наверно, есть ещё методы, но этот хотя бы от ошибок защищён


 
begin...end ©   (2007-01-04 17:32) [2]

StrLCopy(szTip, PChar(s), Pred(sizeof(szTip)))



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

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.043 c
15-1167591950
Piroxyline
2006-12-31 22:05
2007.01.21
С наступившим!


15-1167600067
Ученик чародея
2007-01-01 00:21
2007.01.21
ЫЫЫыыыыыы... А вы говорите об образовании...


15-1166961630
Ученик чародея
2006-12-24 15:00
2007.01.21
Теория пяти процентов


15-1167650853
zayatz
2007-01-01 14:27
2007.01.21
Отказ от празднования нового года


2-1167119945
o_serg
2006-12-26 10:59
2007.01.21
Драйвер с обработкой прерывания





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский