Forum: Object-Pascal / Delphi-Language
by Andreas13,
10. Jul 2019
Vermutlich gibt es die Funktion PadRight(..) in Delphi 5 noch nicht. DonPedroFo könnte jedoch wie folgt vorgehen:
function MyPadRight(Str_kurz: String; Ch: Char; Len_Soll: Integer): String;
var
n_Ch: Integer;
begin
Result:= Str_kurz;
n_Ch:= Len_Soll - Length(Str_kurz);
If n_Ch < 1 Then
Forum: Object-Pascal / Delphi-Language
by Andreas13,
10. Jul 2019
In diesem Fall hast Du hier eine selbstgestrickte, nicht so optimierte Lösung:
Function MyStringOfChar(Ch: Char; Count: Integer): String;
Var
i: Integer;
S: String;
Begin
S:= '';
For i:= 1 To Count Do
Forum: Object-Pascal / Delphi-Language
by Andreas13,
10. Jul 2019
Verscuh es mal mit der Funktion System.WideString.StringOfChar(WideChar ch, int count):
// ungetestet:
String_Lang:= String_kurz + StringOfChar('F', Len_Soll - Length(String_kurz));
Gruß
Andreas
Forum: Object-Pascal / Delphi-Language
by Andreas13,
8. Jul 2019
Hallo,
wenn es jetzt schon um die Sortiergeschwindigkeit geht (wir reden hierbei nicht unbedingt nur über die zu sortierenden 98 Datensätzen), dann möchte ich auch meinen „Senf“ dazu geben und einen vollkommen anderen Ansatz zeigen. Zunächst möchte jedoch auch ich feststellen, daß
a):
die Lösung von Der schöne Günther sehr professionell & komplex ist und viel Know-how enthält und voraussetzt....