Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Вниз

Как в 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.041 c
1-1108031675
Gek1
2005-02-10 13:34
2005.02.27
Помогите побороть ошибку! И как работает свойство FreeOnTerminate


14-1107858818
Lancelot
2005-02-08 13:33
2005.02.27
Графики выполнения проектов


3-1106659874
Behemoth
2005-01-25 16:31
2005.02.27
Как переименовать MSSQLSERVER


14-1107427710
Иксик2
2005-02-03 13:48
2005.02.27
Это у меня глюки или у форума?


14-1107846236
Aleksandr
2005-02-08 10:03
2005.02.27
Эрнест Хемингуэй - Старик и море





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский