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

[KREGI]

давай поробуем, как это выглядеть будет? я просто не знаю как это сделать?

[Sazary]

давай поробуем, как это выглядеть будет?

Что именно? Все необходимое уже есть в предыдущих постах.

[KREGI]

ну разрешить вывод только латиницы и русских символов и цифр

[Sazary]

KREGI, это не текстовик. Если вы уберете все "небуквы", то нарушится структура файла. И врядли его после этого можно будет использовать по назначению.

[KREGI]

а hex редактор основан на таком же алгоритме?

[Sazary]

а hex редактор основан на таком же алгоритме?

Не знаю. Я не писал hex-редакторы )
Но сравнивая результат в нем и в нашей программе, можно заметить, что результат схож.

[KREGI]

когда сохраняю он назад не переводит, как этого добится?

[Sazary]

когда сохраняю он назад не переводит

А что не переводит?

В общем, вот такую попробуйте:

procedure TForm1.Button2Click(Sender: TObject);
var f : file of char;
i : longint;
begin
if SaveDialog1.Execute then
 begin
 AssignFile(f,SaveDialog1.FileName);
 rewrite(f);
 for i:=1 to length(Memo1.Lines.Text) do
  begin
  write(f,Memo1.Lines.Text[i]);
  end;
 closeFile(f);
 end;
end;

[KREGI]

Sazary, судя по всему опять не переводит...потому что этот ресурс не работает... может где ошибка?!

[Sazary]

Sazary, судя по всему опять не переводит...потому что этот ресурс не работает... может где ошибка?!

Подозреваю, что и не заработает.
Это как с экзешником - если изменить, то он уже не будет работать.

Думаю, тут не все так просто. Здесь свой формат, своя структура. И имхо чтобы что-то изменить, нужно ее знать.
А сейчас, фактически, файл редактируется как текстовик. Поэтому ничего хорошего не получится.

Лично у меня нет идей на этот счет.