Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
21. Nov 2012
Das hat nichts mit 2 Zeilen sparen zu tun.
Hier liegt der Hauptunterschied zwischen Exchange und manuellem Dreieckstausch. Wenn man an TStrings Objekte dranhängt, stehen diese ja normalerweise auch in einem Bezug zum jeweiligen String, daher wäre in dem Fall Exchange vorzuziehen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
20. Nov 2012
Wie ich schon sagte:
if StrToInt(Items) > StrToInt(Items) then
Du willst ja nach Zahlen sortieren und nicht nach Strings.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
20. Nov 2012
Da Du ihn als Methode von TForm1 deklariert hast, musst Du ihn dort bekanntmachen.
type
TForm1 = class(TForm)
...
private
procedure BubbleSort(Items: TStrings);
Und im implementation-Teil dann die Implementation wie gepostet.
procedure TForm1.BubbleSort(Items: TStrings);
var
...