Sortieralgorithmen

[biby90]

also ich habe es jetzt so gemacht. wobei ich allerdings nicht weiß ob "sort" richtig ist aber das kläre ich gleich.
jetzt will ich ja in meiner procedure die eine Zeile mit Sort austauschen. aber wie mach ich das? der meckert immer!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : Integer; //Position
  Buffer: String;
begin
  for j:=0 to Memo1.Lines.count -2 do
  begin
    for i:=j +1 to Memo1.Lines.Count -1 do
    begin
      if Memo1.Lines[j] > Memo1.Lines[i] then //tauschen mit funkction Sort
      begin
        Buffer:= Memo1.Lines[j];
        Memo1.Lines[j]:= Memo1.Lines[i];
        Memo1.Lines[i]:= Buffer;
      end;
    end;
  end;
end;

function TForm1.CharToInt(AValue: String): Integer;
var
  i: Integer;
begin
  Result := -1;

  for i := 1 to Length(CharTable) do
  begin
    if AValue = Chartable[i] then
    begin
      Result := i;
      Break;
    end;
  end;
end;

function TForm1.Sort(ASrcA, ASrcD: String): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i:=1 to Length(ASrcD) do
  begin
    if ASrcA > ASrcD then
    begin
      Result:= i+1 ;
    end else
    begin
      Result:= i-1;
      CharToInt(ASrcA[i]);
      CharToInt(ASrcD[i]);
      Break;
    end;
  end;
end;