Einzelnen Beitrag anzeigen

Perlsau
(Gast)

n/a Beiträge
 
#5

AW: Wie bekomm ich das mit dem sortieren hin?

  Alt 30. Okt 2015, 20:54
Prinzipiell ja, da aber Zahlen als Strings gespeichert werden, wird das keine numerische Sortierung werden.
Nichts einfacher als das: Fülle die Strings vorne mit Nullen oder Leerzeichen auf, so daß alle Strings gleich lang sind:
Delphi-Quellcode:
// ---------- Fügt vor den String Zeile das Zeichen so oft an, bis die Länge Zahl erreicht ist ----------
Function Plus_String(Zeile: String; Zeichen: Char; Zahl: Integer): String;
Var
  Aus : String;

begin
  If Length(Zeile) > Zahl - 1 Then
     Result := Zeile Else
     Begin
       Aus := Zeile;
       Repeat
         Aus := Zeichen + Aus;
       Until Length(Aus) = Zahl;
       Result := Aus;
     End;
end;
  Mit Zitat antworten Zitat