e-mail adressen ordnen im memo

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

[DeddyH]

Das tust Du aber nicht, außerdem ist es wie gesagt unnötig.

[biby90]

na dann gebt mir doch mal einen tipp.... zusagen ja oder nein ist nicht gerade hilfreich

[DeddyH]

Du musst aber auch lesen, was wir schreiben.

Delphi-Quellcode:

for i := 0 to Memo1.Lines.Count - 2 do
  if Memo1.Lines[i] > Memo1.Lines[i + 1] then

[biby90]

mach ich ja -.-

geht das denn mit buchstaben?

[himitsu]

Tipp:

Erstmal verabschiede dich von globalen Variablen.

Delphi-Quellcode:

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

Das gehört alles als lokale Variablen in das Button-Klick-Ereignis.



Entweder du übergibst den Inhalt von Memo.Lines an dein Adresse
(Delphi macht sowas nicht von alleine, denn woher soll es denn wissen was du machen willst)

oder du nimmst statt Adresse das Memo.Lines in der Sortierfunktion.

[biby90]

ok ich versuchs mal