| | | |
|
| DRKB online - ANSI ---> ASCII |
|
|
|
|
ANSI ---> ASCII
delphi | {преобразование Ansi to Ascii}
function AnToAs(s: String) : String;
Var i,kod : Integer;
begin
Result:=s;
for i:=1 to length(s) do
begin
kod:=Ord(s[i]);
if kod=13 then Result[i]:=' ';
if ( kod>=192) and ( kod=239) then
Result[i]:=Chr(kod-64);
if ( kod>=240) and ( kod=255) then
Result[i]:=Chr(kod-16);
if kod=168 then Result[i]:=Chr(240);
if kod=184 then Result[i]:=Chr(241);
end;
end; |
@Drkb::04263
Взято с http://delphiworld.narod.ru |
|
| Количество статей: 4366 |
|
|
|
|
Статистика |
| Сегодня | Всего |
Посетителей | 6022 | 4241316 |
Запросов | 143916 | 396602232 |
Online |
Пользователей | 0 |
Гостей | 245 |
|
|
|