e-mail adressen ordnen im memo

[biby90]

hi leute,
ich habe jetzt eine ausbildung zur fachinformatikerin angefangen habe jedich fast null vorkenntnisse.
jetzt habe ich die aufgabe bekommen die e-mail liste in einem Memo zu ziehen und ein programm zu erstellen die das ganze alphabetisch sortiert.
ich habe eine kleine ahnung wie ich es hinbekommen könnte.... aber weiß nicht wie ich anfangen soll.

danke im vorraus.

[sirius]

Kannst du es etwas ausführlicher formulieren?

Woher ziehst du die Liste (mit Drag and Drop?)?
Nach was sortieren? einfach nach Alphabet oder auch nach Domains...

mfg
sirius


PS: Wieso fängt man mit 0 Vorkenntnissen eine Ausbildung zur Fachinformatikerin an? Gestern noch Praktikum, damit müsstest du doch wissen, was auf dich zukommt.
Nach deinen bisherigen Fragen würde ich dir dringend raten nicht von einer Aufgabe zur nächsten zu rennen, sondern sich mit einem Buch mal Grundlagen anzueignen.

[biby90]

also wenn neue dazu kommen sollen sie auf knopfdruck immer neu sortiert werden.... also zeile für zeile wenn man neue in das memo eingetragen hat


naja bin erst seit einer woche hier und habe noch kein buch -.-
ach und die anderen aufgaben sind ja fertig^^

[Angel4585]

Schau dir mal Sortieralgorithmen an, ich denke darum geht es deinem Ausbilder grad.
BubbleSort ist für den Anfang ganz ok, dann sollten aber schon bald InsertionSort, SelectionSort, QuickSort und ShellSort kommen :)
RadixSort schaut man in der Ausbildung garnicht an glaub ich :gruebel:

[biby90]

ja er meinte grad ich soll mir kopfschleifen, bubble sort und string analysen ansehen.
mal gucken was ich herausbekomme.
ich werde euch meine erfolge mitteilen ^^

[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