Первод из 16 СЧ в 10 СЧ

[KREGI]

ну смотри как открыть эти файлы я уже сделал, и это надо делать на делфи....не мог бы ты прислать как этот цикл будет выглядеть?

[KREGI]

вот как я отрываю этот файл(но он не переведен в читабельный вид)

OpenDialog1.Filter:='Файл ресурса r16 |*.r16|'+
 'Файл ресурса r01 |*.r01|';
 if OpenDialog1.Execute and fileExists(OpenDialog1.FileName)
 then
 memo1.lines.LoadFromFile(OpenDialog1.FileName)

вот меня интересует как его перевести

[KREGI]

ну вот ты его открыл и там текст в 16 СЧ? а мне нужно как ворде или блокноте, чредактируемый(а потом обратно в исходный и сохранить)

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var
c : char;
f : file of char;
begin
OpenDialog1.Filter:='Файл ресурса r16 |*.r16|'+
 'Файл ресурса r01 |*.r01|';
 if OpenDialog1.Execute and fileExists(OpenDialog1.FileName)
 then
 begin
 AssignFile(f,OpenDialog1.FileName);
 reset(f);
 while not eof(f) do
  begin
  read(f,c);
  Memo1.Lines.Text := Memo1.Lines.Text + c;
  end;
 closeFile(f);
 end;

end;

Оно?

[KREGI]

как бы уже лучше, но вот что получилось когда я открыл ресурс

kJoЏ
жог
ђ
кwЯ{пнЅ}з?фп
рцSmartCom	SmartCom	SmartCom\resource\apps\smartCom_aif.mifрцМ

рц	џАѕБјѕВАяяяя
PюяћВїА°ІёВМ Бѕѕ±ЙµЅёµ	яяяяяяћВјµЅ°яяяяA"рц
i#`
’ІµБВё ЅѕјµА Вµ».r+
я
яяяяяяA"$М
iџАёІµВяяяяяя`	
ђєВёІ°ЖёПяяяя`”µ°єВёІ°ЖёПяяяя`ћВєАЛВМяяяя`рцћ їАѕіА°јјµяяяя`џѕјѕЙМяяяя`	
ћ Migitalяяяя`
ћ їАѕґГєВµяяяяЂ
рц1
ђєВёІ°ЖёП	0”µ°єВёІ°ЖёПed	0”µ°єВёІ°ЖёПed	
2	Settings	
3ЈБВ°ЅѕІёВМ є°АВёЅєГ	рцМ
рц	џАѕБјѕВАяяяя`	?·јµЅёВМяяяя`џѕјѕЙМяяяя
SmartVideoCom Ѕ°БВАѕ№єё

*µ¶ёјрцяярцўАµІѕі° ґ»Прцяярц
ўёї ІЛ·ѕІ°0рцяя2рц
ўёї Бѕѕ±ЙµЅёП5рцяя7рцњµ»ѕґёПрцяя рц	
ђІВѕЎВ°АВ#рцяя%рцЎєАЛВМ(рцяя*рцАHi

’Л±А°ВМ Аµ¶ёјxрц		Other ...

[Sazary]

как бы уже лучше, но вот что получилось когда я открыл ресурс

Ну, в WinHex'е у меня показывает не лучше )

[KREGI]

ну если присмотреться, то можно увидеть проблески слов, надо только отладить,но я не вижу за что ухватиться...

[Sazary]

Ну так вот же они, слова:

’Л±А°ВМ Аµ¶ёјxрц Other ...


No options
яярцрц
ќ° ІµБМ НєА°Ѕ
˜ЅДѕ ѕ ·ІѕЅПЙµј
ќ° ІµБМ НєА°Ѕ
˜ЅДѕ ѕ ·ІѕЅПЙµјАqtn_settings_label_tim e_period
’Л±А°ВМ Вёїxрц Other ...


No options
яярцрц’Л·ѕІЛ

Ўѕѕ±ЙµЅёПž±°’Л·ѕІЛ

Ўѕѕ±ЙµЅёП
ž±°А’Л±А°ВМ јµ»ѕґёОxрц Other ...

Вроде, лучше уже не сделать..

[KREGI]

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

[Sazary]

и как сделать что бы потом файл сохранялся после редактирования?

Так, вроде:

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
 begin
 Memo1.Lines.SaveToFile(SaveDialog1.FileName);
 end;
end;

Ну или посимвольно, аналогично чтению.

вот смотри я вывожу в мемо, может во что то в другое надо?

Ну почему? Вроде, и в мемо нормально.

и может разрешить только латиницу...(и русский)

А вот это имхо плохая идея. Это же не обычный текстовик.