Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ ASCII и CSV \ Экспорт из Paradox в ASCII файл с кодовой страницей 852

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

Название: Экспорт из Paradox в ASCII файл с кодовой страницей 852
Дата публикации: 2004-03-13 (3501 Прочтено)

 
 

 

Page generation 0.047 seconds