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

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Экспорт из 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;

Источник - Проект "Delphi World" © Выпуск 2002 - 2004
Автор проекта: Акулов Николай

| Наличие мест в санаториях белоруссии зима-весна. | Модная коллекция, сумка louis vuitton neverfull mm damier. |