Ответ: Эмулятор
Сообщение от odd
Function Encode(a: string): string;
var len, ch: integer;
s: string;
begin
s:=''; len:=Length(a)-1;
for i:=0 to len do begin ch:=ord(GetChar(a,i)); if ch>122 then s:=s+chr(ch+1104) else s:=s+chr(ch); end;
Encode:=s;
end;
|
не пашет! ответ идёт квадратиками! php страница win1251
Последний раз редактировалось Seregakz, 08.07.2008 в 08:45.
|