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

Вниз

как преобразовать строку string в массив символов char?   Найти похожие ветки 

 
ivak ©   (2008-11-16 18:30) [0]

Мне надо чтоб строка string превратилась в массив символов которые содержатся в этой строке.
Например:
a := "Пирожок"
-> a : array[1..7] of char
причём a[1] := "П"; a[2] := "и"; a[3] := "o" и т.д.


 
Германн ©   (2008-11-16 18:40) [1]


> Мне надо чтоб строка string превратилась в массив символов
> которые содержатся в этой строке.

Строка и так уже массив символов. Никаких "превращений" не требуется!


 
Юрий Зотов ©   (2008-11-16 19:25) [2]

> ivak ©   (16.11.08 18:30)  

> Мне надо чтоб строка string превратилась в массив символов которые
> содержатся в этой строке.

Вы ошибаетесь. Вам не ЭТО надо. Вам надо другое - почитать любую книжку по основам языка Паскаль.

Без шуток и без обид, вполне серьезно. Иначе, пока Вы ее не прочтете, подобные "вопросы" будут возникать ежедневно и помногу.


 
palva ©   (2008-11-16 20:00) [3]

Расставьте точки с запятой и ваш код заработает.

{$APPTYPE CONSOLE}
var
   a : array[1..7] of char;
begin
   a := "Пирожок";
   WriteLn(a[1]); // П
   WriteLn(a[2]); // и
   // и т. д.
end.


 
CodeMaster ©   (2008-11-16 21:12) [4]

А вот так будет лучше

> var
>    a : String;
>    i: Integer;
> begin
>    a := "Пирожок";
>    for i:= 1 to Length(String) do
>    WriteLn(a[i]);
>  


 
ivak ©   (2008-11-16 21:34) [5]

не, вы не поняли..
мне надо чтобы строка  a : string превратилась в уже обьявленный мною массив massyve : array[1..n] of CHAR , где n - длина строки a
и чтобы я мог уже делать всяческие операции с этим массивом. например такие:

for i := 1 to n do begin
massyve[i] := inc(massyve[i]);
memo2.text := memo2.text + massyve[i];
end;


 
tesseract ©   (2008-11-16 21:44) [6]


> и чтобы я мог уже делать всяческие операции с этим массивом.
>  например такие:


Строка и есть массив символов. Точнее динамический массив символов. Никаких дополнительных операций не надо. memo2.text:=memo2.text+mystring[i] точно сработает. Как и memo2.text:=memo2.text+mystring


 
Германн ©   (2008-11-16 21:45) [7]


> ivak ©   (16.11.08 21:34) [5]

Ну и делай

var
 a : String;
...
for i := 1 to n do begin
a[i] := inc(a[i]);
memo2.text := memo2.text + a[i];
end;


 
KilkennyCat ©   (2008-11-16 21:50) [8]

Теперь ждем вопрос для "Пирожное"


 
ivak ©   (2008-11-16 21:51) [9]


> a : String;
> ...
> for i := 1 to n do begin


а что вместо "..."??
тут должна стоять какаято процедура которая забивает в массив столько чаров сколько символов в строке и каждому из чаров присваивает каждую итую букву строки. так вот какая процедура?


 
Anatoly Podgoretsky ©   (2008-11-16 21:52) [10]

> KilkennyCat  (16.11.2008 21:50:08)  [8]

Можно было ограничиться и "пи"


 
Германн ©   (2008-11-16 21:53) [11]


> а что вместо "..."??

Ничего!


 
ivak ©   (2008-11-16 21:59) [12]

ух ты я допёр...
тогда ещё вопрос..
хавает ли case стринги?
нас по информатике вроде учили что хавает..
но у меня ординал тип реквиред.. почему?


 
Andy BitOff ©   (2008-11-16 22:05) [13]

> ivak ©   (16.11.08 21:59) [12]

А что говорит справка по case?


 
Юрий Зотов ©   (2008-11-16 22:05) [14]

> ivak ©   (16.11.08 21:59) [12]

Не хавает. И никогда не хавал. Всегда было "ординал тип реквиред".

А вот чары - хавает. Потому что чар - это ординал тип.


 
Тын-Дын ©   (2008-11-16 22:06) [15]


> но у меня ординал тип реквиред.. почему?

Ordinal types include integer, character, Boolean, enumerated, and subrange types. An ordinal type defines an ordered set of values in which each value except the first has a unique predecessor and each value except the last has a unique successor. Further, each value has an ordinality which determines the ordering of the type. In most cases, if a value has ordinality n, its predecessor has ordinality n – 1 and its successor has ordinality n + 1.

For integer types, the ordinality of a value is the value itself.
Subrange types maintain the ordinalities of their base types.
For other ordinal types, by default the first value has ordinality 0, the next value has ordinality 1, and so forth. The declaration of an enumerated type can explicitly override this default.


 
ivak ©   (2008-11-16 22:07) [16]

пасиба, понял


 
Германн ©   (2008-11-17 01:46) [17]

Предлагаю модераторам отныне закрывать обсуждение в ветках автора, пока не будет получено обоснованное подтверждение, что автор последовал таки указаниям ясно изложенным в [2]!
Ибо таблицу умножения нужно твёрдо знать прежде чем приступать к изучению алгебры, геометрии, тригонометрии и иже с ними. (Про матан я уже молчу).
Пока не будет таких подтверждений вопросы автора почти ничем не отличаются от спама, имхо.

P.S. И почему на ДМ так часто лезут спрашивать то ли двоешники, то ли выпускники подготовительных групп детсадов?
:(
http://delphimaster.net/view/2-1226867152/



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

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

Наверх




Память: 0.52 MB
Время: 0.005 c
2-1226992902
RamzesIII
2008-11-18 10:21
2008.12.28
TQRCahr


1-1205313037
DVM
2008-03-12 12:10
2008.12.28
Excel.Application как сменить формат данных в ячейке?


2-1226764476
vegarulez
2008-11-15 18:54
2008.12.28
Поскажите в какой переменной полный путь к приложению?


15-1225264968
начинающий
2008-10-29 10:22
2008.12.28
TM FilePacker -- есть ли альтернатива, менее стремная?


2-1227009468
ekto
2008-11-18 14:57
2008.12.28
удилить дубликаты строк MS SQL Server





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