Раздел: Основной форум
05.10.2008, 16:47
|
Ответов: 12
Просмотров: 3,603
Ответ: Непонятки с кодировкой...
а у меня вот такой исходник сработал:
function DecodeText(text:string) : string;
var i, len, cid, tilda:integer;
result,substr:string;
c:char;
work:boolean;
begin
tilda := ord('~');
len :=...
|