Редактирование TMemo

[Lier]

Здраствуйте, проблема заключается в том, что текст в memo не редактируется.

PHP код:

Mmo1.Lines.LoadFromFile('C:\Windows\System32\drivers\etc\hosts') 


Открывает файл hosts, но не редактирует его. Если зажать любую клавишу, он её печатает и быстро удаляет. Такое не только с файлом hosts, но и с любым не системным файлом. ReadOnly=false, сразу скажу. Но если делать через OpenDialog, то всё работает нормально-редактируется и сохраняется. В чем может быть проблема?Не хочу использовать OpenDialog потому что прога будет работать только с файлом hosts. Пишу прогу для себя и для практики.

[Кольша]

весь код пожалуйста

[kta87]

Все работает с вашими настройками, я только добавил TCombobox для перебора по буквам... ну не у всех винда на C. Пример не могу прикрепить во вложении по этому код просто выложу

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.LoadFromFile(ComboBox1.Text +
                          ':\Windows\System32\drivers\etc\hosts');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  si : Char;
begin
  for si := 'a' to 'z' do
   begin
     ComboBox1.Items.Add(si);
   end;
  ComboBox1.ItemIndex := 0;
end;

end.

[Stilet]

но и с любым не системным файлом. ReadOnly=false, сразу скажу.

Ну так попробуй снять этот флажок с файла используя SetFileAttributes

[Lier]

unit HostEditor;

interface

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

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    tmr1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Tmr1.Enabled := true; // Включаем таймер
Tmr1.Interval := 100;  //Ставим время равное 1-ой секунде
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
Mmo1.Lines.LoadFromFile('путь к любому текстовому файлу');
end;

end.

[Кольша]

Timer нафига вы поставили вот нафига вот вся беда!

procedure TForm1.FormCreate(Sender: TObject);
begin
Mmo1.Lines.LoadFromFile('путь к любому текстовому файлу');
end;

Tmr1.Interval := 100; //Ставим время равное 1-ой секунде

да одна секунда стала короче в 10 раз а я и не заметил =DDD

[Человек_Борща]

Бяку случаем не пишите?
hosts файл рагребать надо.

Я бы регулярным выражением пробежался и все.


P.S. Любой нормальный АВ вас **** пошлет за попытку доступа к этому файлу.

[Lier]

Кольша таймер сделал, чтобы навесить на какое-нибудь событие. Если делать без этого, то содержимое hosts не подгружается в Memo пока не нажмешь какую-нибудь клавишу в окне memo. Так как прога работает с одним только файлом, хотелось бы, что hosts загружался без участия пользователя. Если навесить LoadFromFile на кнопку всё равно та же беда. Текст не редактируется. Содержимое спокойно редактируется\сохраняется если делать через OpenDialog.

Tmr1.Interval := 100; //Ставим время равное 1-ой секунде

Коммент старый, уменьшил на один нолик позже)
Человек_Борща прогу пишу для себя, написал же. Рагребать что это?))Я недавно с паскаля пересел опыта мало, штудирую всё что попадет под руку, но мало помогает. Насчет регулярного выражения тоже не очень понятно(.

Кстати тестирую не на файле hosts, а на обычных текстовых файлах без атрибута только чтение.

[Кольша]

твою дивизию делайте так:в начале программмы( как я показал) загружайте код и добавте вот это действие и будет вам счастье .

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Mmo1.Lines.saveFromFile('путь к любому текстовому файлу');

end;

[Пепел Феникса]

ТС, есть событие OnCreate.
оно выполняется при создании формы, вот и грузите в нем.

а таймером вы постоянно грузите и грузите файл.