Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Strings vergleichen/sortieren alphabetisch (https://www.delphipraxis.net/83263-strings-vergleichen-sortieren-alphabetisch.html)

Hallo_Thomas 30. Dez 2006 06:12


Strings vergleichen/sortieren alphabetisch
 
Hallo,

folgendes String Problem
Delphi-Quellcode:
Ab < und
ab > Und
So ungefähr stellt sich mein Problem(Ansi) dar.Wie kann ich das effizent umstellen? Vielleicht durch Umstellung des Zeichencodes? Habe in der Richtung leider nix gefunden?
Ich benutze den Code in einer Binären Suche,aber an der stelle will der mir nix einfallen?! :( :shock: :wall: :drunken:

Bernhard Geyer 30. Dez 2006 06:23

Re: Strings vergleichen/sortieren alphabetisch
 
(Ansi/Wide)UpperCase/LowerCase ist dein Freund. Kosted natürlich Rechenzeit wenn das jedesmall durchgeführt wird bei einer Sortierung.

Hallo_Thomas 30. Dez 2006 06:28

Re: Strings vergleichen/sortieren alphabetisch
 
Zitat:

Zitat von Bernhard Geyer
(Ansi/Wide)UpperCase/LowerCase ist dein Freund. Kosted natürlich Rechenzeit wenn das jedesmall durchgeführt wird bei einer Sortierung.

Gibt es da nicht was besseres? So ne Art ANSI zu ISO Konvertierung?

marabu 30. Dez 2006 07:37

Re: Strings vergleichen/sortieren alphabetisch
 
Hallo Thomas,

letzten Endes hat Bernhard schon Recht, aber du kannst für den Vergleich auch einfach AnsiCompareText() aus der Unit StrUtils verwenden.

Grüße vom marabu

Hallo_Thomas 30. Dez 2006 16:45

Re: Strings vergleichen/sortieren alphabetisch
 
@Bernhard Geyer & marabu

Jo, ich werd es wohl so machen,Danke!!!


,aber noch eine Frage, für eine ordenliche alphabetische Sortierung wäre es toll wenn die Wörter mit ä,ö,ü nicht nach z einsortiert würden, hat da jemand noch eine tolle Idee!

marabu 30. Dez 2006 20:57

Re: Strings vergleichen/sortieren alphabetisch
 
Hallo Thomas,

nimm einfach AnsiCompareText() - das hatte ich doch schon in Beitrag #4 geschrieben. Und schau einfach mal in die Dokumentation, wenn du eine Funktion noch nicht kennst. Mache ich auch immer. Tut überhaupt nicht weh.

Freundliche Grüße


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:45 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