Главная страница
    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.044 c
15-1167799269
Думкин
2007-01-03 07:41
2007.01.21
На юге Москвы пасмурно, на СЗ столицы.. , на Дальнем Востоке +5.


2-1168005405
Галинка
2007-01-05 16:56
2007.01.21
Как работать с юникодом


15-1167199238
kroner
2006-12-27 09:00
2007.01.21
Файлы группы .bdsgroup в BDS2006


15-1165820613
Бамбуча
2006-12-11 10:03
2007.01.21
Вопрос американцам


15-1167335895
1eof
2006-12-28 22:58
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский