[Genry]

Если открыть какой-то файл с блокнота (например *.dcu), то там всякие "каракули" (т.е. символы, которыми записан файл). Если же открыть с помощью TMemo, то в нем будет: "Я". Если *.bmp, то там: "BMf
".
Как сделать чтобы открывалось также, как с блокнота?

[Thrasher]

Что-то не могу понять, какая стоит задача - сделать просмотрщик файлов? Или программу аналогичную "Блокноту"?

[ZIP]

Сообщение от Genry

Если открыть какой-то файл с блокнота (например *.dcu), то там всякие "каракули" (т.е. символы, которыми записан файл). Если же открыть с помощью TMemo, то в нем будет: "Я". Если *.bmp, то там: "BMf
".
Как сделать чтобы открывалось также, как с блокнота?

Создай форму с Мемо1 и OpenFileDialog (не забудь про фильтр файлов) и привяжи ОпенФилеДиалог к Мемо1. Так, если я правилно понял вопрос.
А, да и не забудь про кнопку открытия. Вот код, что бы привязать к ней диалог

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenTextFileDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);
end

Подожди, ты .dcu фаил в Мемо открывать собрался?
Если да - то "Я" - видимо случайное совпадение .
Чем смотреть .dcu файлы я не знаю. И в дельфи они шестнадцатиричной кодировкой открываются. Т.е. теми самыми "каракулями"

[Genry]

Ну например ,чтобы и открывалось как в блокноте, чтобы с кодировкой, а не "Я".

[Genry]

Кто знает как?

[MagestiK]

Попробуй читать побайтово и если байт = nil then memo1.text[i]:=◘;

[M.A.D.M.A.N.]

Вот вариант, но не знаю, пригодится ли он тебе

Код:

...
Var FileStream:TFileStream;
     B:Byte;
Begin
  FileStream:=TMemoryStream.Create('c:\123.456',fmOpenRead);
  While FileStream.Position<>FileStream.Size Do
    Begin
      FileStream.Read(B,SizeOf(B));
      Memo1.Text:=Memo1.Text+Char(B);
    End;
  FileStream.Free;
End;
...

[Burka]

Тут проблема с кодировкой, мемо не предназначено для этого, самый простой вариант мне кажется это поискать компонент который будет поддерживать смену кодировки. может это RichEdit умеет делать, точно не знаю.

[AlexSku]

Насчёт японского:
Бэйкоку - Америка,
бэйкокудзин - американец.

[:S.p.a.m.]

Попробуй использовать TFileStream. С ним должно открыться!

[iliili]

помогите как сделать так чтобы сохранило файл при нажатии кнопки сохранить ( для блокнота )

[ryderx34]

Сообщение от iliili

помогите как сделать так чтобы сохранило файл при нажатии кнопки сохранить ( для блокнота )

Код:

Memo1.Lines.SaveToFile('C:\filename.txt');