Как изменить кодировку в TXT

← →
LEXX_55 (2005-09-05 07:32) [0]

Здравствуйте господа мастера.
Есть текстовый фаил в DOS кодировке. Может кто нить знает как изменить кодировку на Win. Если подкинете пример кода, буду признателен.

← →
NightLord © (2005-09-05 07:44) [1]

var s:array [0..255] of Char;
WindowEdit,DosEdit:string;
begin
CharToOem(PChar(WindowEdit), s);
DosEdit:=s;
//OemToChar - в обратном направлении
end;

← →
LEXX_55 (2005-09-05 08:02) [2]

> DosEdit:=s;

это как? строковой переменной масив?!

← →
Lamer@fools.ua © (2005-09-05 08:21) [3]

>>NightLord © (05.09.05 07:44) [1]

Строк длинее 255 символов в природе не существует?

← →
LEXX_55 (2005-09-05 08:44) [4]

Да, кстати, а если у меня строка будет длинее 256. Тогда как? Если я буду исполизовать Longstring или WideString как мне задать массив?

← →
isasa © (2005-09-05 08:57) [5]

array of char ???

← →
ANB © (2005-09-05 09:24) [6]

> LEXX_55 (05.09.05 08:44) [4]
- NightLord © (05.09.05 07:44) [1] дал абсолютно правильный пример. Дальше сам думай, как его использовать для твоего случая.

← →
LEXX_55 (2005-09-05 10:05) [7]

> ANB © (05.09.05 09:24) [6]

Все работает. Только обрежет если строка будет длинее. А с безразмерным массивом работать не хочет. Возмущеатся, что строковой переменной присваиваю массив.
Большое спасибо NightLord ©!

> LEXX_55 (05.09.05 10:05) [7]
- а куда ты файл засунул ?

← →
LEXX_55 (2005-09-05 11:03) [9]

> ANB © (05.09.05 10:50) [8]

я его по строкам читаю, делаю небольшие операции сложения и записываю по строкам (отредактированным) в другой фаил.

> LEXX_55 (05.09.05 10:05) [7]
- примерчик надо бы модифицировать под большие строки :
function OEMToChar_String(S : String) : String;
var R : String;
begin
SetLength(R, Length(S));
CharToOem(PChar(S), PChar(R));
Result := R;
end;

Как изменить кодировку в TXT Найти похожие ветки