| Статистика |
|
Онлайн всего: 4 Гостей: 4 Пользователей: 0 |
|
Экспорт из Paradox в ASCII файл с кодовой страницей 852
function ConvertTo852(S: string): string;
var
A : integer;
Ch : char;
begin
setlength(Result,Length(S));
for A := 1 to length(S) do
begin
case S[A] of
<code>: Ch := <852code>
<code2>: Ch := <852code2>
...
else Ch := S[A];
end;
Result[A] := Ch;
end;
end;
|
| Категория: ASCII и CSV | Добавил: Skinner (03.07.2008)
|
| Просмотров: 473
| Рейтинг: 0.0/0 |
|
|
