Daten aus Listbox auf Editfelder übertragen??

[Union]

Zitat von plautzer:

Wie gibt man die daten einer Tabelle mittels einer Query auf EDITfeldern aus?
Also wie weist man einem einfachen Editfeld die daten aus der Tabelle zu?
Plautzer

Wenn Du keine DB-Komponenten verwenden willst wie z.B. TDbEdit, dann mach das entweder über den OnAfterScroll Event des Dataset oder erzeuge einen TFieldDataLink, der die Events von DataSet und Control verbindet.

Beispiel AfterScroll (Du kannst da natürlich was beliebiges machen, z.b. Edit1.Text := ...):

Delphi-Quellcode:

//------------------------------------------------------------------------
procedure TfrmSendKopfListe.tblSendKopfAfterScroll(DataSet: TDataSet);
//------------------------------------------------------------------------
// Aktivieren oder deaktivieren bestimmter Buttons
//------------------------------------------------------------------------
begin
   with dsSendKopf.DataSet do
   begin

      if FieldByName('Status').AsString = '' then
      begin
         // Bei leerem Status ist Fertig aktiv
         btnBuchen.Enabled := true;
      end
      else
      begin
         btnBuchen.Enabled := false;
      end;

   end;
end;

Beispiel DataLink:

Delphi-Quellcode:

// Deklaration
// -----------
   DataLink : TFieldDataLink;


// Erzeugung & Initialisierung
// ---------------------------
   DataLink   := TFieldDataLink.Create;
   DataLink.Control      := edtFrmEingabe;
   
// Der Event wird aufgerufen, wenn sich an DataSource.FieldName was ändert
   DataLink.OnDataChange := edtFrmEingabeEnter;
   if DataSource <> nil then
   begin
      DataLink.DataSource   := Datasource;
      DataLink.FieldName    := DataFieldName;
   end
   else
   begin
      DataLink.DataSource   := ListSource;
      DataLink.FieldName    := ListDataName;
   end;

// Löschen !!!
// -----------
   DataLink.Free;
   DataLink := nil;