svn/view/Unit1.pas

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.SQLite,
  FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, Vcl.StdCtrls, Vcl.DBCtrls,
  Vcl.Mask, Vcl.Grids, Vcl.DBGrids, Data.DB, FireDAC.Comp.Client,
  FireDAC.Comp.DataSet, FireDAC.VCLUI.Wait, FireDAC.Comp.UI;

type
  TForm1 = class(TForm)
    FDTable1: TFDTable;
    FDConnection1: TFDConnection;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBMemo1: TDBMemo;
    Memo1: TMemo;
    DBEdit2: TDBEdit;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
    FDTable1HOME: TWideMemoField;
    FDTable1TITLE: TWideStringField;
    FDTable1TITLE2: TWideMemoField;
    FDTable1PASS: TWideStringField;
    FDTable1NGWORDS: TWideMemoField;
    FDTable1MENTE: TBooleanField;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private ���� }
  public
    { Public ���� }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FDTable1.FieldByName('ngwords').AsString:=Memo1.Lines.DelimitedText;
  FDTable1.Post;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FDTable1.Exists = true then
  begin
    FDTable1.Open;
    Memo1.Lines.DelimitedText:=FDTable1.FieldByName('ngwords').AsString;
  end;
end;

end.