Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
ВнизЕсть форма на ней два 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c