DataBindings an eine TextBox

[kiar]

hallo,

ich erzeuge eine Liste und binde die an eine ComboBox:

Delphi-Quellcode:

var
  AL: ArrayList
Begin
  AL:= ArrayList.Create;
  AL.Add(MyClass.Create(1,'Item1');
  AL.Add(MyClass.Create(2,'item2');
  AL.Add(MyClass.Create(3,'Item3');
  ComboBox1.DataSource:= AL;
  // soweit ist das klar und funktioniert
  // jetzt will ich den zweiten Property in einer TextBox editieren
  TextBox1.DataBindings.Add('Text', AL, 'Item');
end;

leider kommt immer die Fehlermeldung

Zitat:

an die Eigenschaft oder Spalte 'Item' für Datasource kann nicht gebunden werden.

worin liegt mein Fehler?

[Robert_G]

Zitat von kiar:

Delphi-Quellcode:

  ComboBox1.DataSource:= AL;
  // soweit ist das klar und funktioniert
  // jetzt will ich den zweiten Property in einer TextBox editieren
  TextBox1.DataBindings.Add('Text', AL, 'Item');

leider kommt immer die Fehlermeldung an die Eigenschaft oder Spalte 'Item' für Datasource kann nicht gebunden werden.

worin liegt mein Fehler?

AL.Item ist ein Indexer [meta]welchen man nie nich direkt anfassen sollte[/meta].
Den kannst du schlecht daran binden.
Ich halte es sowieso etwas ungeschickt Controls an Controls zu binden wenn du die Datenquelle selbst nehmen könntest.
Pseudo code:

Delphi-Quellcode:

type MyClass = public class
public
  property SomeProperty : string;
  constructor(someProperty : string);
end;

Delphi-Quellcode:

comboBox.DataSource := list;
textBox.DataBindings.Add('Text', list, 'SomeProperty'); 
// ab IEnumerable, kannst du direkt gegen Properties 
// des Ergebnisses von Enumerator.Current binden

Möglich, aber unflexibel und hässlich, wäre auch:
textBox.DataBindings.Add('Text', comboBox, 'SelectedItem');

[kiar]

aha,

da haben wir doch den richtigen erwischt

ich habe hier deine Ergüsse zur Vorlage genommen.

also ich greife schon über den Property der Klasse darauf zu. wollte hier bloss nicht meine Fantasienamen veröffentlichen

raik

wobei die hässliche und unflexible Variante klappt

[kiar]

So,

ich bin noch nicht wirklich weiter

wenn ich eine Liste nach folgendem Schema realisiere

Delphi-Quellcode:

List.Add(TextBox2);
List.Add(TextBox3);
List.Add(TextBox4);
List.Add(TextBox5);
TextBox1.DataBindings.Add('Text', List, 'Text');

kann ich mit TextBox1.BindingsContext[List].Position; durch die Liste navigieren und ich sehe jeweils den Text in der TextBox 1.

wenn ich aber eine neue Klasse mache:

Delphi-Quellcode:

unit Class1;

interface

type
  TMyClass = class
  private
    { Private-Deklarationen ;}
    fText: String;
  public
    constructor Create(Text:String);
    property Text: String read fText write fText;

    
  end;

implementation

constructor TMyClass.Create(text: String);
begin
  inherited Create;
  ftext := Text;
  // TODO: Hier die Konstruktorlogik einfügen
end;

end.

und diese dann in die Liste einfüge nach folgendem Muster

Delphi-Quellcode:

list.Add(TMyClass.Create('eins');
//...usw.

kommt immer noch die Fehlermeldung von oben.

wo liegt denn mein Fehler?

raik

[Robert_G]

Kleiner Tip: Wechsel die Sprache solange es noch geht und schaue mal im C#-forum vorbei.
Könnte dir mehr Antworten geben. Ich hatte dir hier eher "aus Versehen" geantwortet.

[kiar]

hallo Robert,

heisst das, es geht in Delphi.net so nicht, oder? denn nach der gleichen Methode habe ich es ja mit C# hingekriegt.

raik

[Robert_G]

Das geht schon, aber hätte ich dir nicht aus Versehen (eher aus altem Reflex) geantwortet hättest du hier noch keine Antwort bekommen.
Weitere kommen von mir hier nicht mehr...

[kiar]

Zitat von Robert_G:

aber hätte ich dir nicht aus Versehen (eher aus altem Reflex) geantwortet hättest du hier noch keine Antwort bekommen.

da ist wohl was wahres dran.

raik