Экспорт из 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
: Ch :=
: Ch :=
...
else Ch := S[A];
end;
Result[A] := Ch;
end;
end;