Потоки в делфи

[gr1ngo]

Всем привет. Нужно реализовать в потоке постоянную запись содержимого поля memo в файл. Т.е. если что то меняется - сразу идет запись в файл.

Без потока все легко

procedure TmForm.mmOutputChange(Sender: TObject);
  begin
    Savedialog.FileName:='Analis.txt';
    if SaveDialog.Execute
      then mmOutput.lines.SaveToFile(Savedialog.FileName)
  end;

А как все это реализовать с использованием потока?

Модуль потока:

unit Unit4;

interface

uses
  Classes;

type
  ThreadKurs = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

uses Unit1;

procedure ThreadKurs.Execute;
  begin
    cs.enter;
    mform.mmOutput.lines.SaveToFile(mform.Savedialog.FileName);
    cs.leave;
  end;

end.

Процедура onChange:

procedure TmForm.mmOutputChange(Sender: TObject);
  begin
    if Save = true then
      Thread1.Resume;
  end;

Процедура onClick кнопки "Начать запись":

procedure TmForm.StartClick(Sender: TObject);
  begin
    Savedialog.FileName:='Analis.txt';
    if SaveDialog.Execute
      then Save := true
  end;

Процедура FormCreate:

procedure TmForm.FormCreate(Sender: TObject);
  begin
    Thread1 := ThreadKurs.Create(True);
    Thread1.Priority := tphighest;
    cs := tcriticalsection.create;
  end;

Т.е. я путаюсь использовать критичекую секцию. Но судя по всему используя ее настолько криво, что больше 3 строчек из 5000 он записать не успевает(((( Помогите пожалуйста((

[SNUPY]

эммм.... вот эта строка меня смущает:

mform.mmOutput.lines.SaveToFile(mform.Savedialog.FileName);

Помоему я прав =))) вам в помощь такое понятие как Синхранизация =))) и критическая секция помоему не к месту =( Грубо говоря (если я не ошибаюсь) КС не в данном случаи не регулирует процесс "обращения" к Tmemo.Lines между нитями главной формы и вашего Thread1.... он тут тупо стоит =(

[gr1ngo]

Полностью убрал критическую секцию. В модуле потока написал следующее:

procedure write2file;
  begin
    mform.mmOutput.lines.SaveToFile(mform.Savedialog.FileName);
  end;

procedure ThreadKurs.Execute;
  begin
    Synchronize(write2file);
  end;

Вызывает ошибку "There is no overloaded version of 'Synchronize' that can be called with these arguments."

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

эммм.... вот эта строка меня смущает:

mform.mmOutput.lines.SaveToFile(mform.Savedialog.FileName);

Можно узнать, что нитак?

Почему то синхронизация вызывает у меня самые сильные проблемы. Ваще не понимаю как ею пользоваться(((

[SNUPY]

Эммм помоему write2file надо сделать методом потока =)

[gr1ngo]

2 SNUPY

Все заработало) Спасиб)