| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

символ: byte , из edit

Страницы:   < 1 2 >

Jonis_84 ©   (2013-03-11 10:38:00) 

Доброго врмени суток!Помогите пожалуйста,как из edit передать в ORD()

Var C:Byte;
begin
c:=Ord( ??????? (Edit1.Text));
label1.caption:=IntToStr(c);


---

Smile   (2013-03-11 14:01:00) [21]

> Jonis_84   (11.03.13 10:38)

Поделись секретом о том, что у тебя в Edit1?
Возможно сразу найдется и ответ на твой, недостаточно корректно, заданный вопрос

---

Ega23   (2013-03-11 12:27:00) [22]


procedure TForm35.Button1Click(Sender: TObject);
begin
 Edit1.Text := 'м';
 Label1.Caption := IntToStr(Ord(Edit1.Text[1]));
end;


1084. Такие дела.

---

RWolf   (2013-03-11 11:29:00) [23]

код символа «м» в ANSI именно 236, а не 69.

---

brother   (2013-03-11 11:05:00) [24]

я не знаю о чем ты...

---

Jonis_84   (2013-03-11 10:55:00) [25]

почему значения разные понял.Как в Ord(string)  запихать
чтото вроде

var c:Byte;
str:string;
begin
str:=('м')
c:=Ord(str)



---

Jonis_84   (2013-03-11 10:46:00) [26]

Почему разные значения
c:=Ord(Edit1.Text[1]);ввожу м = 69
c:=Ord('м');= 236

---

brother   (2013-03-11 10:39:00) [27]

c:=Ord(Edit1.Tex[1]));
?

---

Страницы:   < 1 2 >

Наверх