Zeichenketten
eMail-AdressenEs ist ein anwenderfreundliches Delphiprogramm zu erstellen, welches den Nutzer zur Eingabe einer e-Mail-Adresse auffordert und ihm danach eine Antwort gibt.Wenn der eingegebene String kein "@" und kein "." in dieser Reihenfolge enthält, soll mitgeteilt werden: "Das ist keine gültige Adresse!" und die Eingabeaufforderung soll erneut gezeigt werden. Anderenfalls soll die Meldung heißen: "Aha, Sie sind bei "Subdomäne.Hauptdomäne" registriert, wobei diese Angaben aus dem eingegebenen String herausgelesen werden. Die Eingabe soll durch eine InputBox realisiert werden. Wenn der String kein "@" oder keinen "." enthält, (eigentlich nur wenn der Rest des Strings nach dem Abschneiden aller Zeichen vor dem "@"kein "." mehr enthält,) dann soll die Eingabe verworfen werden. Die Ausgabe der Meldungen kann mit einer ShowMessage-Funktion erfolgen. Um den ersten Teil der Adresse abzuschneiden, wird die COPY-Funktion benutzt. Dazu muss vorher mit LENGTH() bestimmt werden, wie lang der String am Anfang war. Die eMail-Adressen sollen in einer ListBox erscheinen. |
||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||
| Lösung | ||||||||||||||||||||||||||||||
|
|
|
|
||||||||||||||||||||||||||||
