Brauche Bitte Erklärung für Sortierbefehl!

[Molzer]

Hallo !!

Hab hier einen Text und verstehe leider ein paar Zeilen nicht

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
  j: Integer;
  temp:string;
begin
for i := 0 to memo1.Lines.Count - 1 do //warum -1, er nimmt für i die erste zahl und für j 
                                       // die zweite, tauscht sie aus wenn nötig
for j := i to memo1.Lines.Count - 1 do //und das solange bis j>i, warum -1???
begin
  if memo1.Lines[i]>memo1.Lines[j] then  
  begin
    temp:=memo1.lines[i];
    memo1.Lines[i]:=memo1.lines[j];
    memo1.Lines[j]:=temp;

[fkerber]

Hi!

Das -1 kommt daher, da ab 0 angefangen wird zu zählen. Hat das Memo 4 Zeilen, so haben sie die Zeilennummern 0,1,2 und 3.
Memo1.Lines.Count gibt aber 4 zurück (es sind ja 4 Zeilen), also muss man von 0 bis 3 (eben genau 4-1) gehen.


Ciao, Frederic

[Molzer]

alles klar!!
danke!!

[Matze]

Hallo,

aber würde es nicht reichen, "i" bis "Memo1.Lines.Count - 2" laufen zu lassen und j bei i+1 beginnen zu lassen?
Es wird doch immer die aktuelle Zahl (Index i) mit den darauf folgenden (Index i+1, i+2, ...) verglichen. Im letzten Durchlauf wird dann doch die letzte Zahl mit sich selbst verglichen und im ersten ebenfalls.

Oder habe ich einen Denkfehler?

Grüße, Matze

[Uwe Raabe]

Zitat von Matze:

Oder habe ich einen Denkfehler?

Nein, da hast du vollkommen Recht.

Aber man kann das Ganze auch so lösen:

Delphi-Quellcode:

var
  temp: TStringList;
begin
  temp := TStringList.Create;
  try
    temp.Assign(memo1.Lines);
    temp.Sort;
    memo1.lines := temp;
  finally
    temp.Free;
  end;
end;

[inherited]

if memo1.Lines[i]>memo1.Lines[j] then Und das soll funktionieren?

[Neutral General]

Zitat von inherited:

if memo1.Lines[i]>memo1.Lines[j] then Und das soll funktionieren?

Ja das funktioniert. Anfangs hab ich auch groß geguckt als ich es das erste mal versucht hab und es funktioniert hat

[inherited]

Is ja Wahnsinn
Man lernt doch immer noch dazu

[Sir Rufo]

Andersherum, warum solte es nicht?

TMemo.Lines ist vom Typ TStrings, und das ist wie folgt definiert:

Delphi-Quellcode:

TStrings = class(TPersistent)
  private
    ...
  public
    ...
    property Strings[Index: Integer]: string read Get write Put; default;  // <-- das Zauberwort
    ...
  end;

Das Zauberwort ist default. Darum verweist in dem Beispiel Memo1.Lines[ i ] direkt auf einen String und den kann ich natürlich so vergleichen

[inherited]

Das mit dem default war mir klar. Was mir neu war, waren die Stringvergleiche auf >, <