|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как сделать "Блокнот"?
Если открыть какой-то файл с блокнота (например *.dcu), то там всякие "каракули" (т.е. символы, которыми записан файл). Если же открыть с помощью TMemo, то в нем будет: "Я". Если *.bmp, то там: "BMf".
Как сделать чтобы открывалось также, как с блокнота? http://forceway.ru/ |
#2
|
||||
|
||||
Что-то не могу понять, какая стоит задача - сделать просмотрщик файлов? Или программу аналогичную "Блокноту"?
Хорошо написанная программа не требует документации ICQ 9-184-668. |
#3
|
||||
|
||||
Цитата:
А, да и не забудь про кнопку открытия. Вот код, что бы привязать к ней диалог Код:
procedure TForm1.Button1Click(Sender: TObject); begin if OpenTextFileDialog1.Execute then Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName); end Если да - то "Я" - видимо случайное совпадение . Чем смотреть .dcu файлы я не знаю. И в дельфи они шестнадцатиричной кодировкой открываются. Т.е. теми самыми "каракулями" Сжатый Последний раз редактировалось ZIP, 24.06.2008 в 20:50. |
#4
|
||||
|
||||
Ну например ,чтобы и открывалось как в блокноте, чтобы с кодировкой, а не "Я".
http://forceway.ru/ |
#5
|
||||
|
||||
Кто знает как?
http://forceway.ru/ |
#6
|
|||
|
|||
Попробуй читать побайтово и если байт = nil then memo1.text[i]:=◘;
|
#7
|
||||
|
||||
Вот вариант, но не знаю, пригодится ли он тебе
Код:
... 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; ... — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 23.07.2008 в 12:52. |
#8
|
|||
|
|||
Тут проблема с кодировкой, мемо не предназначено для этого, самый простой вариант мне кажется это поискать компонент который будет поддерживать смену кодировки. может это RichEdit умеет делать, точно не знаю.
|
#9
|
|||
|
|||
Насчёт японского:
Бэйкоку - Америка, бэйкокудзин - американец. |
#10
|
||||
|
||||
Попробуй использовать TFileStream. С ним должно открыться!
|
#11
|
|||
|
|||
помогите
помогите как сделать так чтобы сохранило файл при нажатии кнопки сохранить ( для блокнота )
|
#12
|
||||
|
||||
Цитата:
Код:
Memo1.Lines.SaveToFile('C:\filename.txt'); |