Составить программу которая бы определила символы по таблице кодировки вводимые с клавиатуры

@DangHaos · Регистрация: 09.02.2013

Доброго времени суток.
Вот такое дело ребят помогите сделать программу.

В форменном приложение.
Составить программу которая бы определила символы по таблице кодировки вводимые с клавиатуры.

Заранее спасибо.

Добавлено через 2 часа 37 минут
Не пойму через какой компонент делать, задача в в ступор ввела.
Должен вводить #187 он мне выдавать символ

@RinatV · 15.02.2013, 22:42

Сообщение от DangHaos

Должен вводить #187 он мне выдавать символ

ShowMessage(Char(187));

@DangHaos · 16.02.2013, 12:39 **[ТС]**

Сообщение от RinatV

ShowMessage(Char(187));

И тогда она выдаст символ из кодировки верно?

Добавлено через 15 минут

Сообщение от RinatV

ShowMessage(Char(187));

как теперь сделать чтобы значение вводил в Edit и он мне показывал это, т.е ввожу по кодировки номер символа и он мне выдает символ.

Добавлено через 5 минут

Pascal

procedure TForm1.btn1Click(Sender: TObject);
var
  i:Char;
  c:Integer;
begin
c:=StrToInt(edt1.Text);
 i:=ShowMessage(Char(145))
 edt1.Text:=FloatToStr(i);
 
end;
 
end.

@FIL · 16.02.2013, 13:02

Delphi

procedure TForm1.btn1Click(Sender: TObject);
begin
  Edt1.Text := Char(StrToIntDef(Edt1.Text, 0));
end;

@DangHaos · 16.02.2013, 13:17 **[ТС]**

Сообщение от gorfil

Delphi

procedure TForm1.btn1Click(Sender: TObject);
begin
  Edt1.Text := Char(StrToIntDef(Edt1.Text, 0));
end;

Спасибо огромное!

@DangHaos 11 / 11 / 1 Регистрация: 09.02.2013 Сообщений: 90
		1
	Составить программу которая бы определила символы по таблице кодировки вводимые с клавиатуры 15.02.2013, 20:51. Показов 1418. Ответов 4 Метки нет (Все метки) Доброго времени суток. Вот такое дело ребят помогите сделать программу. В форменном приложение. Составить программу которая бы определила символы по таблице кодировки вводимые с клавиатуры. Заранее спасибо. Добавлено через 2 часа 37 минут *Не пойму через какой компонент делать, задача в в ступор ввела.* Должен вводить #187 он мне выдавать символ 0

@RinatV http://1248.site 130 / 118 / 20 Регистрация: 15.05.2012 Сообщений: 341 Записей в блоге: 10
	15.02.2013, 22:42	2
	Сообщение от DangHaos Должен вводить #187 он мне выдавать символ ShowMessage(Char(187)); 1

Опции темы