e-mail adressen ordnen im memo

[biby90]

ja hab ich auch gemerkt. naja die e-mail adressen sollen eben in das memo geschrieben werden.
also habs nochmal umgeschrieben aber es funktioniert nicht so wie ich es haben will

Delphi-Quellcode:

var
  Form1: TForm1;
  i : Integer; //Position
  Done: Boolean; //Fertig oder Nicht
  hilfe: String; //E-Mail Adressen
  Adresse: array of String;

implementation


{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text;
  begin;
    repeat
      done:= true;
      for i:=Low(Adresse) to High(Adresse) -1 do
      begin;
        if Adresse[i] > Adresse [i+1] then
        begin;
          hilfe:=Adresse[i];
          Adresse[i]:=Adresse[i+1];
          Adresse[i+1]:=hilfe;
          done:=false;
        end;
      end;
    until done;
  end;
end;

end.