AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Memo lässt Zeilen verschwinden

Ein Thema von aphexx · begonnen am 25. Mär 2011 · letzter Beitrag vom 31. Mär 2011
 
aphexx

Registriert seit: 23. Apr 2010
19 Beiträge
 
#20

AW: Memo lässt Zeilen verschwinden

  Alt 30. Mär 2011, 21:28
wie wäre es statt des Arrays eine Tlist zu verwenden?
Da gibt es eine funktionierende Sortierung.

Gruß
K-H
Ich hab' nun das Array in eine funktionierende TList umgewandelt. Die Datenübergabe funzt perfekt, allerdings habe ich jetzt noch ein kleines Problem mit der Sortierung. Die Reihenfolge ist überhaupt nicht korrekt und sieht nur 'etwas' sortiert aus. Außerdem wird die Reihenfolge jedes mal geändert, wenn ich die Liste sortiere. Klar ist das erwünscht, wenn ich meine Boolean-Variable mit ins Spiel bringe, aber ohne Variable muss das Ergebnis doch immer gleich aussehen. Für eine absteigende Sortierung (siehe Code-Block) würde ich in der if-Klausel X > Y schreiben. Wäre das korrekt?


Nach ein wenig Recherche sieht meine TListSortCompare so aus:
Delphi-Quellcode:
function Dh_CompareDateB(Item1, Item2: pointer):integer;
var
  X, Y: TDateTime;
begin
  x := StrToDateTime(PEntry(Item1).DatumZeit);
  y := StrToDateTime(PEntry(Item2).DatumZeit);
  if (X < Y)
  then Result := 1
  else if (X = Y) then Result := 0
                    else Result := -1;
end;
@Jumpy: Danke für's aufräumen, ich habs umgesetzt.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz