написал простой текстовый редактор но он не распознает русский текст

[betirsolt]

и еще при сохранении не ставит расширение к файлу.......подсказите кто знает...спасибо

[Stilet]

Код в студию, а лучче архив с проектом.

[betirsolt]

Сообщение от 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.

[uberchel]

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;

[betirsolt]

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

[Stilet]

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

Может в настройках экрана нерусский фонт выставлен. У меня все нормально.

[betirsolt]

не понимаю((((какого экрана?????

[Stilet]

не понимаю((((какого экрана?????

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

[betirsolt]

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

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

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

вобщем я кажется намутил щас с настройками

[psycho-coder]

У тя Win 7?