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

Вниз

Есть форма на ней два TRichEdit и кнопка TButton...   Найти похожие ветки 

 
Stream2k   (2002-11-05 16:18) [0]

Хочу написать программу которая переводит предложения типа "Мама мыла раму" и т.д. в ANSI(коды символов Windows-1251).
И есть проблема: неумею! Тоxytt незнаю как написать этот программный код.
Для начала вот такой ход действий: в TRichEdit1 ввожу текст "Привет всем!", нажимаю кнопку TButton1 и в TRichEdit2 появляется код ANSI*

*В Windows в основном используется кодировка,которая называется ANSI. Разновидность набора ANSI? содержащая символы русского алфавита, именуется Windows-1251. (Из книги Н. Культина "Delphi 6 программирование на Object Pascal")

То есть в TRichEdit1 вводится текст, а в TRichEdit2 выводятся коды символов текста в TRichEdit1. Выглядит это так:

TRichEdit1: Привет всем!
TRichEdit2(после нажатия кнопки TButton1): 2072402322262292423222624122923633.

П=207
р=240
и=232
в=226
е=229
т=242
пробел=32
в=226
с=241
е=229
м=236
!=33

Вверху конечно же не вся кодировка...

-=-=-=-=-=-=-=-=-=-
Если кто может мне помочь пишите мне на мыло: stream2k@megalink.ru


 
McSimm ©   (2002-11-05 17:11) [1]

ord("П") = 207
IntToStr(ord("П")) = "207";


 
Stream2k   (2002-11-05 17:55) [2]

2 McSimm
Если честно (!) я лох! Так если в дельфи я самоучка и не профи. Так что если можешь разжуй мне это.


 
McSimm ©   (2002-11-05 18:27) [3]

Если подобное требует разьяснений, значит срочно необходимо купить книгу.

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
S1, S2: String;
begin
S1 := RichEdit1.Text;
S2 := "";
for I := 1 to Length(S1) do
S2 := S2 + IntToStr(ord(S1[I]));
RichEdit2.Text := S2
end;

разбирайся


 
Stream2k   (2002-11-05 18:36) [4]

Спасибо! А вот про книгу по подробней!


 
McSimm ©   (2002-11-05 18:57) [5]

подробнее про книгу:
надо купить и (главное) почитать книгу по программированию.
:)


 
Stream2k   (2002-11-05 20:22) [6]

Книг у меня о паскале штуки 4. А вот ты какие посоветуешь?


 
McSimm ©   (2002-11-06 10:27) [7]

Читай вторую :)




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

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
6-59312
Bazzik
2002-08-24 15:02
2002.11.18
Как узнать объем internet-трафика


3-59026
Cyril
2002-10-29 19:38
2002.11.18
Можно ли упаковать foxpro таблицу используя ADO


14-59383
Феликс
2002-10-22 21:10
2002.11.18
Вот бы пример.


1-59203
Erik
2002-11-05 18:35
2002.11.18
Работа с указателем


1-59205
Weare
2002-11-06 13:31
2002.11.18
Install InterBase5