Sortieralgorithmen

[biby90]

hallo leute,
ja ich weiß die schon wieder
heute muss ich eine funktion schreiben, die das vergleichen von 2 zeilen ersetzen soll (wenn ihr euch noch an den bubblesort von freitag erinnert)

Delphi-Quellcode:

unit sortieren;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  function Sort(ASrcA, ASrcD: String): Integer;
  function CharToInt(AValue: Char): Integer;

    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  CharTable: array[0..25] of Char =
    ('A','B', 'C', 'D', 'E', 'F', 'G', 'H', 'I','J', 'K', 'L', 'M', 'N', 'O',
      'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');



implementation


{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : Integer; //Position
  Buffer: String; //speicher
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   //soll mit funktion Sort ausgetauschen werden
      begin
        Buffer := Memo1.lines[j];
        Memo1.Lines[j] := Memo1.Lines[i];
        Memo1.Lines[i] := Buffer;
      end;
    end;
  end;
end;

function TForm1.CharToInt(AValue: Char): Integer;
var
  i : Integer;
begin
  Result := -1;
  for i := 1 to length(CharTable) do
  begin
    if CharTable[i] = AValue then
    begin
      Result := i;
      Break;
    end;
  end;
end;

function TForm1.Sort(ASrcA, ASrcD: String): Integer;  // komme ab hier nicht weiter
var
  i: Integer;
  s: String;
begin
  Result := -1;
  for i := 1 to Length(CharTable) do

end;

end.

wenn ihr es euch mal ansehen könntet... über einen tipp würde ich mich freuen!