Sortieren eines Arrays of String

[DonPedroFo]

Die Angabe Delphi 5 stimmt

Ich komme mit der kurzen Variante von Delphi.Narium gut zurecht.
Im großen und ganzen hätte ich da bestimmt auch selber drauf kommen können.
Aber trotzdem vielen Dank. Die nächste Frage lauert schon in meinem Kopf. Lang dauert es nicht mehr bis ich sie stelle.

[DonPedroFo]

Ich weiß nicht ob ich die Frage hier anhängen kann oder ob ich einen neuen Thread auf machen sollte.

Es geht um folgendes:

Da ich unterschiedlich lange Datenfelder habe, hab ich die einzelnen Längen von jedem String bzw. die Länge vom Längsten String ermittelt und "gespeichert".

Zum späteren programmieren müssen alle Strings im Datenfeld eine Bestimmte Länge haben z.b.

Vorher:
S01122334455666
S0112233
S01144
S011

Nachher:
S0112233445566
S0112233FFFFFF
S01144FFFFFFFF
S011FFFFFFFFFF

Was ich damit sagen will ist, das ich die Länge vom längsten String als Referenzlänge nehme und alle Strings die kleiner sind mit "F" auffülle bis sie die gewünschte länge haben.

Ich hab das ganze schon mit FillChar(Datenfeld,Sizeof(XX),X);

Wie kann ich hier eine Länge bzw. "F" angeben?

[Andreas13]

Verscuh es mal mit der Funktion System.WideString.StringOfChar(WideChar ch, int count):

Delphi-Quellcode:

// ungetestet:
String_Lang:= String_kurz + StringOfChar('F', Len_Soll - Length(String_kurz));

Gruß
Andreas

[DeddyH]

In Delphi 5 war die IIRC in SysUtils, wenn es sie überhaupt schon gab.

[Andreas13]

Zitat von DeddyH:

In Delphi 5 war die IIRC in SysUtils, wenn es sie überhaupt schon gab.

In diesem Fall hast Du hier eine selbstgestrickte, nicht so optimierte Lösung:

Delphi-Quellcode:

Function MyStringOfChar(Ch: Char; Count: Integer): String;
Var
  i: Integer;
  S: String;
   
Begin
  S:= '';
  For i:= 1 To Count Do
    S:= S + Ch;

  Result:= S;
End;

Gruß, Andreas

[Dalai]

StringOfChar gibt es in Delphi 5, offensichtlich integriert im Compiler (die Hilfe sagt Unit System, die Funktion ist dort aber nicht zu finden).

Grüße
Dalai

[Andreas13]

DonPedroFo könnte - falls Delphi 5 diese Funktion schon kennt - auch direkt die Funktion PadRight(TotalWidth: Integer; PaddingChar: Char): string; verwenden. In XE5 ist sie zu finden in der Unit System.SysUtils.
Gruß, Andreas