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

Советы » ASCII и CSV » Экспорт из 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com