memoコンポ−ネントの内容保存と、呼出し再表示をするには？ (ID:39121)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以下で試したらきちんとメモ帳に改行されて表示できました。
SQLは完全に忘れてるので、またしてもTable使ってますが。

以下が作ってみたサンプルです。
参考になれば幸いです。

procedure TForm1.FormCreate(Sender: TObject);
begin
  table1.DatabaseName := ExtractFileDir( Paramstr(0) );
  table1.tablename := 'テスト';
  try
    table1.Open;
  except
    //エリアスの代わりに実行ファイルがあるフォルダに設定
    table1.DatabaseName := ExtractFileDir( Paramstr(0) );
    table1.fielddefs.Add('Ｎｏ', ftautoinc, 0, false);
    table1.fielddefs.Add('メモ行', ftstring, 255, false);
    table1.tablename := 'テスト';
    table1.CreateTable;
    //この場合サンプル.dbを開く
    table1.Active := true;
    table1.Edit;
    table1.FieldByName('メモ行').asstring := '一行目';
    table1.Insert;
    table1.FieldByName('メモ行').asstring := '二行目';
    table1.Post;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2:integer;
begin
  table1.Last;
  i1 := table1.FieldByName('Ｎｏ').asinteger +1;
  i2 := 0;
  while i1 > i2 do begin
    memo1.Lines.Add(table1.FieldByName('メモ行').asstring);
    table1.Prior;
    i1 := i1 - 1;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る