Probleme mit Table.Filter

[Legolas]

Hallo Killian und MrSpock,

leider hilft mir das nicht weiter.

@MrSpock:

der Stern ('*') wird als Wildcard benutzt und was soll ich sagen, es funktioniert so, denn wie ich vorher schon schrieb werden mir alle relevanten Datensätze angezeigt. Beispiel: Ich habe in der Datenbank drei 'James Bond' Filme, gebe ich jetzt im Filterfeld 'James' ein werden alle entsprechenden Filme angezeigt. Betrifft der Filtertext jetzt aber nur einen Film in der Datenbank sind alle Felder leer.

@Killian:

Nein, SQL möchte ich nicht einsetzen weil die Filter, für mein Vorhaben, völlig ausreichend sind. An meiner Procedure 'Datenladen' liegt es bestimmt nicht, denn sie tut das was sie soll, mir wird eben nur nicht (wenn er aufgrund des Filters nur einen entsprechenden Datensatz findet) dieser angezeigt (Die Editfelder bleiben dann leer). Im übrigen ist die Procedure 'Datenladen' nur dazu da den aktuellen Datensatz in den Editfeldern anzuzeigen, da ich keine gebundenen Editfelder benutze( Und sie funktionier in allen anderen Situationen 100% ihre Arbeit). In der Procedure werden lediglich die einzelnen Felder der Tabelle den einzelnen Editfeldern zugewiesen ala

Code:

 Edit1.Text:=Table.FieldByName('Titel').AsString;

Zur Sicherheit mal meine Procedure:

Code:

procedure Datenladen(Table: TTable);
begin
  Haupt.Edit1.Text:=Table.fieldbyName('Titel').AsString;
  Haupt.Edit2.Text:=Table.fieldbyName('UTitel').AsString;
  Haupt.Edit3.Text:=Table.fieldbyName('OTitel').AsString;
  Haupt.ComboBox1.Text:=Table.fieldbyName('Kategorie').AsString;
  Haupt.Edit24.Text:=Table.fieldbyname('Laenge').AsString;
  Haupt.Edit4.Text:=Table.fieldbyName('FSK').AsString;
  Haupt.Edit5.Text:=Table.fieldbyName('KStart').AsString;
  Haupt.Edit6.Text:=Table.fieldbyName('DStart').AsString;
  Haupt.Edit7.Text:=Table.fieldbyName('PLand').AsString;
  Haupt.Edit8.Text:=Table.fieldbyName('PJahr').AsString;
  Haupt.Edit9.Text:=Table.fieldbyName('PFirma').AsString;
  Haupt.Edit10.Text:=Table.fieldbyName('VFirma').AsString;
  Haupt.Edit11.Text:=Table.fieldbyName('Regie').AsString;
  Haupt.Edit12.Text:=Table.fieldbyName('Drehbuch').AsString;
  Haupt.ComboBox2.Text:=Table.fieldbyName('Medium').AsString;
  Haupt.ComboBox3.Text:=Table.fieldbyName('Format').AsString;
  Haupt.ComboBox4.Text:=Table.fieldbyName('Sound').AsString;
  Haupt.Edit14.Text:=Table.fieldbyName('Haupt1').AsString;
  Haupt.Edit15.Text:=Table.fieldbyName('Haupt2').AsString;
  Haupt.Edit16.Text:=Table.fieldbyName('Haupt3').AsString;
  Haupt.Edit17.Text:=Table.fieldbyName('Haupt4').AsString;
  Haupt.Edit18.Text:=Table.fieldbyName('Dar1').AsString;
  Haupt.Edit19.Text:=Table.fieldbyName('Dar2').AsString;
  Haupt.Edit20.Text:=Table.fieldbyName('Dar3').AsString;
  Haupt.Edit21.Text:=Table.fieldbyName('Dar4').AsString;
  Haupt.Edit22.Text:=Table.fieldbyName('Dar5').AsString;
  Haupt.Edit23.Text:=Table.fieldbyName('Dar6').AsString;
  Haupt.Memo1.Text:=Table.fieldbyName('Inhalt').AsString;
  Haupt.Memo2.Text:=Table.fieldbyName('Bemerkung').AsString;
  LoadCJPEGImage(Haupt.FilmDB,'Szene1',Haupt.Image2);
  LoadCJPEGImage(Haupt.FilmDB,'Szene2',Haupt.Image3);
  LoadCJPEGImage(Haupt.FilmDB,'Szene3',Haupt.Image4);
  LoadCJPEGImage(Haupt.FilmDB,'Szene4',Haupt.Image5);
  LoadCJPEGImage(Haupt.FilmDB,'Szene5',Haupt.Image6);
  LoadCJPEGImage(Haupt.FilmDB,'Szene6',Haupt.Image7);
  LoadCJPEGImage(Haupt.FilmDB,'Szene7',Haupt.Image9);
  LoadCJPEGImage(Haupt.FilmDB,'Szene8',Haupt.Image10);
  LoadCJPEGImage(Haupt.FilmDB,'Szene9',Haupt.Image11);
  LoadCJPEGImage(Haupt.FilmDB,'Cover',Haupt.Image8);
  LoadCJPEGImage(Haupt.FilmDB,'VCover',Haupt.Image1);
end;

Ich kann mir wirklich nicht vorstellen das es daran liegt (Habe mittlerweile alles dreimal geprüft).

Bin mittlerweile ein wenig ratlos.