Registriert seit: 7. Dez 2008
70 Beiträge
|
Brauche Bitte Erklärung für Sortierbefehl!
8. Jan 2009, 20:29
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;
Meine Version:
Borland® Delphi® für Microsoft® Windows™ Version 10.0.2288.42451 Update 2 Copyright © 2005 Borland® Software Corporation.
|