e-mail adressen ordnen im memo

[biby90]

könnt ihr mir sagen wie ich den bubblesort jetzt die positionen tauschen lasse?
wäre total lieb von euch

[DeddyH]

TStrings.Exchange dürfte zielführend sein.

[biby90]

also ich bin jetzte bis dahin gekommen

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
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

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


implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text;
 begin;
    Done:= false;
    begin;
      i:=0;
      Done:= true;
      begin;
        While i < Adresse do
          if Adresse[i] > Adresse[i+1] then // wenn A größer als +1 dann...
           Adresse[i] Adresse[i+1]; //Adressen tauschen... wie?
           Done:= false;
      end;
      i:= +1;
    end;
 end;
end;

vergesst das ding es geht nicht also denk ich nochmal nach

[Angel4585]

warum hast du da mehrere begin und end?
in Adresse hast du alle adressen drin?
Dann kannst über Adresse[i] nur auf ein zeichen einer adresse zugreifen.
Schau dir mal TMemo.Lines an, das ist die Klasse TStrings.

tauschen:

Delphi-Quellcode:

hilfsvariable = Adresse[i]
Adresse[i] = Adresse[i+1]
Adresse[i+1] = hilfsvariable

[biby90]

mein ausbilder möchte es so er sagt dann ist es übersichlicher.... ich persönlich finde es etwas verwirrend

[DeddyH]

Was soll denn das Memo1.Text bewirken? Wieso vergleichst Du Strings (Adresse) mit Integers (i)?

[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.

[DeddyH]

Adresse ist ja auch leer, was willst Du da sortieren? Außerdem kannst Du Dir das Array doch komplett sparen, Du kannst auf die Art und Weise doch gleich Memo1.Lines nehmen, nur dass Du dort nicht Low() und High() verwendest, sondern von 0 bis Count - 2 durchgehst.

[biby90]

ja er ist leer weil der button sich das zu sortierende aus dem memo holen soll.