Есть форма на ней два 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. А вот ты какие посоветуешь?

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

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