Текст

[Дима212313123]

SPR_MSG_C_ANI_DETECT:
        with PChannelMSGPhoneNumber(lpMsg)^ do
          Str := 'ANI: ' + cbPhoneNumber;

вот строчка кода, как сохранять это значение в текстовик при каждом изменении значения Str? Быстро произойдет? Искал в интернете, не нашел

[Stilet]

как сохранять это значение в текстовик при каждом изменении значения Str?

Сделать Str свойством формы и описать ее логирование.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    f:TextFile;
    Fmystr: String;
    procedure Setmystr(AValue: String);
  private
    { private declarations }
    property mystr:String read Fmystr write Setmystr;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  mystr:='Чему-то что сохранится при присваивании в эту переменку';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(f,'d:\1\qq.txt');Rewrite(f);
end;

procedure TForm1.Setmystr(AValue: String);
begin
  if Fmystr=AValue then Exit;
  Fmystr:=AValue;
  WriteLn(f,AValue); Flush(f);
end;

end.

P.S. Имя для переменки ты выбрал неудачное. Рекомендую сменить.

[Дима212313123]

Спасибо, остался 1 вопрос, при изменении Str, текстовик быстро появиться?

[northener]

Сообщение от Дима212313123

Спасибо, остался 1 вопрос, при изменении Str, текстовик быстро появиться?

А самому попробовать проверить не с руки?

[Stilet]

текстовик быстро появиться?

Даже на 80286-м все было бы очень быстро. Чего говорить о современной технике.