DBLookupcombobox bei auswahl Actionlist / Action ausführen

[klaus9]

Ja hab ich mir auch so gedacht.

habe eine DBLookupcombobox und ein dbedit.text feld und diese verbunden und bei auswahl gibt mir
die DBLookup an das DBedit dieses ID feld rüber und im dbedit.feld habe ich als code hinterlegt

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, DB, DBClient, StdCtrls, Mask, AppEvnts, ActnList;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit1: TDBEdit;
    ActionList1: TActionList;
    Action1: TAction;
    Edit1: TEdit;
    procedure Action1Execute(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin

showmessage('test');
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1. Text = '1') then
showmessage('test');

if (Edit1. Text = '2') then
showmessage('test')
end;

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
//if (DBEdit1.Text = '1111') then
//showmessage('test');

if (DBEdit1.Text = '1111') then
Action1.execute else
showmessage('nichts');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

soweit so gut, nur jetzt kommt beim ausführen ein richtiges ergebnis, aber dann im anschluss eine Fehlermeldung.

Zugriffsverletzung bei adresse 004849B3


und dann mal eine andere frage, wenn ich in einem edit text feld eine Spalte aus einer Datenbank einlesen möchte wie mache ich das, z.B. spalte 1 zeile 1 anzeigen lassen möchte..wie funktioniert das


das geht
edit1.text := datasource1.dataset.fieldsvalue['name'];