[greenbegin]

Стоит задача: изменить кодировку текстового файла из DOS на Windows. Подсказали функцию OEMtoShar. Вот только не могу разобраться с синтаксисом этой функции. Все что я пока понял: там используется переменная не типа string, а какого то другого. Будьте добры, не смейтесь, и подскажите на конкретном примере, как используя эту (или подобную) функцию, изменить кодировку текстового файла или переменной типа string, содержащую строку из такого файла.

[Decoding]

А как тебе такой вариант. Если у Memo установить Font.Charset в OEM_CHARSET, то Memo сможет читать файлы в DOS кодировке.

Код:

1 2 3 4 5 6 7 8 9 10

<b>procedure</b> TForm1.FormCreate(Sender: TObject); <b>begin</b>    Memo1.Font.Charset := OEM_CHARSET; <b>end;</b>   <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>begin</b>    <b>if</b> OpenDialog1.Execute <b>then</b>       Memo1.Lines.LoadFromFile( OpenDialog1.FileName ); <b>end;</b>

[greenbegin]

Но мне то потом все равно нужен текст в нормальной кодировке, чтобы потом его использовать в других программах. Как же быть?

[Decoding]

Попробуй так:

Код:

1 2 3 4 5 6 7 8 9 10

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   _Input, _Output: PChar; <b>begin</b>    GetMem( _Input, <font color="RoyalBlue">256</font> );    GetMem( _Output, <font color="royalblue">256</font> );    _Input := <font color="royalblue">'Строка в DOS кодировке'</font>;    OemToChar( _Input, _Output );    Edit1.Text := _Output; <b>end;</b>

[Майняк]

так в какой кодировке делаешь Memo->Lines->SaveToFile(), в такой и сохранится текст... Все просто =))

[greenbegin]

Сообщение от Decoding

Попробуй так:

Код:

Попробовал. При компиляции выделяет строку:

Код:

1	_Input:=memo1.Lines[i];

Я ее вставил вместо строки:

Код:

1	_Input:='Строка в DOS кодировке';

Ошибка:

Код:

1	Incompatible types: 'String' and 'PAnsiChar'

[greenbegin]

Сообщение от Майняк

так в какой кодировке делаешь Memo->Lines->SaveToFile(), в такой и сохранится текст... Все просто =))

Если копировать текст из поля с дос-кодировкой в поле с вин-кодировкой, то там он уже читаться не будет.
Если же вставить текст в поле с дос-кодировкой, потом изменить ее на вин-кодировку, то он просто перестанет читаться!
Может быть ты имел в виду что то вроде:

Код:

1	memo2.lines.savetofile('myfile.txt').<font color="Red">font.charset:=ANSI_SHARSET</font>

Но ведь такой синтаксис невозможен. Объясни, что ты имел в виду

[Майняк]

memo2.lines.savetofile('myfile.txt').font.charset: =ANSI_SHARSET
Ну ты загнул!
Я сказал то, что сказал.
Если тебе известно, то символы ЛЮБЫЕ=))) имеют код от 0 до 255...
Вот тебе пример:
http://www.sysman.ru/index.php?showtopic=5405

[Майняк]

кстати, вставь PChar(......) чтоб не было ошибок String<-> PAnsiChar.

[Decoding]

Код:

1	_Input:=PChar(memo1.Lines[i]);

[Decoding]

http://www.sysman.ru/index.php?showtopic=3719

[JCDArtem]

О! У меня почти подобный вопрос

У меня файл в Юникоде, надо прочитать в стринг_грид.

[mav_c]

Сообщение от greenbegin

Попробовал. При компиляции выделяет строку:

Код:

Я ее вставил вместо строки:

Код:

Ошибка:

Код:

А так:

Код:

1	_Input := PChar(memo1.Lines[i]);

[JCDArtem]

mav_c, может я конешно чего-то не догоняю, но мне кажется, что ты продублировал сообщение от Дэкодинг-а