Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
11. Jul 2019
Da fehlt 'ne 1,
Hab's oben ergänzt.
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
11. Jul 2019
Sortierroutine von oben etwas angepasst:
function Filler(s : String; sFillChar : Char; iLength : Integer) : String;
begin
Result := s + Copy(DupeString(sFillChar, iLength), 1, iLength - Length(s));
end;
procedure TForm1.SortMemo;
var
i : Integer;
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
10. Jul 2019
Sortierroutine von oben etwas angepasst:
const
csFFFF = 'FFFFFFFFFFFFFF'; // Soviele F, wie maximal benötigt werden könnten.
ciFFFF = 14; // Maximale Anzahl von F, die benötigt werden kann.
function FillFFFF(s : String) : String;
begin
Result := s + Copy(csFFFF,1,ciFFFF - Length(s));
end;
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
8. Jul 2019
Kurz und knapp:procedure TForm1.SortMemo;
var
i : Integer;
k : Integer;
s : String;
begin
for i := 0 to Memo1.Lines.Count - 1 do begin
for k := i + 1 to Memo1.Lines.Count - 1 do begin
if Copy(Memo1.Lines,5,4) < Copy(Memo1.Lines,5,4) then begin
s := Memo1.Lines;
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
8. Jul 2019
Das geht mit 'ner TStringList.
Schau Dir bitte mal dashier an: https://www.delphipraxis.net/835874-post7.html
Du müsstest das dortige Beispiel für die Funktion MyCompare entsprechend Deinen Anforderungen anpassen.