Экспорт из Paradox в ASCII файл с кодовой страницей 852

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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;

{/codecitation}

Добавить комментарий