Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.07.2009, 16:59   #1
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию написал простой текстовый редактор но он не распознает русский текст

и еще при сохранении не ставит расширение к файлу.......подсказите кто знает...спасибо
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 20.07.2009, 17:09   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код в студию, а лучче архив с проектом.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.07.2009, 18:30   #3
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код в студию, а лучче архив с проектом.

Код:
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.N10Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;

procedure TForm3.N11Click(Sender: TObject);
begin
memo1.SelectAll;
end;

procedure TForm3.N12Click(Sender: TObject);
begin
form1.visible:=true;
end;

procedure TForm3.N2Click(Sender: TObject);
begin
  memo1.Lines.Clear;
  form3.caption:=('my text editor');

end;

procedure TForm3.N3Click(Sender: TObject);
begin
if OpenDialog1.execute then
 memo1.Lines.LoadFromFile(opendialog1.FileName);
 

end;



procedure TForm3.N4Click(Sender: TObject);
begin
if savedialog1.execute then
memo1.Lines.savetofile(savedialog1.filename);
end;

procedure TForm3.N5Click(Sender: TObject);
begin
close;
end;

procedure TForm3.N7Click(Sender: TObject);
begin
memo1.Undo;
end;

procedure TForm3.N8Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;

procedure TForm3.N9Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

end.
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны

Последний раз редактировалось Stilet; 22.07.2009 в 09:23.
betirsolt вне форума Ответить с цитированием
Старый 20.07.2009, 18:51   #4
uberchel
Участник клуба
 
Аватар для uberchel
 
Регистрация: 19.01.2009
Сообщений: 1,455
По умолчанию

1 )
Код:
procedure TForm3.N4Click(Sender: TObject);
begin
if savedialog1.execute then
memo1.Lines.savetofile(savedialog1. filename + '.txt');
end;
2)
Код:
procedure TForm3.N3Click(Sender: TObject);
begin
if OpenDialog1.execute then
      with Memo1 do begin
       Font.Name:= 'MS Sans Serif';
     Font.Charset:= RUSSIAN_CHARSET;
  Lines.LoadFromFile(opendialog 1.FileName);
 end;
end;
uberchel вне форума Ответить с цитированием
Старый 21.07.2009, 18:57   #5
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

спасибо)))все работает...только есть еще одна проблема....русский текст он открывает..и с сохранением все в норме....но когда я в самом редакторе набираю русский текс вот тогда он ставит мне символы....подскажите люди добрые)))
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны

Последний раз редактировалось mihali4; 22.07.2009 в 14:50.
betirsolt вне форума Ответить с цитированием
Старый 22.07.2009, 09:25   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
но когда я в самом редакторе набираю русский текс вот тогда он ставит мне символы
Может в настройках экрана нерусский фонт выставлен. У меня все нормально.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.07.2009, 11:12   #7
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

не понимаю((((какого экрана?????
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 22.07.2009, 11:44   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
не понимаю((((какого экрана?????
Я имею ввиду в настройках экрана. там где шрифты выбираются и темы.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.07.2009, 13:46   #9
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Я имею ввиду в настройках экрана. там где шрифты выбираются и темы.

там когда выбираю настройки текста в окне полоса где выбирается шрифр пустая и неактивная......

вобщем я кажется намутил щас с настройками
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 22.07.2009, 15:16   #10
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

У тя Win 7?
psycho-coder вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TD не распознает русский текст Natalia-xxx- Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 05.03.2009 15:22
обновление в блоге - Простой текстовый редактор Pblog Обсуждение статей 0 30.08.2008 11:50
Текстовый редактор Славный Общие вопросы Delphi 3 02.07.2008 23:17
Текстовый редактор Snake_ua Общие вопросы Delphi 25 28.05.2008 09:20