txtext.pas

来自「文件搜索的代码」· PAS 代码 · 共 51 行

unit txtext;

interface

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

type
  TFormCfgText = class(TForm)
    lblExt: TLabel;
    memoExt: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCfgText: TFormCfgText;

implementation

uses main, results;

{$R *.dfm}

procedure TFormCfgText.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
 TFile: TextFile;
 tmp: string;
 i: integer;
begin
 // Open and write extensions file
 AssignFile(TFile, FormMain.ExtFile);
 ReWrite(TFile);

 for i:=0 to memoExt.Lines.Count-1 do
  if memoExt.Lines.Strings[i] <> '' then
   tmp := tmp + memoExt.Lines.Strings[i] + ',';
   
 Delete(tmp, Length(tmp), 1);
 WriteLn(TFile, tmp);
 CloseFile(TFile);
 FormResults.Ext := tmp;
end;

end.