1 Как открыть *.EXE фаил в Tmemo также как его открывает Notepad

2 Как перевести текст из кодировки Dos в Windows?

Например так:

Код

var t:file of char;      c:char; begin  assignfile(t,'MyFile.exe');  reset(t);  while not eof(t) do    begin      read(t,c);      memo1.text:=memo1.text+c;    end; end;

конечно это очень медленно (ну очень!) и так делать не надо! Используй BlockRead - но принцип тот же.

2) Свойство OEMConvert

BlockRead, AssingFile, LoadFromFile, LoadFromStream, я всё это пробовал и визде одно и тоже открывается лишь часть файла.

[/QUOTE]Свойство OEMConvert [QUOTE]

Чёто оно не конвертирует кодировку DOS в Windows(Кирилица)

Я использую  FileRead, работает стабильно.

Цитата(RAdmin @ 24.10.2002, 21:27)

[/QUOTE]Свойство OEMConvert [QUOTE] Чёто оно не конвертирует кодировку DOS в Windows(Кирилица)

Когда-то ещё не знал, про эту функцию, набросал свой редактор с конвертацией из ДОСа. Работает медленно, но стабильно. Если хочешь, могу кинуть.

Попробовал, действительно, но дело не в чтении файла, Memo не позволяет отображать 0.

Вот мой код

Код

var s:array of char;      t:file;      c:char;      st:string; begin  assignfile(t,'c:\dev\__QB9.DB');  reset(t,1);  setlength(s,filesize(t));  Blockread(t,pointer(s)^,filesize(t)-1);  st:=String(s);  memo1.lines.text:=st; end;

Легко убедиться что переменная st содержит полную инфу, а вот в последней строчке инфа пропадает.. Скорее всего для помешения в Memo надо заменить все #0 на что-то другое.

TMemo позволяет выводить только чуть больше 40 кб, поэтому надо считать файл в строку или лучше в массив байт и по мере скроллинга в мемо перезагружать строку.
Я для вывода exe-строки в 16-ричном виде использую следующее:

{Не указанные переменные-глобальные}
var
f: File;
s: byte;
a,b,n,m: integer;

begin
 if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
 begin
   AssignFile(f,OpenDialog1.FileName);
   Reset(f,1);
   m := FileSize(f);
   b := FileSize(f);
   if m>150008 then
   m:=15008;
   a := 1;
   Stroka :='0000   ';
   if RadioGroup1.ItemIndex = 0 then
   begin
   V := 32;
   Memo1.Font.Size := 8;
   end
   else
   begin
   V:=16;
   Memo1.Font.Size := 10;
   end;
    SetLength(Str,b);
   For n := 0 to m-1 do
      begin
      BlockRead(f,s,1);
      Str[b]:=s;
      if n<m then
         begin
            Stroka := Stroka + IntToHex(s,2) + ' ';
            if a = V then
              begin
                a := 0;
                Stroka := Stroka + #13#10 + IntToHex(n+1,4) + '   ';
              end;
            a := a + 1;
         end;
      end;
  CloseFile(f);
  Form1.Memo1.Text := Stroka;
  end;
end;

RadioGroup1 переключает режим отображения 16 или 32 байта в строке.
Добавив процедуру обновления MEMO в зависимости от того, какие строки выведены на экран можно будет просмотреть весь файд любой длины.

TStrings.LoadFromFile.Чтение файла с нулевым символом
http://www.delphikingdom.com/stones/stone_34.htm

// -----------------------------------------------------------------
function Ansi2OEM(const S : string) : string;
// Конвертирует строку из кодировки Windows в DOS кодировку
begin
 SetLength(Result,Length(S));
 if  Length(S) <> 0  then
   CharToOem(pChar(S),pChar(Result));
end;
// -----------------------------------------------------------------
function OEM2Ansi(const S : string) : string;
// Конвертирует строку из кодировки DOS в Windows кодировку
begin
 SetLength(Result,Length(S));
 if  Length(S) <> 0  then
   OemToChar(pChar(S),pChar(Result));
end;
// -----------------------------------------------------------------