Главная страница
    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.055 c
15-1167146493
oldman
2006-12-26 18:21
2007.01.21
Типа опрос...


1-1164731573
Алена
2006-11-28 19:32
2007.01.21
Ttimer


15-1166810910
RL69
2006-12-22 21:08
2007.01.21
Блокнот


15-1167295202
root
2006-12-28 11:40
2007.01.21
Kylix


6-1151827566
C@N
2006-07-02 12:06
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский