Нашел только как из мемо в файл записывать.
А как скажем записать строки из массива? или просто стринг в файл?
Код:
var
m: TMemo;
frm:TForm;
procedure Init; //Вызывается при включении скрипта
begin
frm := TForm.Create(nil);
frm.Caption := '1';
frm.BorderStyle := bsSizeable;
frm.Position := poDesigned ;
frm.Width:=400;
frm.Height:=600;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
m.Lines.Add('2');
m.Lines.Add('3');
end;
procedure SaveToFile(prefix:string);
var name:string;
begin
name := prefix+'.txt';
m.Lines.SaveToFile(name);
end;
procedure Free; //Вызывается при выключении скрипта
begin
SaveToFile('4');
end;
//основная часть скрипта
begin
end.