текст в файл

[supernewbie]

Нашел только как из мемо в файл записывать.

А как скажем записать строки из массива? или просто стринг в файл?

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.