Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Как мне применить следующий код к RichEdit1? 


HDD   (2002-02-02 01:20) [0]

Как мне применить следующий код к RichEdit1?
Const
Base64Table="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";

function Base64Decode(cStr:string):string;
var ResStr:string;
DecStr:string;
RecodeLine : array [1..76] of byte;
f1,f2 : word;
l:integer;
begin
l :=length(cStr);
ResStr:="";
for f1:=1 to l do
if cStr[f1]="=" then RecodeLine[f1]:=0
else RecodeLine[f1]:=pos(cStr[f1],Base64Table)-1;
f1:=1;
while f1<length(cStr) do
begin
DecStr:=chr(byte(RecodeLine[f1] shl 2)+RecodeLine[f1+1] shr 4)+
chr(byte(RecodeLine[f1+1] shl 4)+RecodeLine[f1+2] shr 2)+
chr(byte(RecodeLine[f1+2] shl 6)+RecodeLine[f1+3]);
ResStr:=ResStr+DecStr;
inc(f1,4);
end;
Base64Decode:=ResStr;
end;



aus   (2002-02-02 07:41) [1]

Если это перекодировка символов, то в OnKeyPress
key := Base64Decode(key)

Так же и для всего текста.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.022 c
7-57224           minay                 2001-11-10 02:29  2002.02.18  
Отладчик для микроконтроллерного ассемблера


14-57214          Andrews               2001-12-28 15:57  2002.02.18  
С новым 2002 годом!


3-57014           Константин            2002-01-23 20:46  2002.02.18  
Чтение таблиц Paradox 3.5 в Дельфи...


3-56980           sync                  2002-01-22 09:11  2002.02.18  
Как в Оракле выбрать нужные записи из таблицы с помощью хранимой процедуры?


3-57016           pusrg                 2002-01-24 16:49  2002.02.18  
Проблема с запросом на вставку множества записей в таблицу