Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.27;
Скачать: CL | DM;

Вниз

Как в RichEdit загрузить файл DOS формата?   Найти похожие ветки 

 
Alex31   (2005-02-13 17:19) [0]

Здравствуйте уважаемые мастера!
Как в RichEdit загрузить файл DOS формата?
Метод LoadFromFile() грузит одни иероглифы ...:( помогите плиз..


 
Юрий Зотов ©   (2005-02-13 17:31) [1]

TStringStream.LoadFromFile + OemToChar + LoadFromStream.


 
Alex31   (2005-02-13 17:50) [2]

Спасибо, помогло  OemToChar!!!
А еще вопросик...  метод SaveToFile тоже работает криво...как тут быть?


 
Kerk ©   (2005-02-13 18:03) [3]

Alex31   (13.02.05 17:50) [2]
CharToOem видимо


 
Alex31   (2005-02-13 18:11) [4]

2 Kerk ©   (13.02.05 18:03) [3]

А вот не выходит почему-то....
вот код:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  if SaveDialog1.Execute then
  begin
     s:=RichEdit2.Text;
     CharToOem(Pchar(s),Pchar(s));
     RichEdit2.Text:=s;
     RichEdit2.Lines.SaveToFile(SaveDialog1.GetNamePath);
  end;
end;


 
Kerk ©   (2005-02-13 18:22) [5]


> RichEdit2.Lines.SaveToFile(SaveDialog1.GetNamePath);

что за фигня?


 
Alex31   (2005-02-13 18:25) [6]

Kerk ©   (13.02.05 18:22) [5]
Эта фигня как раз сохраняет в файт Richedit2.text  !!!!!

А ответ на свой вопрос я уже нашел сам...!

RichEdit2.PlainText:=true;


 
Просто Джо ©   (2005-02-14 00:06) [7]


> SaveDialog1.GetNamePath


Однако...


 
Cobalt ©   (2005-02-14 03:15) [8]

Из дельфовой справки:
Description
GetNamePath is used to determine the text to display in the Object Inspector for the name of the object being edited. GetNamePath is introduced in TPersistent so descendants such as collections can appear in the Object Inspector. TComponent overrides GetNamePath to return the component’s name. Do not call GetNamePath directly.

:)



Страницы: 1 вся ветка

Текущий архив: 2005.02.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
1-1108317903
mr-jack
2005-02-13 21:05
2005.02.27
stringGrid редактирование 1ой колонки


14-1107424133
matt
2005-02-03 12:48
2005.02.27
Visual C++.NET Standart


9-1101469568
Rule
2004-11-26 14:46
2005.02.27
Помогите с выбором движка или просто с советом.


14-1107469199
ЫУТ
2005-02-04 01:19
2005.02.27
Как просклонять фамилии


14-1107719241
Fin
2005-02-06 22:47
2005.02.27
Мгновенная связь