Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Есть форма на ней два TRichEdit и кнопка TButton... [D6, Win95/98, Win2k, WinXP]

Stream2k © (2002-11-05 16:18:00)
Хочу написать программу которая переводит предложения типа "Мама мыла раму" и т.д. в 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-06 10:27:00) [1]
Читай вторую :)

Stream2k (2002-11-05 20:22:00) [2]
Книг у меня о паскале штуки 4. А вот ты какие посоветуешь?

McSimm (2002-11-05 18:57:00) [3]
подробнее про книгу:
надо купить и (главное) почитать книгу по программированию.
:)

Stream2k (2002-11-05 18:36:00) [4]
Спасибо! А вот про книгу по подробней!

McSimm (2002-11-05 18:27:00) [5]
Если подобное требует разьяснений, значит срочно необходимо купить книгу.

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 17:55:00) [6]
2 McSimm
Если честно (!) я лох! Так если в дельфи я самоучка и не профи. Так что если можешь разжуй мне это.

McSimm (2002-11-05 17:11:00) [7]
ord("П") = 207
IntToStr(ord("П")) = "207";

Наверх

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