Stringgrid inkl. Umlaute richtig sortieren

[Mackhack]

Hallo Marabu,

schiebst du dabei die Bits um 16 stellen nach Links oder wie muss ich mir das vorstellen? Und warum funktioniert das ueberhaupt mit dem schieben?

[marabu]

Ja richtig, alle Bits werden um 16 Positionen nach links verschoben - das ist eine Multiplikation mit 2 hoch 16. Das funktioniert so, weil die Multiplikation, wie jede andere Rechenoperation auch, auf Registerebene per Shift realisiert wird. Manchmal musst du aufpassen, dass du den richtigen Basistyp verwendest. Ein Byte und SHL 8 löscht effektiv das Byte, da die Bits "am linken Rand" verloren gehen und "von rechts her" mit Nullen aufgefüllt wird.

Hier ein paar Stichworte für eine Suche: Technische Informatik Schieberegister ALU.

PS: Hast du Schlafstörungen? Bei dir muss es doch zappenduster sein...

[Steven2]

Danke Marabu, das müßte nun wirklich funktionieren...sieht hier auch gut aus.
Danke !!!

Viele Grüße
Steven

[Mackhack]

Zitat von marabu:

PS: Hast du Schlafstörungen? Bei dir muss es doch zappenduster sein...

Hallo Marabu,

nein hab ich keine, Schlaf is doch sowas von ueberbewertet, findest du nicht auch Vielen Dank fuer die Erklaerungen!

[Steven2]

Hallo

wie funktioniert das jetzt hiermit?

Delphi-Quellcode:

  SIZE_SUFFIX = 'Ä';  // Wie kann ich auch die anderen Umlaute sortieren (angeben)
  SIZE_COLINDEX = 3;

kann ich das weglassen oder muss ich die anderen umlaute integrieren?
wenn ja...magst du mir noch zeigen wie?

grüße steven

[marabu]

Hallo Steven,

die beiden Konstanten sind doch nur Relikte aus deinem anfangs geschilderten Problem, der Sortierung von Zeichenketten, die eine Zahl und ordinären Text enthalten. Sie haben nichts mit dem allgemeinen Sortierproblem (Telefonbuchordnung) zu tun.

Gute Nacht

[Steven2]

AHA...achso, also brauche ich nur folgendes?
Irgendwie bin ich grad etwas verwirrt:

Delphi-Quellcode:

// Event Handler für OnCustomCompare() im OI erzeugen: 
procedure TForm.AdvStringGrid1ClickSort(Sender: TObject; ACol: Integer);

begin
   with Sender as TAdvStringGrid do
     SortByColumn(ACol);
end;

Delphi-Quellcode:

procedure TForm.AdvStringGrid1CustomCompare(Sender: TObject; str1, 
  str2: String; var Res: Integer);
begin
  // die Locale solltest du in deinem Programm an zentraler Stelle
  // gleich zu Beginn zwischenspeichern, damit der ständige Aufruf
  // von GetThreadLocale hier unterbleiben kann.
  Res := CompareString(GetThreadLocale or SORT_GERMAN_PHONE_BOOK shl 16,
  NORM_IGNORECASE, PChar(str1), Length(str1), Pchar(str2), Length(str2)) - 2;
end;

[marabu]

Richtig.

Der Code für das Event OnGetFormat() bezog sich auf Spaltenwerte der Form '150 Kb'.

Weg damit.

[Steven2]

Okay
Danke