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

Вниз

Преобразование ...   Найти похожие ветки 

 
lodir   (2005-10-17 14:05) [0]

string в char затем в ascII код и затем обратно в string ... подскажите пожалуйста как?


 
Ega23 ©   (2005-10-17 14:08) [1]

Ord, Chr + F1


 
lodir   (2005-10-17 14:22) [2]

Ega23 ©   (17.10.05 14:08) [1]

спасибо, поищу!


 
Leonid Troyanovsky ©   (2005-10-17 14:40) [3]


> lodir   (17.10.05 14:22) [2]
> Ega23 ©   (17.10.05 14:08) [1]
>
> спасибо, поищу!


А чего там искать: в верхнем ряду, слева - вторая клавиша.

--
Regards, LVT.


 
lodir   (2005-10-17 14:42) [4]

Нуу ооочень смешно!!!


 
lodir   (2005-10-17 16:06) [5]

с char"a в string :

procedure TForm1.Button1Click(Sender: TObject);
var
c: char;
s: string;
i: integer;
begin
c:="k";
i:=ord(c);
s:=chr(i);
showmessage(s);
end;


получилось, а обратно ну никак... :о(, помогите плиз!


 
Leonid Troyanovsky ©   (2005-10-17 17:25) [6]


> lodir   (17.10.05 16:06) [5]

> c:="k";
> i:=ord(c);
> s:=chr(i);
> showmessage(s);

> получилось, а обратно ну никак... :о(, помогите плиз!


А что означает "обратно"?

Если прямо: string -> char -> ANSI code,
то, вместо s := chr(i), д.б. s := IntToStr(i).

Соответственно, если у нас есть ansi: массив байтов(ANSI code), то


 var
   s : String;
   i: Longint;
 begin
   SetLength(s, SizeOf(ansi));
   Move(ansi[0], s[1], SizeOf(s)); // если индекс массива ansi начат с 0
 end;


Только, во всем этом нет особого смысла, бо всегда можно преобразовать
каждый символ строки к нужному типу, т.е., Ord(s[i]) - код i-го символа
в строке.

--
Regards, LVT.


 
lodir   (2005-10-17 17:35) [7]

Спасибо огромное!
З.Ы.Все-таки приятно получать хорошие ответы....


 
Anatoly Podgoretsky ©   (2005-10-17 19:24) [8]

lodir   (17.10.05 14:05)  
string в char нельзя, строка это очень много символов. А переменная char хранит только один символ.



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

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

Наверх




Память: 0.46 MB
Время: 0.041 c
14-1130135274
vok
2005-10-24 10:27
2005.11.13
Пропал ребенок!


14-1129805568
ZeroDivide
2005-10-20 14:52
2005.11.13
Новые драйверы для ATI, рядовое событие, если бы не одно НО


3-1127822146
VitGun
2005-09-27 15:55
2005.11.13
База Paradox и DOS-приложение


4-1126609187
Cherrex
2005-09-13 14:59
2005.11.13
Как использовать GetUserName


14-1129631221
DelphiN!
2005-10-18 14:27
2005.11.13
Как правильно оценить стоимость программы





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