]> 開発ブログ MASA Lab softlab-Software Architecture Laboratory 2026-04-17T14:48:12+09:00 http://softlab.masa-lab.net/modules/d3blog/index.php Copyright © 2008-2019 by MASA-Lab D3BLOG - XOOPS BLOG MODULE LiveBindings の文字列に注意？ http://softlab.masa-lab.net/modules/d3blog/details.php?bid=130 2014-11-25T17:03:43+09:00 2015-01-17T21:29:19+09:00 masa 良くありますよね、%表示したい時って。だから LiveBindings の CustomFormat に Format('%.0f', Self.Value*100) + "%" って書いたのですが、「書式文字列 'Format(... は正しくないか引数の型... 良くありますよね、%表示したい時って。
だから LiveBindings の CustomFormat に

Format('%.0f', Self.Value*100) + "%"

って書いたのですが、「書式文字列 'Format(... は正しくないか引数の型と一致しません.」というエラーが出てしまいます。
いろいろ試してみるのですが、そもそもドキュメントにある例の
Format("%d %d", 1, 2)
すら動きません。

もうなんだか全然わからなくなって、パニックです。
ようやくバインディング式の説明で %s というのがあるのを思い出して、% 自体がバインディング式の特殊文字なのだと気が付きました。
そこで

Format('%%.0f', Self.Value*100) + "%%"

としたらうまくいきました。
あぁ疲れた...

Delphi XE5]]> LiveBinding では 列挙型は使えない http://softlab.masa-lab.net/modules/d3blog/details.php?bid=99 2014-09-03T13:59:07+09:00 2023-12-25T19:33:44+09:00 masa 列挙型のプロパティのあるクラスを TCustomAdapterBindSource などでバインドソースにしたのですが、列挙型のプロパティは LiveBindingデザイナに出てきませんでした。仕方がないので、Integer に... 列挙型のプロパティのあるクラスを TCustomAdapterBindSource などでバインドソースにしたのですが、列挙型のプロパティは LiveBindingデザイナに出てきませんでした。

仕方がないので、Integer にキャストしたプロパティを作って、そこから値をマップしました。

もしかしたら * と Owner を使った技で回避できるかも？
と思ってやってみましたが、うまくいきませんでした。
そもそも FindField で見つけることができませんね。
Object ならアクセスできるのですが...

LiveBindings CustomFormat で * と Self を使う]]> LiveBindings カスタムフォーマット http://softlab.masa-lab.net/modules/d3blog/details.php?bid=95 2014-08-25T21:02:26+09:00 2014-11-01T14:18:19+09:00 masa LiveBindings のカスタム書式ではいくつかのデフォルトの LiveBinding メソッドが使えますが、これだけではなかなかきついですよね。そんな時には独自のカスタム LiveBinding メソッドを作ること... LiveBindings のカスタム書式ではいくつかのデフォルトの LiveBinding メソッドが使えますが、これだけではなかなかきついですよね。
そんな時には独自のカスタム LiveBinding メソッドを作ることができます。

決まった書き方で関数を作成してパッケージとしてインストールする必要がありますが...

カスタム LiveBinding メソッドの作成

作成したカスタムメソッドがデザイン画面では使えるのに、実行時にエラーが発生する場合には uses に追加すれば使えるようになると思います。]]> TListBindSourceAdapter を使った時の バインディング式 http://softlab.masa-lab.net/modules/d3blog/details.php?bid=89 2014-07-02T20:40:00+09:00 2015-01-17T21:40:05+09:00 masa TListBindSourceAdapter などを使ってオブジェクトをバインドして使うときにTBindExpression の SourceExpression で、単純にフィールド名を書くとエラーになってしまいます。 FieldName.Value と書く必要... TListBindSourceAdapter などを使ってオブジェクトをバインドして使うときに

TBindExpression の SourceExpression で、単純にフィールド名を書くとエラーになってしまいます。

FieldName.Value

と書く必要があるんですね。

LiveBindings 書式設定式に書けるメソッドには
Format(<書式文字列>, <引数 1>, <引数 2>, …)
IfThen(<条件>, <真の場合の値>, <偽の場合の値>)
Lookup(<スコープ ルックアップ>, <キー フィールド>, <キー値>, <結果フィールド>)

など、その他使える式は以下にあります。

デフォルトの LiveBinding メソッド
http://docwiki.embarcadero.com/RADStudio/XE6/en/Default_LiveBindings_Methods]]> LiveBinding ComboBox の初期値を設定する http://softlab.masa-lab.net/modules/d3blog/details.php?bid=88 2014-06-30T21:12:49+09:00 2023-12-25T20:03:58+09:00 masa BindSource に対して Locate を使う？Locate(KeyField, KeyValue)この時 LiveBindings の設定はComboBoxのSynch BindSourceの *ComboBoxのItem.Text BindSource に対して Locate を使う？
Locate(KeyField, KeyValue)

この時 LiveBindings の設定は
ComboBoxのSynch <-> BindSourceの *
ComboBoxのItem.Text <- BindSourceの 表示フィールド
となっていなければならない

Delphi XE5]]> Delphi LiveBindings クラスからバインドする http://softlab.masa-lab.net/modules/d3blog/details.php?bid=85 2014-06-28T21:30:00+09:00 2023-12-25T19:41:00+09:00 masa クラスからバインドして表示するTAdapterBindSource と TDataGeneratorAdapter(1) まずは二つを配置(2) AdapterBindSource の Adapter プロパティに DataGeneratorAdapter をセット(3) AdapterBindSource の OnCreateAdapter イベ... クラスからバインドして表示する

TAdapterBindSource と TDataGeneratorAdapter

(1) まずは二つを配置
(2) AdapterBindSource の Adapter プロパティに DataGeneratorAdapter をセット

(3) AdapterBindSource の OnCreateAdapter イベントで
TObjectBindSourceAdapter
または
TListBindSourceAdapter
を生成する


procedure TMain.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
var
  LEmployee: TEmployee;
begin
  LEmployee := TEmployee.Create('John', 'Anders', 26, StrToDate('10/10/2011'), 'Developer', 'Adrian Hermann');
  ABindSourceAdapter := TObjectBindSourceAdapter<TEmployee>.Create(Self, LEmployee);
end;


または


procedure TMain.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
var
  LList: TObjectList<TEmployee>;
begin
  LList := TObjectList<TEmployee>.Create;
  LList.Add(TEmployee.Create('John', 'Anders', 26, StrToDate('10/10/2011'), 'Developer', 'Adrian Hermann'));
  ABindSourceAdapter := TListBindSourceAdapter<TEmployee>.Create(Self, LList, True);
end;


クラスにバインドできるってうれしい


http://docwiki.embarcadero.com/RADStudio/XE3/ja/%E3%83%81%E3%83%A5%E3%83%BC%E3%83%88%E3%83%AA%E3%82%A2%E3%83%AB%EF%BC%9ATAdapterBindSource_%E3%81%A8%EF%BC%BBLiveBinding_%E3%83%87%E3%82%B6%E3%82%A4%E3%83%8A%EF%BC%BD%E3%82%92%E4%BD%BF%E7%94%A8%E3%81%99%E3%82%8B]]>