11.03.2012, 09:20
|
|
Начинающий
|
|
Регистрация: 12.12.2011
Адрес: Москва
Сообщения: 150
Версия Delphi: XE2-U4
Репутация: 131
|
|
Цитата:
|
Сообщение от Pyro
PHP код:
function next(c: char): char;
begin
result := char(byte(c)+1);
end;
|
Разве не
PHP код:
result := char(ord(c)+1);
? |