![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
![]() дан одномерный массив
buk: array[1..26] of char; Каким образом его заполнить символами англ. алфавита? ![]() |
#2
|
||||
|
||||
![]() Цитата:
Код:
buk[i]:='a'; Код:
const buk: array[1..26] of char=('a','b', и т.д. закачать с файла или использовать код ASCII |
#3
|
||||
|
||||
![]() Код:
var buk: array[1..26] of char; ... for i:=1 to 26 do buk[i] := Chr(i+64) TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
||||
|
||||
![]() ALed, отлично, спс. Но мне бы не только рабочий код, а узнать как это работает, для использования в дальнейшем. не расскажешь что за строчка chr(i+64) ?
|
#5
|
||||
|
||||
![]() Цитата:
Ord() - преобразует символ в код i+64, начиная с 65 по 90 идут символы английского алфавита, в верхнем регистре TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |