VPF::Char и String помогите!!! - Форум программистов

mitya1

Дата 20.5.2006, 01:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.5.2006

Репутация: нет
Всего: нет

Подскажите как сделать чтобы к примеру в поле Edit вводить А , а в поле Memo появился код этого А в числовом виде тоесть 97.
Как бы преобразовать букву в ее числовой ASCII код. smile

tigger

Дата 20.5.2006, 04:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 456
Регистрация: 30.4.2005

Репутация: нет
Всего: 4

Код


procedure TForm1.Edit1Change(Sender: TObject);
var
a:integer;
s:string;
c:char;
begin
s:=Edit1.Text;
c:=s[Edit1.GetTextLen];
a:=Ord(c);
Memo1.Text  := Memo1.Text + inttostr(a);
end;

--------------------

Sunvas

Дата 20.5.2006, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

tigger, в твоем коде есть недочет: если мы быдем удалять с эдита информацию то в мемо ничего не будет удаляться. Следовательно нужно сделать фор в котором каждый символ переводить в аски код.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

skyboy

Дата 20.5.2006, 18:26 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

Sunvas, и для строки в 255 символов при каждом редактировании будет ганять цикл? smile

Лучше для OnKeyDown Edit'a сделать обработчик, который в случае BackSpace'a будет определять код удаляемого символа и именно это удалять из Мемо smile

Нажатие на "Delete" запретить.

Sunvas

Дата 21.5.2006, 00:34 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(skyboy @ 20.5.2006, 18:26

)

лучше для OnKeyDown Edit'a сделать обработчик, который в случае BackSpace'a будет определять код удаляемого символа и именно это удалять из Мемо

Бредовая идея: а ты подумал, что я могу курсором стать на начало строки и удалять первые 3 символа по чут-чуть??

Я просто указываю место ошибки

Цитата(tigger @ 20.5.2006, 04:14

)

Memo1.Text := Memo1.Text + inttostr(a);

а проблеммы оптиматизации кода - это уж забота автора.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Dynamic

Дата 21.5.2006, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Код


procedure TForm1.Edit1Change(Sender: TObject);
begin
     Memo1.Clear;
     if Edit1.Text <> '' then
      Memo1.Text := IntToStr(Ord(Edit1.Text[1]));
end;

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

ivan219

Дата 22.5.2006, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

А можете превести код по которому запрещается кнопка Delete.

Код


 Key:=#0;

Этот код не запрещает Delete.

smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Демо

Дата 22.5.2006, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=46 then Key := 0;
end;

--------------------

Gensun

Дата 22.5.2006, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 26.10.2005
Где: wWw

Репутация: нет
Всего: нет

Код tigger однозначно не подходит. Темболие что он руские буквы выводит не правильно. Уменя есть исходник на JavaScript, он прекрасно делает перевод. В нем правда минус. А минус в том что он переводит п одной букве.
Вобшем вот исходник на HTML, может ктото сможет его перенести на Delphi:

Код


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Preview - Tools & Utilities / ASCII Character Code</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<script language=JavaScript>
<!-- Begin
function showKeyCode()
{
var character = document.characterCode.character.value.substring(0,1);
var code = document.characterCode.character.value.charCodeAt(0);
var msg = "The ASCII Decimal Key Code for the \""+character+"\" character is "+code+".";
alert(msg);
}
//  End -->
</SCRIPT>
</HEAD>
<BODY text=#000000 bgColor=#ffffff>
<FORM name=characterCode>
<CENTER>
Type A Character: <INPUT size=15 name=character> 
<INPUT onclick=showKeyCode(); type=button value="Show Key Code"> 
</CENTER>
</FORM>
</BODY>
</HTML>

Это сообщение отредактировал(а) Gensun - 22.5.2006, 21:40

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »