Locate von UIBDataSet funzt nicht

[dor557]

So nun habe ich eben das Pferd von einer anderen seite bestiegen.

Ich bin nun hergegangen und habe, da offenbar keine andere Lösung zur verfügung stand, das DBGrid gelöscht und eine TListView genommen und die anzeige auf Report gestellt.

Dann entsprechend die Titel eingefügt und lese dann mit dieser funktion :

Delphi-Quellcode:

Procedure TKundenListeF.KundenListeAktualisieren;
var  li     : TListItem;
begin
 KundenlisteView.Items.Clear;
 KundenListeView.Items.BeginUpdate;
 Daten.KundenListe.Open;
 daten.Kundenliste.First;
  repeat
    li := KundenListeView.Items.Add;
    li.Caption := Daten.KundenListeID.AsString;
    Li.SubItems.Add(daten.KundenListeVorname.AsString);
    li.SubItems.Add(Daten.KundenListeNAME.AsString);
    li.SubItems.Add(Daten.KundenlisteStrasse.asstring);
    li.SubItems.Add(Daten.KundenlistePLZ.AsString);
    Li.SubItems.Add(Daten.KundenListeORT.AsString);
    Daten.KundenListe.Next;
  until Daten.KundenListe.Eof;
  Daten.Kundenliste.Close;
  KundenListeView.Items.EndUpdate;
end;

Die daten eben manuell ein. War zwar etwas mehr schreib arbeit aber dafür geht es.

und die Position in der Liste finde ich dann mit Hilfe von

Delphi-Quellcode:

       li := KundenListeView.FindCaption(0, inttostr(S_ID), false, True, False);
       if li <> nil then
       begin
         KundenListeView.Selected := li;
         KundenListeView.ItemFocused := Li;
         li.MakeVisible(True);
         KundenListeView.SetFocus;
       end;

wobei ich da wohl Wishmaster aus Diesem Beitrag danken muss. So kam ich auf die Idee

Mein Alter Herr ist der meinung das ich diese Technik nicht verwenden sollte aber der hat leicht reden. Der hat auch genug geld um sich die Enterprise version von Delphi zu holen wo etwas andere komponenten zur verfügung stehen

Ich habe nur die Turbo Version...

Aber auch damit geht nur eben etwas schwerer

Danke an alle die Mir versucht haben zu helfen und sich den Kopf zerbrochen haben.