DbGrid sortiert falsch nach OnTitleClick

[Pegasus0211]

Guten Tag,

in Delphi 2009 haben wir ein funktionierendes Programm geschrieben, welches uns den Inhalt einer Postgres-Datenbank mittels einer VirtualTreeView-Komponente und eines editier- und sortierbaren DBGrids anzeigt.

Bei der Übernahme zu Lazarus treten folgende Probleme auf - Zugriff erfolgt über die Zeos-Komponente:

Bei der unsortierten Darstellung des Grids ist noch alles ok; die erste Spalte im Grid zeigt den automatisch hochzählenden
Indexkey der Tabelle; auch alle anderen Daten sind korrekt dargestellt, lassen sich korrekt editieren.

Nach einem Sortierclick auf den Spaltenkopf des Grid werden die Sortierfolgen zerstört; es erscheint z.B. der
Inhalt 1 - 2 - 3 , dann drei leere Felder, dann geht es mit 4 - 5 - weiter.
Ein erneuter Klick auf den Spaltenkopf sortiert rückwärts mit ähnlichem Erscheinungsbild.

In der Indexspalte wird beim vertikalen Bewegen im Grid, ungeachtet vom derzeitigen Inhalt, der Folgewert eingetragen.
Befindet sich in einer Zelle eine 5, so wird automatisch im nächsten Feld beim Scrollen eine 6 eingetragen; obwohl dort vorher eine 15 war.

Es dürfte eigentlich kein UTF8-Problem sein, da auch Delphi 2009 mit Unicodestrings arbeitet und dort arbeitet das Programm korrekt.

Über Tipps wäre ich Euch sehr dankbar.

Grüße aus der Heide

Bernd

[monta]

Liegt das ggf. an PacketRecords der Query?

Da ja beim scrollen unter umständen zusätzlich weitere Datensätze geladen werden, kann es eventuell sein, das die dann halt einsortiert werden und das ganze zerstören. Hab ich aber noch nie getestet. Vielleicht setzt du PacketRecords der Query mal testweise auf 0.

[piper62]

Leere Felder im DBGrid wecken bei mir immer den Verdacht eines Codepage-Problems.

Ich würde mal versuchen die codepage in den Properties der ZConnection explizit anzugeben.
Entweder direkt im Objektinspektor in der IDE oder zur Laufzeit:
Bsp.:
db_interface.ZConnection_main.Disconnect;
db_interface.ZConnection_main.Properties.Clear;
db_interface.ZConnection_main.Properties.Add('codepage=utf8');
db_interface.ZConnection_main.Connect;
ZQuery1.Open;

Gruss,
Piper

[Pegasus0211]

Leere Felder im DBGrid wecken bei mir immer den Verdacht eines Codepage-Problems.

Ich würde mal versuchen die codepage in den Properties der ZConnection explizit anzugeben.
Entweder direkt im Objektinspektor in der IDE oder zur Laufzeit:
Bsp.:
db_interface.ZConnection_main.Disconnect;
db_interface.ZConnection_main.Properties.Clear;
db_interface.ZConnection_main.Properties.Add('codepage=utf8');
db_interface.ZConnection_main.Connect;
ZQuery1.Open;

Gruss,
Piper

Guten Morgen,

danke für den Tipp. Hat leider nichts gebracht.

Gruß Bernd

[Pegasus0211]

@Monta

Guten Morgen,

habe versucht, Deinem Rat zu folgen - danke dafür.
Leider hat meine Query nicht die Property PackedRecords.

Oder hab ich Dich falsch verstanden?

Gruß Bernd

[monta]

@Pegasus, hab gerade nachgeschaut...im OI ist sie bei Zeos nicht. Aber über den Code kannst sie setzen, also ZQuery.PacketRecords.
Steht standardmäßig auf 10.

Was die leeren Felder angeht, ist allerdings pipers Lösung wohl die wahrscheinlichere.

[KOBOLD Messring GmbH]

Leere Felder riechen verdächtig nach Sonderzeichen, die irgendwo im String enthalten sind, und völlig falsch interpretiert werden. Habe festgestellt, dass auch die Codepage-Einstellung der DB-Komponente oft nichts nützt. Leider werden dann oftmals (je nach in der DB verwendeter Codepage, Betriebssystem und Laz/Zeos/FPC-Version) die entsprechenden Zeilen einfach ausgeblendet, bzw. als Leerstring dargestellt.
Hier hilft im OnGetText ein ConvertEncoding aus der Unit LConvEncoding, z.B.:

Code: Alles auswählen

procedure TForm1.SQLQuery1SachNrGetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  aText := ConvertEncoding ((Sender AS TStringField).AsString, 'iso88591', 'utf8');
end;