Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
6-1121961178
Hkr
2005-07-21 19:52
2005.11.13
Программирование NetBIOS


1-1129891440
DelphiLexx
2005-10-21 14:44
2005.11.13
Движение компонента


3-1128347433
Антон1209
2005-10-03 17:50
2005.11.13
параметры TSQLDataSet


9-1120137208
D!m@N
2005-06-30 17:13
2005.11.13
DirectSound SDK для Delphi


2-1129975111
Ugrael
2005-10-22 13:58
2005.11.13
Помогите с QuickReport 3,пожалуйста.