Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как изменить кодировку в TXT [D7, WinME, WinXP]

LEXX_55 © (2005-09-05 07:32:00)
Здравствуйте господа мастера.
Есть текстовый фаил в DOS кодировке. Может кто нить знает как изменить кодировку на Win. Если подкинете пример кода, буду признателен.

ANB (2005-09-05 11:04:00) [1]

> 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;

LEXX_55 (2005-09-05 11:03:00) [2]

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

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

ANB (2005-09-05 10:50:00) [3]

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

LEXX_55 (2005-09-05 10:05:00) [4]

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

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

ANB (2005-09-05 09:24:00) [5]

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

isasa (2005-09-05 08:57:00) [6]
array of char ???

LEXX_55 (2005-09-05 08:44:00) [7]
Да, кстати, а если у меня строка будет длинее 256. Тогда как? Если я буду исполизовать Longstringили WideStringкак мне задать массив?

Lamer@fools.ua (2005-09-05 08:21:00) [8]
>> NightLord © (05.09.05 07:44) [1]

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

LEXX_55 (2005-09-05 08:02:00) [9]

> DosEdit:=s;

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »