Grundkurs Programmieren mit Delphi: Systematisch programmieren lernen mit Turbo Delphi 2006, Delphi 7 und vielen anderen Delphi-Versionen 383480892X, 9783834808929 [PDF]

Zitiervorschau

Wolf-Gert Matthäus Grundkurs Programmieren mit Delphi

Wolf-Gert Matthäus

Grundkurs Programmieren mit Delphi Systematisch programmieren lernen mit Turbo Delphi 2006, Delphi 7 und vielen anderen Delphi-Versionen 3., neu bearbeitete Auflage Mit 303 Abbildungen STUDIUM

Bibliografische Information der Deutschen Nationalbibliothek Die Deutsche Nationalbibliothek verzeichnet diese Publikation in der Deutschen Nationalbibliografie; detaillierte bibliografische Daten sind im Internet über abrufbar.

Das in diesem Werk enthaltene Programm-Material ist mit keiner Verpflichtung oder Garantie irgendeiner Art verbunden. Der Autor übernimmt infolgedessen keine Verantwortung und wird keine daraus folgende oder sonstige Haftung übernehmen, die auf irgendeine Art aus der Benutzung dieses Programm-Materials oder Teilen davon entsteht. Höchste inhaltliche und technische Qualität unserer Produkte ist unser Ziel. Bei der Produktion und Auslieferung unserer Bücher wollen wir die Umwelt schonen: Dieses Buch ist auf säurefreiem und chlorfrei gebleichtem Papier gedruckt. Die Einschweißfolie besteht aus Polyäthylen und damit aus organischen Grundstoffen, die weder bei der Herstellung noch bei der Verbrennung Schadstoffe freisetzen.

1. Auflage 2004 2. Auflage 2006 3., neu bearbeitete Auflage 2010 Alle Rechte vorbehalten © Vieweg +Teubner | GWV Fachverlage GmbH, Wiesbaden 2010 Lektorat: Christel Roß | Walburga Himmel Vieweg+Teubner ist Teil der Fachverlagsgruppe Springer Science+Business Media. www.viewegteubner.de Das Werk einschließlich aller seiner Teile ist urheberrechtlich geschützt. Jede Verwertung außerhalb der engen Grenzen des Urheberrechtsgesetzes ist ohne Zustimmung des Verlags unzulässig und strafbar. Das gilt insbesondere für Vervielfältigungen, Übersetzungen, Mikroverfilmungen und die Einspeicherung und Verarbeitung in elektronischen Systemen. Die Wiedergabe von Gebrauchsnamen, Handelsnamen, Warenbezeichnungen usw. in diesem Werk berechtigt auch ohne besondere Kennzeichnung nicht zu der Annahme, dass solche Namen im Sinne der Warenzeichen- und Markenschutz-Gesetzgebung als frei zu betrachten wären und daher von jedermann benutzt werden dürften. Umschlaggestaltung: KünkelLopka Medienentwicklung, Heidelberg Druck und buchbinderische Verarbeitung: STRAUSS GMBH, Mörlenbach Gedruckt auf säurefreiem und chlorfrei gebleichtem Papier. Printed in Germany ISBN 978-3-8348-0892-9

Vorwort

1

œȱ ’‹ȱ Ž’—Žȱ œŽ‘›ȱ Ž››Žž•’Œ‘Žȱ Žž’”Ž’ȱ £žȱ ‹Ž›’Œ‘Ž—DZȱ ŽŽ— §›’ȱ ǻž—ȱ –Š—ȱ ‘˜ǰȱŠœœȱŽœȱ—˜Œ‘ȱ•Š—Žȱœ˜ȱ‹•Ž’‹Ǽȱ’—Žȱœ’Œ‘ȱŠžȱŽ›ȱŽ’Žȱȱ https://downloads.embarcadero.com/free/delphi Ž’—Žȱ”˜œŽ—•˜œŽȱŒ‘ž•Ȭȱž—ȱŽ›—ŸŽ›œ’˜—ȱŸ˜—ȱŽ•™‘’ȱž—Ž›ȱŽ–ȱŠ–Ž—ȱž›‹˜ȱŽ•Ȭ ™‘’ȱŘŖŖŜȱ£ž–ȱ›Ž’Ž—ȱ Ž›ž—Ž›•ŠŽ—ǯȱȱ Š–’ȱ”Š——ȱŽ•™‘’ȱŸ˜—ȱŠ••Ž—ȱ—Ž›ŽœœŽ—Ž—ǰȱž—Š‹‘§—’ȱŸ˜—ȱŽ›Ž—ȱ Ž•‹ŽžŽ•ǰȱȱ —˜Œ‘ȱ‹ŽœœŽ›ȱŠ•œȱ‹’œ‘Ž›ȱ£ž–ȱ’—œ’Žȱ’—ȱ’Žȱ›˜›Š––’Ž›ž—ȱŽ—ž£ȱ Ž›Ž—ǯȱȱȱ Šœȱ  Š›ȱȮȱ —Ž‹Ž—ȱ Ž–ȱ ’—£ ’œŒ‘Ž—ȱ Ž›˜•Ž—ȱ ‹ŸŽ›”Šžȱ Ž›ȱ  Ž’Šž•ŠŽȱȮȱ Ž’—ȱ  Ž’Ž›Ž›ȱ ›ž—ǰȱ ›ŠœŒ‘ȱ ’ŽœŽȱ Š”žŠ•’œ’Ž›Žȱ ›’Šž•ŠŽȱ Ÿ˜›£ž•ŽŽ—ǰȱ ’Žȱ œ’Œ‘ȱ ’—ȱ Ž—ȱ Š™’Ž•—ȱ Řȱ ‹’œȱ ŗŚȱ —ž›ȱ Ž›’—û’ȱ Ÿ˜—ȱ Ž›ȱ£ Ž’Ž—ȱ ž•ŠŽȱ ž—Ž›œŒ‘Ž’Žǰȱ Š‹Ž›ȱ Šû›ȱ ’–ȱ Ÿã••’ȱ —ŽžŽ—ȱ Š™’Ž•ȱ ŗȱ œŽ‘›ȱ Šžœû‘›•’Œ‘ȱ Šžȱ ’Žȱ Ž£žœ–㐕’Œ‘Ȭ ”Ž’ǰȱ’Žȱ—ŠŒ‘˜•Ž—Žȱ—œŠ••Š’˜—ȱž—ȱŽ—ȱ›ž—•ŽŽ—Ž—ȱ–Š—ȱ–’ȱ’ŽœŽ–ȱ ›Ž’Ž—ȱž›‹˜ȱŽ•™‘’ȱŘŖŖŜȱŽ’—Ž‘ǯȱȱ Ž•‹œŸŽ›œ§—•’Œ‘ȱ ”˜––Ž—ȱ Š—Ž‹Ž—ȱ ŠžŒ‘ȱ ’Žȱ Š—Ž›Ž—ǰȱ Š•Ž—ȱ ž—ȱ —ŽžŽ—ȱ Ž•Ȭ ™‘’ȬŽ›œ’˜—Ž—ȱŽ•™‘’ȱŝǰȱŽ•™‘’ȱŞǰȱŽ•™‘’ȱŘŖŖśȱ‹’œȱŽ•™‘’ȱŘŖŖşȱ—’Œ‘ȱȱ£žȱ”ž›£ǰȱœ˜ȱ ŠœœȱŠ••Ž—ȱ’—œŽ’Ž›—ǰȱ–’ȱ Ž•Œ‘Ž›ȱ’ŽœŽ›ȱŽ•™‘’ȬŽ›œ’˜—Ž—ȱœ’ŽȱŠžŒ‘ȱ£žȱž—ȱ‘ŠȬ ‹Ž—ȱ  Ž›Ž—ǰȱ ȱ –’ȱ Ž–ȱ Ÿ˜›•’ŽŽ—Ž—ȱ ’—û‘›ž—œ‹žŒ‘ȱ Ž›ȱ –Š—ȱ –’ȱ ’ŽœŽ›ȱ Š›Š”’ŸŽ—ȱž—ȱ–˜Ž›—Ž—ȱ›˜›Š––’Ž›ž–Ž‹ž—ȱ•Ž’Œ‘ȱŽ–ŠŒ‘ȱ ’›ǯȱȱ Ž’Ž›‘’—ȱœŽ‘Ž—ȱŠ••ŽȱŽ’œ™’Ž•ŠŽ’Ž—ȱ’–ȱ—Ž›—Žȱ£ž›ȱŽ›ûž—ǰȱ™˜œ’’Ÿȱ’œȱŠȬ ‹Ž’ȱ£žȱŸŽ›–Ž›”Ž—ǰȱŠœœȱž›‹˜ȱŽ•™‘’ȱ™›˜‹•Ž–•˜œȱ–’ȱŽ—ȱŠ•Ž—ȱŽ•™‘’ȬŝȬ›˜“Ž”Ȭ Ž—ȱŠ›‹Ž’Ž—ȱ”Š——ǯȱȱ Ž—•’—Ž—ǰȱ’–ȱ˜––Ž›ȱŘŖŖşȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱ!˜•Ȭ Ž›ȱŠ‘§žœȱ ȱ

Aus dem Vorwort zur zweiten Auflage ››Žž•’Œ‘ȱœŒ‘—Ž••ȱ Š›ȱ’ŽȱŽ›œŽȱž•ŠŽȱŸŽ››’Ž—ǰȱž—ȱŽ›—ȱ˜•Žȱ’Œ‘ȱŽ›ȱžȬ ˜›Ž›ž—ȱŽœȱŽ›•ŠŽœǰȱŽ’—Žȱ£ Ž’Žǰȱ ŽœŽ—•’Œ‘ȱŽ› Ž’Ž›Žȱž—ȱŸŽ›‹ŽœœŽ›ŽȱžȬ •ŠŽȱŸ˜›£ž•ŽŽ—ǯȱȱ ’Žȱž—Ž›œŒ‘Ž’Žȱœ’Œ‘ȱŸ˜—ȱŽ›ȱŽ›œŽ—ȱž•ŠŽȱŸ˜›ȱŠ••Ž–ȱž›Œ‘ȱŠœȱ—Žžȱ‘’—£žȱŽȬ —˜––Ž—Žȱ Š™’Ž•ȱŞȱ£žȱŽ—ȱ ›ž—•ŠŽ—ȱŽ›ȱ ›Š’”Ȭ›˜›Š––’Ž›ž—ȱ–’ȱŽ•™‘’ǯȱȱ

ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱ˜› ˜›ȱ

—ȱ’ŽœŽ–ȱ—ŽžŽ—ȱ Š™’Ž•ȱ ’›ȱŸŽ›œ§—•’Œ‘ȱž—ȱŠžœû‘›•’Œ‘ȱŽœŒ‘’•Ž›ǰȱ ’ŽȱŽȬ ˜–Ž›’œŒ‘Žȱ ’ž›Ž—ȱ Šžȱ Ž–ȱ ’•œŒ‘’›–ȱ Ž—œŽ‘Ž—ȱ ”ã——Ž—ǰȱ  ’Žȱ —’–Š’˜—Ž—ȱ ž—ȱ ™’Ž•Žȱ Ž—œŽ‘Ž—ȱ ž—ȱ  ’Žȱ –’ȱ Ž•™‘’ȱ œ˜Š›ȱ Š•™›˜›Š––Žȱ ‘Ž›ŽœŽ••ȱ  Ž›Ž—ȱ”ã——Ž—ǯȱȱ Ž’Ž›‘’—ȱ Ž‘ȱ ’Žȱ ŽžŠž•ŠŽȱ Š—ȱ Ž—ȱ —˜ Ž—’Ž—ȱ Ž••Ž—ȱ —Šû›•’Œ‘ȱ Š›Šžȱ Ž’—ǰȱ  ’Žȱ Šœȱ “û—œȱ Šžȱ Ž—ȱ Š›”ȱ Ž”˜––Ž—Žȱ — ’Œ”•ž—œœ¢œŽ–ȱ ˜›•Š—ȱ Ž•™‘’ȱŘŖŖśȱ£ž–ȱ’—œ’Žȱ’—ȱ’ŽȱŽ•™‘’Ȭ›˜›Š––’Ž›ž—ȱŽ—ž£ȱ Ž›Ž—ȱ”Š——ǯȱ Ž—ȱŸ’Ž•ŠŒ‘ȱŽ§žđŽ›Ž—ȱû—œŒ‘Ž—ȱŠžȱŸŽ›‹ŽœœŽ›Žȱ˜—•’—ŽȬ—Ž›œû£ž—ȱ ’›ȱ Šž›Œ‘ȱ ŽŒ‘—ž—ȱ Ž›ŠŽ—ǰȱ Šœœȱ —ž—–Ž‘›ȱ ž—Ž›ȱ    ǯ ȬȬ–ǯŽȱ ’—ȱ Ž›ȱ ‹ŽȬ ”Š——Ž—ȱ ž‹›’”ȱ Leser-Service ȱ ’Žȱ ”˜–™•ŽŽ—ȱ Ž•™‘’Ȭ›˜“Ž”Žȱ £žȱ Š••Ž—ȱ ›˜Ȭ ›Š––‹Ž’œ™’Ž•Ž—ȱ‹Ž›Ž’ŽœŽ••ȱœ’—ǰȱž—ȱŠœȱœ˜ ˜‘•ȱû›ȱ’Žȱ—˜Œ‘ȱ Ž’ȱŸŽ›‹›Ž’Ȭ ŽŽȱŽ›œ’˜—ȱŽ•™‘’ȱŝȱŠ•œȱŠžŒ‘ȱû›ȱ’Žȱ—ŽžŽ—ȱŽ›œ’˜—Ž—ȱŽ•™‘’ȱŞȦŘŖŖśǯȱȱȱȱȱ

Aus dem Vorwort zur ersten Auflage Ǯ’ŽȱŽ•™‘’ȬŸ˜•ž’˜—ȱû›ȱ’ŽȱǯȬŽŸ˜•ž’˜—ȃǯȱ—Ž›ȱ’ŽœŽ–ȱ•˜Š—ȱŸŽ››Ž’‹ȱ ˜›•Š—ȱ œŽ’ȱ Ž’——ȱ ’ŽœŽœȱ Š‘›Žœȱ œŽ’—ȱ —ŽžŽœŽœȱ ›˜ž”ǰȱ Ž•™‘’ȱ Şǯȱ ’ȱ ǯȱ –㌑Žȱ ’Œ›˜œ˜ȱ ’Žȱ’œ’˜—ȱ ŸŽ› ’›”•’Œ‘Ž—ǰȱ Ž’—Žȱ •Š˜›–ȱ £žȱ œŒ‘ŠŽ—ǰȱ ’Žȱ —Ȭ ˜›–Š’˜—Ž—ǰȱŽ—œŒ‘Ž—ǰȱ¢œŽ–Žȱž—ȱ Ž›§Žȱ–’Ž’—Š—Ž›ȱŸŽ›‹’—Žǯȱȱ Ž•™‘’ȱ Şȱ ‹›’—ȱ ’Žȱ ‹Ž•’Ž‹Ž—ȱ Ž•™‘’ȱ ȬŽžŽ›Ž•Ž–Ž—Žȱ Šžȱ ’Žȱ ǯȬ•ŠȬ ˜›–ǯȱŠ–’ȱ”Š——ȱ“ŽŽ›ȱ— Ž—Ž›ȱœ§–•’Œ‘Žȱ˜›Ž’•ŽȱŸ˜—ȱŽ•™‘’ȱž—ȱŸ˜—ȱǯȱ ”˜–‹’—’Ž›ȱ Ž’—œŽ£Ž—ȱ ž—ȱ œŒ‘•’Žđ•’Œ‘ȱ –˜Ž›—Žȱ ž—ȱ ‘˜Œ‘•Ž’œž—œ§‘’Žȱ —Ȭ  Ž—ž—Ž—ȱ‘Ž›œŽ••Ž—ǯȱȱ ’ŽœŽœȱ žŒ‘ȱ  Ž—Žȱ œ’Œ‘ȱ Š—ȱ Ž’——Ž›ǯȱ ˜›ŠžœŽœŽ£ȱ  ’›ȱ —’Œ‘œǯȱ Ž›–’Ž•ȱ  ’›ȱŽ›ȱ•Ž’Œ‘ŽǰȱŠœȱœ™’Ž•Ž›’œŒ‘Žȱ’—œ’Žȱ’—ȱ’ŽȱŽ•ȱŽ›ȱŽ•™‘’Ȭ›˜›Š––’ŽȬ ›ž—ǰȱŽ›ȱ–’ȱŽ›ȱ Ž›œŽ••ž—ȱŸ˜—ȱŠ›Š”’ŸŽ—ȱŽ—ž£Ž›˜‹Ž›•§Œ‘Ž—ȱ‹Ž’——ȱž—ȱ œŒ‘›’ Ž’œŽȱ£žȱ’––Ž›ȱ›Ž’£Ÿ˜••Ž›Ž—ȱ— Ž—ž—Ž—ȱû‘›ǯȱȱ ––Ž›ȱ ’ŽŽ›ȱž—ȱ’––Ž›ȱŠžœȱŽžŽȱ Ž›Ž—ȱŠžœû‘›•’Œ‘ȱ’Žȱ ’—Ž››û—ŽȱŽ›Ȭ •§žŽ›ǰȱ’Žȱû›ȱŠœȱŽ›œ§——’œȱŽ›ȱ‹•§žŽȱ’–ȱ˜–™žŽ›ȱ—˜ Ž—’ȱœ’—ǯȱȱ Ž‘›ȱ Š•œȱ ŘŝŖȱ ‹‹’•ž—Ž—ȱ ’••žœ›’Ž›Ž—ȱ Šœȱ ˜›Ž‘Ž—ǰȱ œ˜ȱ Šœœȱ “ŽŽ›ȱ Œ‘›’ȱ ‹Ž’–ȱ ŠŒ‘Ÿ˜••£’Ž‘Ž—ȱŠžȱŽ–ȱŽ’Ž—Ž—ȱ˜–™žŽ›ȱŽ—ŠžŽœŽ—œȱû‹Ž›™›ûȱ Ž›Ž—ȱ”Š——ǯȱȱ ‹•Ž’Œ‘ȱ Šœȱ žŒ‘ȱ û›ȱ ’Žȱ —ŽžŽœŽȱ Ž•™‘’ȬŽ›œ’˜—ȱ ŽœŒ‘›’Ž‹Ž—ȱ  ž›Žǰȱ œ˜ȱ ‘Šȱ ˜Œ‘ȱ”Ž’—ȱŽ›—Ž—Ž›ȱ’›Ž— Ž•Œ‘ŽȱŠŒ‘Ž’•ŽǰȱŽ›ȱ–’ȱ§•Ž›Ž—ȱŽ•™‘’ȬŽ›œ’˜—Ž—ȱ Š›‹Ž’Ž—ȱ ’••ǯȱ˜ȱŽœȱ—˜ Ž—’ȱ’œǰȱ ’›ȱŠžȱ’Žȱ—Ž›œŒ‘’ŽŽȱ’–ȱ–Š—ȱ–’ȱ §•Ž›Ž—ȱŽ•™‘’ȬŽ›œ’˜—Ž—ȱž—ȱŽ•™‘’ȱŞȱ‘’—Ž ’ŽœŽ—ǯȱȱ Š—”ȱœŠŽȱ’Œ‘ȱ£žŽ›œȱž—ȱŸ˜›ȱŠ••Ž–ȱŽ—ȱŽ’•—Ž‘–Ž›—ȱ–Ž’—Ž›ȱŽ‘›ŸŽ›Š—œŠ•ž—Ȭ Ž—ǯȱ ’Žȱ ›Ž‹—’œœŽȱ ‹Ž’ȱŽ›ȱ –œŽ£ž—ȱ Ž›ȱ Ÿ˜›Ž•ŽŽ—ȱ Ž‘˜’”ȱ ‘Š‹Ž—ȱ £ž–ȱ Ž•’—Ž—ȱŽœȱ“Ž£’Ž—ȱŽ‘›‹žŒ‘ŽœȱŽ›‘Ž‹•’Œ‘ȱ‹Ž’Ž›ŠŽ—ǯȱȱ

Inhaltsverzeichnis

1

ȱ

ŗȱ

ȱŽ—ž£Ž›˜‹Ž›•§Œ‘Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗȱ

ŗǯŗȱ ȱȱ ˜œŽ—•˜œDZȱž›‹˜ȱŽ•™‘’ȱŘŖŖŜǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗȱ ŗǯŘȱ ȱȱ Š›‹’•Ž›ȱŸ˜—ȱž›‹˜ȱŽ•™‘’ȱŘŖŖŜȱž—ȱŽ•™‘’ȱŝ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śȱ ŗǯŘǯŗȱȱȱ ȱ ž›‹˜ȱŽ•™‘’ȱŘŖŖŜ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śȱ ŗǯŘǯŘȱȱȱ ȱ Ž•™‘’ȱŝȱž—ȱ§•Ž›ŽȱŽ›œ’˜—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Şȱ ŗǯřȱ ȱȱ Š›‹’•Ž›ȱŸ˜—ȱŽ•™‘’ȱŞǰȱŽ•™‘’ȱŘŖŖśȱž—ȱŽ•™‘’ȱŘŖŖş ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ şȱ ŗǯŚȱ ȱȱ ˜˜•ȬŠ•ŽŽȱž—ȱ ˜–™˜—Ž—Ž—•Ž’œŽ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗȱ ŗǯśȱ ȱȱ ˜›–ž•Š›ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘȱ ŗǯśǯŗȱȱȱ ȱ ’—œŽ••ž—ȱŽ›ȱŠ›Ȭ’Ž—œŒ‘ŠŽ—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘȱ ŗǯśǯŘȱȱȱ ȱ ŽœȱŽœȱ˜›–ž•Š›œ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗśȱ ŗǯśǯřȱȱȱ ȱ ™Ž’Œ‘Ž›ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝȱ ŗǯŜȱ ȱȱ Ž’Ž—Ž•Ž–Ž—ŽȱŠžȱŽ–ȱ˜›–ž•Š› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşȱ ŗǯŜǯŗȱȱȱ ȱ žœ Š‘•ȱ–’ȱž›‹˜ȱŽ•™‘’ȱŘŖŖŜȱž—ȱŽ•™‘’ȱŞȦŘŖŖśȦŘŖŖşǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşȱ ŗǯŜǯŘȱȱȱ ȱ žœ Š‘•ȱ–’ȱ§•Ž›Ž—ȱŽ•™‘’ȬŽ›œ’˜—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖȱ ŗǯŜǯřȱȱȱ ȱ ’Œ‘’Žȱ ŠŽ˜›’Ž—ȱ‹£ ǯȱŽ’œŽ›‹•§Ž› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖȱ ŗǯŝȱ ȱȱ Šœ’œŽ•Ž–Ž—Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗȱ ŗǯŝǯŗȱȱȱ ȱ ˜—ȱž˜—ȱ‹’œȱŒ›˜••‹Š›ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗȱ ŗǯŝǯŘȱȱȱ ȱ Š–ŽǰȱŽœŒ‘›’ž—ǰȱ—‘Š• ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘȱ ŗǯŝǯřȱȱȱ ȱ ˜›Ž’—œŽ••ž—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řřȱ ȱ ȱ

Řȱ

ȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝȱ

Řǯŗȱ ȱȱ Ž›ȱ‹“Ž”‹Ž›’ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝȱ Řǯŗǯŗȱȱȱ ȱ ŠŽ—˜‹“Ž”Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝȱ ŘǯŗǯŘȱȱȱ ȱ ’œžŽ••Žȱ‹“Ž”Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řşȱ Řǯŗǯřȱȱȱ ȱ ›Ž’—’œ‹Ž‘Š—•ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗȱ

ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱ—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

ŘǯŘȱ ȱȱ ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘȱ ŘǯŘǯŗȱȱ

ȱ ž˜—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řřȱ

ŘǯŘǯŘȱȱȱ ȱ Ž¡Ž—œŽ› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řśȱ ŘǯŘǯřȱȱȱ ȱ ‘ŽŒ”‹˜¡ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŜȱ ŘǯŘǯŚȱȱȱ ȱ Œ›˜••‹Š› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŜȱ ŘǯŘǯśȱȱȱ ȱ Š’˜‹ž˜—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŝȱ ŘǯŘǯŜȱȱȱ ȱ Š‹Ž• ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŝȱ ŘǯŘǯŝȱȱȱ ȱ ˜›–ž•Š› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŝȱ Řǯřȱ ȱȱ ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŞȱ Řǯřǯŗȱȱȱ ȱ ŽŠ”’˜—Ž—ȱŠžȱŠžœ‹Ž Žž—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŞȱ ŘǯřǯŘȱȱȱ ȱ ŽŠ”’˜—Ž—ȱŠžȱŠœŽ—›žŒ” ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Śŗȱ Řǯřǯřȱȱȱ ȱ ˜”žœȬ›Ž’—’œœŽǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŚŘȱ ȱ

řȱ

ȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Śŝȱ

řǯŗȱ ȱȱ Ž’Ž—Ž•Ž–Ž—ȱ’œŽȱǻListBoxǼǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŚŞȱ řǯŘȱ ȱȱ Ž’Ž—Ž•Ž–Ž—ȱ˜–‹˜‹˜¡ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śŖȱ řǯřȱ ȱȱ Ž’Ž—Ž•Ž–Ž—ȱŠ’˜›ž™™ŽȱǻRadioGroupǼǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śŘȱ řǯŚȱ ȱȱ Ž’Ž—Ž•Ž–Ž—ȱŽ—ûȱǻMainMenuǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śŚȱ ȱ

Śȱ

ȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śşȱ

Śǯŗȱ ȱȱ ’—ŠŒ‘Žȱ’Ž’•ž—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śşȱ ŚǯŘȱ ȱȱ Šœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ śşȱ ŚǯŘǯŗȱȱȱ ȱ ’Ž—Ž›ȱŠŽ—”Ž›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŜŖȱ ŚǯŘǯŘȱȱȱ ȱ ŠŽ—”Ž›—Žȱ›Ž–Ž›ȱ‹“Ž”Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŜŚȱ Śǯřȱ ȱȱ ”’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŜŜȱ Śǯřǯŗȱȱȱ ȱ ’Ž—Ž›ȱŠŽ—”Ž›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŜŜȱ ŚǯřǯŘȱȱȱ ȱ ŠŽ—”Ž›—Žȱ›Ž–Ž›ȱ‹“Ž”Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Ŝŝȱ ŚǯŚȱ ȱȱ ”’ŸŽ›ȱž—ȱ™Šœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝřȱ

—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

ȱ

Śǯśȱ ȱȱ ”’Ÿ’Ž›ž—ȱž—ȱŽŠ”’Ÿ’Ž›ž—ȱŸ˜—ȱŽ’Ž—Ž•Ž–Ž—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝŜȱ Śǯśǯŗȱȱȱ ȱ ™›˜™Ž›¢ȱEnabled ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝŝȱ ŚǯśǯŘȱȱȱ ȱ ”’Ÿ’Ž›ž—ȱŽœȱŽ’Ž—Ž•Ž–Ž—œ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝŞȱ Śǯśǯřȱȱȱ ȱ —Š”’ŸŽȱŽ—ûȬ’—›§Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝşȱ ŚǯŜȱ ȱȱ Ž›œŽŒ”Ž—ȱŸ˜—ȱŽ’Ž—Ž•Ž–Ž—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝşȱ ŚǯŜǯŗȱȱȱ ȱ ™›˜™Ž›¢ȱVisible ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŝşȱ ŚǯŜǯŘȱȱȱ ȱ Ž’Ž—Ž•Ž–Ž—ȱœ’Œ‘‹Š›ȱ–ŠŒ‘Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŞŖȱ Śǯŝȱ ȱȱ Š–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŞŖȱ Śǯŝǯŗȱȱȱ ȱ ™›˜™Ž›¢ȬŠ–Ž—ȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱ’—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Şŗȱ ŚǯŝǯŘȱȱȱ ȱ ’Ž—œŒ‘ŠȱŽ‘•ȱ’–ȱ‹“Ž”’—œ™Ž”˜› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Şřȱ Śǯŝǯřȱȱȱ ȱ —˜›–Š’˜—ȱž›Œ‘ȱ’Žȱž—”•’œŽǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŞŚȱ ŚǯŝǯŚȱȱȱ ȱ —˜›–Š’˜—ȱû‹Ž›ȱ’Žȱ›ȱŽ›ȱž Ž’œž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Şśȱ Śǯŝǯśȱȱȱ ȱ Š›ȬŠ›”’Ž›ž—ȱ’—ȱ’œŽ—ȱœŽ£Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŞŜȱ ŚǯŝǯŜȱȱȱ ȱ Šœœ’ŸŽ›ȱž—ȱŠ”’ŸŽ›ȱž›’ȱŠžȱŽ’•Ž—ȱ’—ȱŽ’—Ž›ȱ’œ‹˜¡ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŞŜȱ Śǯŝǯŝȱȱȱ ȱ Ž›Ž’—ŠŒ‘ž—Ž—ȱž›Œ‘ȱŸŽ›”û›£Žȱ™›˜™Ž›¢ȱItems[...]ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ şŖȱ ȱ ȱ

śȱ

ȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ şřȱ

śǯŗȱ ȱȱ ’—ŠŒ‘Ž›ȱŽœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ şŚȱ śǯŗǯŗȱȱȱ ȱ Ž’—Žœȱ”’Ÿ’Ž›Ž—ȦŽŠ”’Ÿ’Ž›Ž—ȱŸ˜—ȱž˜—œ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ şŚȱ śǯŗǯŘȱȱȱ ȱ ’—”•’Œ”ȱ˜Ž›ȱžœ”•’Œ”ǵǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ şŞȱ śǯŗǯřȱȱȱ ȱ ’—”œȬŽŒ‘œȬŽžŽ›ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖŖȱ śǯŗǯŚȱȱȱ ȱ ŠœŽ—ȱ ŽŠ—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖŗȱ śǯŘȱ ȱȱȱ •Ž›—Š’ŸŽǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖŚȱ śǯŘǯŗȱȱȱ ȱ ’—ȱŠŒ‘’œŒ‘•Š–™Ž—ȬŒ‘Š•Ž› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖŚȱ śǯŘǯŘȱȱȱ ȱ žȬȱž—ȱ‹œŒ‘Š•Ž—ȱŸ˜—ȱž˜—œ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖŜȱ ȱ

ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱ—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

Ŝȱ

ȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖşȱ

Ŝǯŗȱ ȱȱ ’–Ž›DZȱŽ›’ȱž—ȱŽŽžž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖşȱ Ŝǯŗǯŗȱȱȱ ȱ ’œ‘Ž›’Žȱ㐕’Œ‘”Ž’Ž—ȱž—ȱ ›Ž—£Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŖşȱ ŜǯŗǯŘȱȱȱ ȱ ’–Ž› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŗȱ ŜǯŘȱ ȱȱ ’—›’Œ‘ž—ȱž—ȱŠ›Ž’—œŽ••ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŘȱ ŜǯŘǯŗȱȱȱ ȱ •Š£’Ž›Ž—ȱŽœȱ’–Ž›Ȭ¢–‹˜•œ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŘȱ ŜǯŘǯŘȱȱȱ ȱ ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŚȱ Ŝǯřȱ ȱȱ ›‹Ž’ȱ–’ȱ’–Ž›— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŜȱ Ŝǯřǯŗȱȱȱ ȱ Š›ȱž—ȱŽ•‹œȬ˜™™ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŜȱ ŜǯřǯŘȱȱȱ ȱ Š•ȱž—ȱŽ’Ž›–ŠŒ‘Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗŝȱ Ŝǯřǯřȱȱȱ ȱ •’—”Ž—ŽȱŒ‘›’ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŗşȱ ŜǯŚȱ ȱȱ Ž›–Š—Ž—Žȱ›ûž—ȱ’–ȱ ’—Ž››ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘŖȱ Ŝǯśȱ ȱȱ ˜Ȭ Ž•‹Ȭ ›û—DZȱ’Žȱ–™Ž•ȱŠ—ȱŽ›ȱ ›Žž£ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘŘȱ Ŝǯśǯŗȱȱȱ ȱ Š—£ŽȱŠ‘•Ž—ȱ’—ȱ ’ŽŽ›‘˜•Ž›ȱ˜•Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘŘȱ ŜǯśǯŘȱȱȱ ȱ ’ŽȱŽ›”Ž‘›œŠ–™Ž•ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘŚȱ ŜǯŜȱ ȱȱ Ž›ȱ’Ž›£¢•’—Ž›Ȭ˜˜› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘŝȱ Ŝǯŝȱ ȱȱ §ŽȬŠŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŘşȱ ŜǯŞȱ ȱȱ ’—ȱŽ’—ŠŒ‘Ž›ȱ’•œŒ‘’›–œŒ‘˜—Ž›ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗřŘȱ ȱ ȱ

ŝȱ

ȱ Š—£ŽȱŠ‘•Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗřśȱ

ŝǯŗȱ ȱȱȱ ’Žȱž—”’˜—Ž—ȱIntToStrȱž—ȱStrToInt ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗřŜȱ ŝǯŗǯŗȱȱȱ ȱ Š—££Š‘•’ŽȱŽ›ŽȱŠžœŽ‹Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗřŜȱ ŝǯŗǯŘȱȱȱ ȱ Š—££Š‘•’ŽȱŽ›ŽȱŽ›ŠœœŽ—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗřŝȱ ŝǯŗǯřȱȱȱ ȱ — Ž—ž—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚŖȱ ŝǯŘȱ ȱȱ ™Ž’Œ‘Ž›™•§£Žȱû›ȱŠ—£ŽȱŠ‘•Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚŚȱ ŝǯŘǯŗȱȱȱ ȱ ˜’ŸŠ’˜— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚŚȱ ŝǯŘǯŘȱȱȱ ȱ Ž› Ž—ž—ȱŽ’—Žœȱ™Ž’Œ‘Ž›™•Š£Žœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚśȱ

—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

ȱ

ŝǯřȱ ȱȱ Ž›Ž’—‹Š›ž—Ž—ȱŸ˜—ȱŠ—££Š‘•’Ž—ȱ™Ž’Œ‘Ž›™•§£Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚŝȱ ŝǯřǯŗȱȱȱ ȱ ’ȱž—ȱ¢Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚŝȱ ŝǯřǯŘȱȱȱ ȱ IntegerȬŠŽ—¢™Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚşȱ ŝǯŚȱ ȱȱ — Ž—ž—Ž—ȱŸ˜—ȱŠ—££Š‘•’Ž—ȱ™Ž’Œ‘Ž›™•§£Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚşȱ ŝǯŚǯŗȱȱȱ ȱ ›ž—œ§£ŽǰȱŠ–Ž—œŽ‹ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŚşȱ ŝǯŚǯŘȱȱȱ ȱ ›‘ã‘ž—ȱŽ›ȱt‹Ž›œ’Œ‘•’Œ‘”Ž’ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗśŖȱ ŝǯŚǯřȱȱȱ ȱ Š—£ŽȱžŠ••œ£Š‘•Ž—ǰȱ•˜ȬŠœŒ‘’—Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗśŗȱ ŝǯŚǯŚȱȱȱ ȱ •˜ȬŠœŒ‘’—Žȱ–’ȱ’•Ž›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗśŚȱ ŝǯŚǯśȱȱȱ ȱ Ž’•‹Š›”Ž’ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗśŝȱ ȱ ȱ

Şȱ

ȱ ›Š’”™›˜›Š––’Ž›ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŗȱ

Şǯŗȱ ȱȱ ›ž—‹Ž›’Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŗȱ ŞǯŘȱ ȱȱ Ž˜–Ž›’œŒ‘Žȱ Ž‹’•ŽȱŽ›£ŽžŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŘȱ ŞǯŘǯŗȱȱȱ ȱ Šœȱ ˜˜›’—ŠŽ—œ¢œŽ– ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŘȱ ŞǯŘǯŘȱȱȱ ȱ ’—£Ž•—Ž›ȱ’¡Ž• ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŚȱ ŞǯŘǯřȱȱȱ ȱ Ž›ŠŽȱ’—’Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜśȱ ŞǯŘǯŚȱȱȱ ȱ Ž—ŽœȱŽŒ‘ŽŒ” ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜśȱ ŞǯŘǯśȱȱȱ ȱ ŽŒ‘ŽŒ”•§Œ‘Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŜȱ ŞǯŘǯŜȱȱȱ ȱ žŠ›Š•§Œ‘Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŝȱ ŞǯŘǯŝȱȱȱ ȱ ••’™œŽ—Ȭ–›’œœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŝȱ ŞǯŘǯŞȱȱȱ ȱ ••’™œŽ—Ȭ•§Œ‘Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŞȱ ŞǯŘǯşȱȱȱ ȱ ›Ž’œ•§Œ‘Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜŞȱ ŞǯŘǯŗŖȱ ȱ Ž¡ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜşȱ ŞǯŘǯŗŗȱ ȱ 㜌‘Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŜşȱ ŞǯŘǯŗŘȱ ȱ Œ‘œŽ—”›Žž£ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝŖȱ Şǯřȱ ȱȱ Ž¡ȱŸŽ›§—Ž›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝŘȱ ŞǯŚȱ ȱȱ ’•œŒ‘’›–œŒ‘˜—Ž›ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝŚȱ

ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱ—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

Şǯśȱ ȱȱ —’–Š’˜—Ž—ȱž—ȱ™’Ž•Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝŝȱ Şǯśǯŗȱȱȱ ȱ —ŽœŽžŽ›Žȱ—’–Š’˜—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝŝȱ ŞǯśǯŘȱȱȱ ȱ ŽœŽžŽ›Žȱ—’–Š’˜—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŝşȱ Şǯśǯřȱȱȱ ȱ ™’Ž•Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŞŗȱ ŞǯŜȱ ȱȱ Š•Ž—ȱŠžȱŽ–ȱ’•œŒ‘’›–ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗŞśȱ ȱ ȱ

şȱ

ȱ§‘•œŒ‘•Ž’Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşŗȱ

şǯŗȱ ȱȱ ‹£§‘•Ž—ȱ’—ȱ’œŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşŗȱ şǯŘȱ ȱȱ ’—’–Š¡ȬžŠ‹Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşŜȱ şǯŘǯŗȱȱȱ ȱ ›ã𝎗ȱž—ȱ”•Ž’—œŽ—ȱŽ›ȱ‹Žœ’––Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşŜȱ şǯŘǯŘȱȱȱ ȱ ˜œ’’˜—ȱŽœȱ›ã𝎗ȱž—ȱ”•Ž’—œŽ—ȱŽ›Žœȱ‹Žœ’––Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşŝȱ şǯřȱ ȱȱ ž––Ž—ȱû‹Ž›ȱ’œŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŗşşȱ ȱ ȱ

ŗŖȱ’Œ‘—ž–Ž›’œŒ‘Žȱ™Ž’Œ‘Ž›™•§£Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖŗȱ ŗŖǯŗȱ ȱȱ ™Ž’Œ‘Ž›™•§£Žȱû›ȱŠ‘›‘Ž’œ Ž›Žȱǻ¢™ȱBooleanǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖŗȱ ŗŖǯŗǯŗȱ ȱ žŒ‘Ž—ȱž—ȱ’—Ž—ȱ’—ȱ’œŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖŗȱ ŗŖǯŗǯŘȱ ȱ Ž›‘Š•Ž—ȱŽ’—Ž›ȱŒ‘Š•ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖřȱ ŗŖǯŘȱ ȱȱ ™Ž’Œ‘Ž›™•§£Žȱû›ȱŽ’—£Ž•—ŽȱŽ’Œ‘Ž—ȱǻ¢™ȱCharǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŖŝȱ ŗŖǯřȱ ȱȱ ™Ž’Œ‘Ž›™•§£Žȱû›ȱŽ’Œ‘Ž—˜•Ž—ȱǻ¢™ȱStringǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗŗȱ ȱ ȱ ȱ

ŗŗȱ›‹Ž’ȱ–’ȱŽ’Œ‘Ž—˜•Ž—ȱǻ›’—œǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗřȱ ŗŗǯŗȱ ȱȱ StringȬž—”’˜—Ž—ȱž—ȱȬ›˜£Žž›Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗřȱ ŗŗǯŗǯŗȱ ȱ ’Œ‘’ŽȱStringȬž—”’˜—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗřȱ ŗŗǯŗǯŘȱ ȱ ’Œ‘’ŽȱStringȬ›˜£Žž›Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗśȱ ŗŗǯŘȱ ȱȱ ’—Ž—ǰȱ§‘•Ž—ȱž—ȱ㜌‘Ž—ȱŸ˜—ȱŽ’Œ‘Ž—ȱž—ȱžœŽ›— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗśȱ ŗŗǯŘǯŗȱ ȱ ’—Ž—ȱŸ˜—ȱŽ’Œ‘Ž—ȱž—ȱžœŽ›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗśȱ

—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

ȱ

ŗŗǯŘǯŘȱ ȱ §‘•Ž—ȱŸ˜—ȱŽ’Œ‘Ž—ȱž—ȱžœŽ›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŗŝȱ ŗŗǯŘǯřȱ ȱ 㜌‘Ž—ȱŸ˜—ȱŽ’Œ‘Ž—ȱž—ȱžœŽ›— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘŖȱ ŗŗǯřȱ ȱȱ ›œŽ£Ž—ȱŸ˜—ȱŽ’Œ‘Ž—ȱž—ȱžœŽ›—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘřȱ ŗŗǯřǯŗȱ ȱ ’—Ž—ǰȱ㜌‘Ž—ȱž—ȱ’—ûŽ—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘŚȱ ŗŗǯřǯŘȱ ȱ ŽžŠž‹ŠžȱŽ’—Žœȱ£ Ž’Ž—ȱString ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘŜȱ ŗŗǯŚȱ ȱȱ Š•’—›˜–ȬŽœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘşȱ ŗŗǯśȱ ȱȱ Ž›•Ž’Œ‘ŽȱŸ˜—ȱŽ’Œ‘Ž—˜•Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘşȱ ŗŗǯśǯŗȱ ȱ Ž¡’”˜›Š’œŒ‘Ž›ȱŽ›•Ž’Œ‘ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŘşȱ ŗŗǯśǯŘȱ ȱ ’—’–Š¡ȱ’—ȱ’œŽ—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řřŗȱ ŗŗǯśǯřȱ ȱ ˜˜£’Ž‘ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘřŚȱ ŗŗǯŜȱ ȱȱ Š—£ŽȱŠ‘•Ž—ȱ–’ȱ˜›£Ž’Œ‘Ž—ȱ£ž•ŠœœŽ— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘřŞȱ ŗŗǯŝȱ ȱȱ žŽ›œž––Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řřşȱ ŗŗǯŝǯŗȱ ȱ ’—ŠŒ‘ŽȱžŽ›œž––Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řřşȱ ŗŗǯŝǯŘȱ ȱ Ž ’Œ‘ŽŽȱžŽ›œž––Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚŖȱ ȱ ȱ ȱ

ŗŘȱ™Ž’Œ‘Ž›™•§£Žȱû›ȱŽ£’–Š•‹›ûŒ‘Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚřȱ ŗŘǯŗȱ ȱȱ ŠŽ—¢™Ž—ȱSingleǰȱDoubleǰȱExtended ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚřȱ ŗŘǯŗǯŗȱ ȱ ›’—£’™’Ž—ȱŽ›ȱ’—Ž›—Ž—ȱ™Ž’Œ‘Ž›ž—ȱž—ȱŽ›Š›‹Ž’ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚřȱ ŗŘǯŗǯŘȱ ȱ ŠŽ—¢™ȱSingle ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚŚȱ ŗŘǯŗǯřȱ ȱ ŠŽ—¢™ȱDouble ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚŚȱ ŗŘǯŗǯŚȱ ȱ ŠŽ—¢™ȱExtended ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚśȱ ŗŘǯŘȱ ȱȱ ˜––Šȱ˜Ž›ȱž—”ǵ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚśȱ ŗŘǯřȱ ȱȱ žœŠ‹Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚśȱ ŗŘǯřǯŗȱ ȱ ›˜£Žž›ȱStr ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚŜȱ ŗŘǯřǯŘȱ ȱ ˜›–ŠœŽžŽ›ž—ȱ’—ȱŠ•Ž—ȱž—ȱ—ŽžŽ—ȱŽ•™‘’ȬŽ›œ’˜—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŚŞȱ ŗŘǯřǯřȱ ȱ ž—”ȱž—ȱ ˜––Šȱ’—ȱŽ›ȱžœŠ‹Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘśŖȱ ŗŘǯŚȱ ȱȱ ›Šœœž—ȱŸ˜—ȱŽ£’–Š•‹›ûŒ‘Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řśřȱ ŗŘǯŚǯŗȱ ȱ ›˜£Žž›ȱVal ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řśřȱ

ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱ—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

ŗŘǯŚǯŘȱ ȱ ”’Ÿ’Ž›ž—ȱž—ȱŽŠ”’Ÿ’Ž›ž—ȱŸ˜—ȱŽ’Ž—Ž•Ž–Ž—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řśśȱ ŗŘǯŚǯřȱ ȱ ž£Ž›ž—Ž›œû£ž—ȱŗDZȱŽ‘Š—•ž—ȱŠ•œŒ‘Ž›ȱŠœŽ—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘśŜȱ ŗŘǯŚǯŚȱ ȱ ž£Ž›ž—Ž›œû£ž—ȱŘDZȱ—˜›–Š’˜—ȱ‹Ž’ȱ˜”žœŸŽ›•žœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řśŝȱ ŗŘǯśȱ ȱȱ ŽŒ‘—Ž—ȱ–’ȱŽ•™‘’ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŜŘȱ ŗŘǯśǯŗȱ ȱ ’Ž›ȱ ›ž—›ŽŒ‘Ž—Š›Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŜŘȱ ŗŘǯśǯŘȱ ȱ Ž›ȱ’—˜ œȬŽŒ‘—Ž› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŜŚȱ ȱ ȱ

ŗřȱ›˜£Žž›Ž—ȱž—ȱž—”’˜—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŜşȱ ŗřǯŗȱ ȱȱ ›ž—œ§£•’Œ‘Žœǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŜşȱ ŗřǯŘȱ ȱȱ ›˜£Žž›Ž—ȱž—ȱž—”’˜—Ž—ȱŸ˜—ȱŽ•™‘’ȬŠœŒŠ•ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŝŖȱ ŗřǯŘǯŗȱ ȱ ’œ‘Ž›ȱ‹Ž›Ž’œȱŸŽ› Ž—ŽŽȱ›˜£Žž›Ž—ȱž—ȱž—”’˜—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŝŖȱ ŗřǯŘǯŘȱ ȱ Šž–œȬȱž—ȱŽ’ž—”’˜—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝŗȱ ŗřǯŘǯřȱ ȱ ›’‘–Ž’œŒ‘Žȱž—”’˜—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŝŚȱ ŗřǯřȱ ȱȱ ›˜£Žž›Ž—ȱž—ȱž—”’˜—Ž—ȱŸ’œžŽ••Ž›ȱ‹“Ž”Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝŝȱ ŗřǯřǯŗȱ ȱ ’ŽŽ›‘˜•ž—DZȱ’œžŽ••Žȱ‹“Ž”Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝŝȱ ŗřǯřǯŘȱ ȱ ’Ž—œŒ‘ŠŽ—ȱŠžœȱŽ›ȱž—”•’œŽDZȱ™›˜™Ž›’Žœ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŝŞȱ ŗřǯřǯřȱ ȱ ž—”’˜—Ž—ȱŠžœȱŽ›ȱž—”•’œŽǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řŝşȱ ŗřǯřǯŚȱ ȱ ›˜£Žž›Ž—ȱŠžœȱŽ›ȱž—”•’œŽ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŞŗȱ ŗřǯřǯśȱ ȱ Œ‘—’œŽ••Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŞřȱ ŗřǯřǯŜȱ ȱ žœ—Š‘–Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŞŚȱ ŗřǯŚȱ ȱȱ ’–ž•Š’˜—ȱŽ’—Ž›ȱž™Ž›–Š›”Ȭ ŠœœŽ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŞŜȱ ŗřǯŚǯŗȱ ȱ žŠ‹Ž—œŽ••ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŞŜȱ ŗřǯŚǯŘȱ ȱ — ž›ȱŽ›ȱŽ—ž£Ž›˜‹Ž›•§Œ‘Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘŞşȱ ŗřǯŚǯřȱ ȱ Š–Ž—œŸŽ›Š‹Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘşŖȱ ŗřǯŚǯŚȱ ȱ ›Ž’—’œ™›˜£Žž›Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řşŗȱ ŗřǯŚǯśȱ ȱ › Ž’Ž›ž—Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ Řşśȱ ŗřǯśȱ ȱȱ ’Ž—Žȱ›˜£Žž›Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ ŘşŜȱ ȱ

ȱ

—‘Š•œŸŽ›£Ž’Œ‘—’œȱ

ȱ

ŗŚȱ’ȱŽ•™‘’DZȱŠœŒŠ•ȱ•Ž›—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖŗȱ ŗŚǯŗȱ ȱȱ ’—ŠŒ‘ŽȱŽ•™‘’Ȭ›˜›Š––’Ž›ž–Ž‹ž—ȱû›ȱŠœŒŠ• ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖŘȱ ŗŚǯŘȱ ȱȱ ’—Ȭȱž—ȱžœŠ‹Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖŚȱ ŗŚǯŘǯŗȱ ȱ ’—Ȭȱž—ȱžœŠ‹ŽȱŸ˜—ȱŽ’Œ‘Ž—˜•Ž—ȱǻStringǼǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖśȱ ŗŚǯŘǯŘȱ ȱ žœŠ‹ŽȱŸ˜—ȱŠ—£Ž—ȱŠ‘•Ž—ȱǻIntegerǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖŜȱ ŗŚǯŘǯřȱ ȱ žœŠ‹ŽȱŸ˜—ȱŽ£’–Š•‹›ûŒ‘Ž—ȱǻSingleǰȱDoubleǰȱExtendedǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖŜȱ ŗŚǯŘǯŚȱ ȱ ›Šœœž—ȱŸ˜—ȱŠ—£Ž—ȱŠ‘•Ž—ȱž—ȱŽ£’–Š•‹›ûŒ‘Ž— ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖŝȱ ŗŚǯřȱ ȱȱ ›ž”ž›’Ž›Žœȱ›˜›Š––’Ž›Ž—ȱ–’ȱŠœŒŠ• ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖşȱ ŗŚǯřǯŗȱ ȱ ›ž”ž›Ž•Ž–Ž—Žȱž—ȱ’‘›Žȱ–œŽ£ž—ȱ’—ȱŠœŒŠ• ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŖşȱ ŗŚǯřǯŘȱ ȱ žœ—Š‘–Ž›ŽŽ•ž—Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗŘȱ ŗŚǯřǯřȱ ȱ Žœœǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗŘȱ ŗŚǯřǯŚȱ ȱ ’—Ȭȱž—ȱžœŠ‹Ž—ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗřȱ ŗŚǯŚȱ ȱȱ Ž’œ™’Ž•Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗřȱ ŗŚǯŚǯŗȱ ȱ ›ž”ž›Ž•Ž–Ž—ȱ˜•Ž ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗřȱ ŗŚǯŚǯŘȱ ȱ ›ž”ž›Ž•Ž–Ž—ȱ‹ Ž’œœŒ‘•Ž’Žȱǻ”˜™ŽœŽžŽ›ŽȱŒ‘•Ž’ŽǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗŚȱ ŗŚǯŚǯřȱ ȱ ›ž”ž›Ž•Ž–Ž—ȱ’Œ‘Š‹ Ž’œœŒ‘•Ž’ŽȱǻžđŽœŽžŽ›ŽȱŒ‘•Ž’ŽǼ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗśȱ ŗŚǯŚǯŚȱ ȱ ›ž”ž›Ž•Ž–Ž—ȱŽœǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŗŜȱ ŗŚǯŚǯśȱ ȱ ›ž”ž›Ž•Ž–Ž—ȱ•Ž›—Š’ŸŽ ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘŗȱ ŗŚǯŚǯŜȱ ȱ ›ž”ž›Ž•Ž–Ž—ȱ§‘•œŒ‘•Ž’Žǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘřȱ ŗŚǯśȱ ȱȱ Ž•Ž›ǰȱ—œŠ—£Ž—ǰȱ—œŠ—£Ž—Ž•Ž›ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘśȱ ŗŚǯśǯŗȱ ȱ Ž•Ž› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘśȱ ŗŚǯśǯŘȱ ȱ —œŠ—£Ž—Ž•Ž› ǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘśȱ ȱ ȱ ŠŒ‘ ˜›ŸŽ›£Ž’Œ‘—’œǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯǯ řŘŝȱ ȱ

1

Benutzeroberflächen Wer heutzutage ein Programm schreibt, der orientiert sich an Windows. Ob gewollt oder nicht, ob bewusst oder nicht: Die gängige Form der Mensch-RechnerKommunikation besteht in der Arbeit mit Maus und Tastatur, im vielfältigen Umgang mit diversen Bedienelementen (manchmal auch Steuerelemente genannt), die in einem Fenster auf einer Arbeitsfläche angeordnet sind und die Benutzeroberfläche (engl.: user interface) bilden. Das Ziel dieses Buches besteht darin, allen Anfängern und Einsteigern die Möglichkeiten aufzuzeigen, wie sie mit Hilfe von Delphi derartige Benutzeroberflächen herstellen und mit Leben erfüllen können. Delphi-Programmiersysteme gibt es inzwischen seit mehr als einem Dutzend Jahren, es begann mit Delphi!!3, dann gab es Weiterentwicklungen bis hin zu Delphi!!7, danach folgten Delphi!!8 und – neu nummeriert – Delphi!!2005 bis inzwischen Delphi!!2009. Weil viele dieser Versionen in Computerpools von Schulen, Hochschulen und anderen Bildungseinrichtungen genutzt werden, wird versucht, auf Wesentliches aller Versionen grundsätzlich einzugehen. Wer allerdings neu anfängt und noch keinen Zugang zu einem der genannten Delphi-Systeme hat, der sollte mit Turbo Delphi 2006 beginnen. Denn diese „Beginner-Version“ ist erstens kostenlos verfügbar und zweitens problemlos nutzbar sowohl unter dem noch weit verbreiteten Betriebssystem Windows XP als auch unter Windows Vista. Deshalb wird im folgenden Abschnitt zuerst beschrieben, wie Turbo Delphi 2006 beschafft werden kann. Anschließend wird in diesem Kapitel nach einer Übersicht über die Startbilder der Delphi-Versionen einleitend beschrieben, wie erste einfache Benutzeroberflächen vorbereitet und getestet werden können.

1.1

Kostenlos: Turbo Delphi 2006 Natürlich – ein Zugang zum Internet muss vorhanden sein. Dann findet sich unter der Adresse http://www.codegear.com/downloads/free/turbo

das Angebot von Embarcadero!/!CodeGear zum kostenlosen Herunterladen von Turbo- Versionen (Bild 1.1). Nach dem Klick auf Turbo Delphi Explorer wird eine weitere Seite geöffnet, die zuerst viele 3rdRail Downloads anbietet, darunter alle C++Builder Downloads und darunter dann schließlich für vier Sprachen die Delphi Downloads (Bild 1.2).

2

1 Benutzeroberflächen

Bild 1.1: Seite http://www.codegear.com/downloads/free/turbo (Stand Juli 2009)

Bild 1.2: Download-Angebot in vier Sprachen Nach Klick auf die Schaltfläche !!!DOWNLOAD!!! (später werden wir Button dazu sagen) müssen die Lizenzbedingungen akzeptiert werden, und dann beginnt schon das Herunterladen der ca. 330 Megabyte umfassenden Installationsdatei TurboDelphi_DE.exe

Bei Windows XP wird diese Datei im allgemeinen auf dem Desktop abgelegt, Windows Vista bringt sie in einen gesonderten Ordner mit dem Namen download.

1.1 Kostenlos: Turbo Delphi 2006

3

Nach dem Herunterladen dieser Installationsdatei wird vom Hersteller darum gebeten, dass man sich registrieren lasse (Bild 1.3).

Bild 1.3: Formular zur Registration Nach dem Absenden des ausgefüllten Fragebogens durch Klick auf den Button !!!Submit! erhält man schon wenige Minuten später an die angegebene Email-Adresse eine Mail mit dem Absender Embarcadero-licensing und dem Betreff Embarcadero Produkt-Registrierung.

Diese Mail enthält als Anhang eine einfache Textdatei mit dem Namen reg...!!!.txt, wobei anstelle der drei Punkte hinter reg... drei konkrete Ziffern stehen. Im Anschreiben wird dazu erklärt, in welchem Ordner diese Datei abzulegen ist, damit bei erstmaligem Start von Turbo Delphi 2006 festgestellt werden kann, ob es sich um legal erworbene Software handelt. Doch soweit ist es noch nicht, erst muss die Installationsdatei TurboDelphi_DE.exe ausgeführt werden. Das wird durch Doppelklick auf diesen Dateinamen veranlasst. Während der Installationsvorbereitungen wird darauf hingewiesen, dass Turbo-Delphi nur erfolgreich arbeiten kann, wenn einige Microsoft-Produkte auf dem Rechner vorhanden sind (Bild 1.4):

Bild 1.4 Erforderliche Microsoft-Produkte Da es durchaus möglich sein kann, dass diese Programme bereits vorhanden sind, sollte doch zuerst die Turbo-Delphi-Installation gestartet werden (Bild 1.5).

4

1 Benutzeroberflächen

Noch einmal ist dabei zu bestätigen, dass die Lizenzbedingungen akzeptiert werden. Anschließend sollten durch Klick auf !!Weiter!!!>!! die jeweiligen Vorschläge bestätigt werden.

Bild 1.5 Start der Installation Nach erfolgreicher Installation von Turbo Delphi 2006 findet man nach START!!Æ PROGRAMME die Gruppe BORLAND DEVELOPER STUDIO und dort das Entwicklungssystem TURBO DELPHI 2006 (Bild 1.6).

Bild 1.6: Starten von Turbo Delphi 2006 Ist die eingangs erwähnte, mit der Bestätigungs-Mail erhaltene Textdatei in dem richtigen Ordner abgelegt und sind alle in Bild 1.4 erwähnten Programm vorhanden, dann kann Turbo Delphi 2006 starten und man erfährt in der eingeblendeten Lizenzinformation, dass dieses Produkt über hundert Jahre (genau 35506 Tage) genutzt werden darf. Und immer kostenlos. Fehlt dagegen eines der in Bild 1.4 verlangten Microsoft-Programme, dann wird das mitgeteilt.

1.2 Startbilder von Turbo Delphi 2006 und Delphi 7

5

Mittels http://www.microsoft.com/downloads/search.aspx?displaylang=de

kann das Download-Center von Microsoft geöffnet werden, durch Eintragen der Bezeichnung der fehlenden Software in das Suchfenster kann diese zum Herunterladen angefordert werden (Bild 1.7).

Bild 1.7: Anfordern fehlender Microsoft-Komponenten

1.2

Startbilder von Turbo Delphi 2006 und Delphi 7 Für Einsteiger und Anfänger sind – sofern sie selber auswählen können – die Delphi-Versionen Turbo Delphi 2006 (wegen der kostenlosen Bereitstellung) oder Delphi 7 (wegen der einfachen Bedienbarkeit) zu empfehlen. Deswegen werden die Startbilder dieser beiden Versionen zuerst ausführlich erklärt.

1.2.1

Turbo Delphi 2006 Wenn nicht anders eingestellt, begrüßt uns Turbo Delphi 2006 mit einem Startbild, in dessen Zentrum sich eine Willkommens-Seite befindet, die uns über die zuletzt bearbeiteten Projekte informiert und weitere Leistungen anbietet (Bild 1.8). Die Willkommens-Seite kann genutzt werden, um unmittelbar mit der Arbeit an den zuletzt behandelten Projekten fortzufahren, denn diese werden übersichtlich aufgelistet. Außerdem werden umfangreiche Angebote zum weiteren Lernen oder zu spezieller Information unterbreitet. Nach dem Schließen der Willkommens-Seite von Turbo Delphi 2006, wie üblich mit der Maus an dem kleinen Schließ-Kreuz x , müssen wir uns nach DATEIÆNEU entscheiden, welche der vielen Anwendungen, die mit Turbo Delphi 2006 herstellbar sind, angestrebt wird.

6

1 Benutzeroberflächen

Für dieses Buch sollten wir grundsätzlich VCL-Formularanwendungen auswählen (Bild 1.9).

Bild 1.8: Startbild von Turbo Delphi 2006

Bild 1.9: Auswahl der vorgesehenen Anwendung: VCL-Formular Nach Auswahl der VCL-Formularanwendung erscheint das entsprechende VCLAnwendungs-Startbild (Bild 1.10). Sehen wir uns dessen Bestandteile im Einzelnen an:

7

1.2 Startbilder von Turbo Delphi 2006 und Delphi 7

ƒ Links unten ist in Bild 1.10 ein Fenster zu sehen, das die Überschrift Objektinspektor trägt und die beiden Registerblätter EIGENSCHAFTEN und EREIGNISSE enthält. Mit Hilfe des Objektinspektors, eines sehr wichtigen DelphiBestandteils, können wir im Entwurf einstellen, wie die Bedienelemente später aussehen sollen, wenn sie dem Nutzer auf dem Bildschirm präsentiert werden.

Tool-Palette

Objektinspektor

Bild 1.10: Startbild für die Turbo-Delphi-2006-VCL-Programmierung Wenn das Fenster mit dem Objektinspektor fehlt, kann es über ANSICHTÆOBJEKTINSPEKTOR wieder besorgt werden. ƒ In der Mitte des Startbildes befindet sich eine graue, gerasterte Fläche mit der Beschriftung Form1. Das ist der Entwurf des Formulars, das ist bereits der Grundbaustein für jede Anwendung, das wird die Arbeitsfläche, der Hintergrund jeder Benutzeroberfläche. ƒ Rechts oben ist das Fenster der Projektverwaltung zu sehen; für unsere Einstiegs-Anwendungen hat es noch keine große Bedeutung. Wenn dieses Fenster fehlt, kann es über ANSICHTÆPROJEKTVERWALTUNG geöffnet werden. ƒ Für uns aber bereits anfangs außerordentlich wichtig wird das Fenster sein, das rechts unten zu sehen ist und die Beschriftung Tool-Palette trägt. Sollte

8

1 Benutzeroberflächen

dieses Fenster nicht zu sehen sein kann es über ANSICHTÆTOOL-PALETTE geöffnet werden.

1.2.2

Delphi 7 und ältere Versionen Das Startbild von Delphi 7 und älteren Versionen von Delphi (Bild 1.9) ist im Wesentlichen wie das Startbild der Turbo-Delphi-2006-VCL-Formularanwendung (Bild 1.10) strukturiert; aber einige Bezeichnungen sind doch anders.

Komponentenleiste

Objektinspektor

Bild 1.11: Startbild von Delphi 7 ƒ Auffällig ist im Zentrum des Fensters die sofort vorhandene, grau gerasterte Fläche mit der Beschriftung Form1. Das ist wieder der Entwurf des Formulars, das ist bereits der Grundbaustein für jede Anwendung. ƒ Das kleine Fenster links oben trägt die Beschriftung Objekt-Hierarchie; es entspricht der Projektverwaltung von Turbo Delphi 2006; es ist für unsere Anwendungen einstweilen nicht wichtig. ƒ Links darunter ist jedoch wieder das wichtige Fenster zu sehen, das die Überschrift Objektinspektor trägt. Mit Hilfe des Objektinspektors können wir einstellen, wie die Bedienelemente später aussehen sollen, wenn sie dem Nutzer anfangs auf dem Bildschirm präsentiert werden. ƒ Anstelle des Tool-Paletten-Fensters, das sich im VCL-Startbild von Turbo Delphi rechts unten befindet, besitzen die älteren Versionen von Delphi rechts oben eine Komponentenleiste (Bild 1.12) mit verschiedenen Registerblättern mit den Bezeichnungen STANDARD, ZUSÄTZLICH, SYSTEM usw.

1.3 Startbilder von Delphi 8, Delphi 2005 und Delphi 2009

9

Bild 1.12: Komponentenleiste älterer Delphi-Versionen bis Delphi 7

1.3

Startbilder von Delphi 8, Delphi 2005 und Delphi 2009 Bild 1.4 zeigt die Oberfläche von Delphi 8, nachdem das Willkommens-Fenster geschlossen wurde und anschließend mittels DATEIÆNEUÆVCL-FORMULARANWENDUNG die Voraussetzung für die Arbeit auf dem Einsteigerniveau geschaffen wurde (Bild 1.13). Es ist grundsätzlich genau so aufgebaut wie das entsprechende Startbild von Turbo-Delphi. In Bild 1.10 ist lediglich links das Fenster des Objektinspektors nach oben vergrößert worden.

Tool-Palette

Objektinspektor

Bild 1.13: Startbild für die Delphi-8-VCL-Programmierung Auch die Startbilder für die Delphi-2005-VCL-Programmierung (Bild 1.14) und die Delphi-2009-VCL-Programmierung (Bild 1.15), die jeweils nach Beseitigung der Willkommens-Seite und anschließender Bedienhandlung DATEIÆNEUÆVCL-FORMULARANWENDUNG entstehen, gleichen in ihrem Aufbau grundsätzlich dem Startbild für die Turbo-Delphi-VCL-Formularanwendung aus Bild 1.10. Folglich brauchen wir uns im Weiteren nur mit Turbo Delphi 2006 sowie – für die Besitzer der älteren Delphi-Versionen – mit Turbo 7 zu beschäftigen.

10

1 Benutzeroberflächen

Tool-Palette

Objektinspektor

Bild 1.14: Startbild für die Delphi-2005-VCL-Programmierung

Tool-Palette

Objektinspektor

Bild 1.15: Startbild für die Delphi-2009-VCL-Programmierung

 

    

1.4



Tool-Palette und Komponentenleiste          Ȭ›˜›Š––’Ž›ž— –’ ž›˜ !Ž•™"’ ‹   #‘ ‹ $ #‘ #‘  %    &‹ #‘ Tool-Palette'*+/

 ’•ŗǯŗŜ> festgelegt werden.

Bild 1.24: Farb-Voreinstellung

1.5.2

Test des Formulars Die meisten Eigenschaften, die wir mit Hilfe des Objektinspektors voreinstellen, werden uns, wie in einer Vorschau, auch schon sichtbar angezeigt. Allerdings nicht alle – würde uns beispielsweise das maximale Fenster während der Entwurfstätigkeit schon eingestellt, könnten wir nichts Anderes mehr sehen. Die endgültige Kontrolle, wie sich das Formular schließlich dem Nutzer darstellen wird, liefert die Herstellung des Formulars, indem die so genannte Laufzeit gestartet wird – man sagt auch, es „wird ausgeführt“ oder „die Ausführung wird gestartet“. Dazu wird entweder die Taste F9 betätigt, oder es wird mit der linken Maustaste auf das nach rechts gerichtete grüne Dreieck (Bilder 1.25, 1.26) geklickt.

Bild 1.25: Herstellung der Benutzeroberfläche

16

1 Benutzeroberflächen

Start der Laufzeit

Bild 1.26: Start der Laufzeit

Ende der Laufzeit

Bild 1.27: Beendigung der Laufzeit, Rückkehr zum Entwurf Für die Rückkehr zum Entwurfsmodus (auch als Entwurfsphase oder kurz als Entwurf bezeichnet) muss die Laufzeit beendet werden – in der Sprache von Turbo Delphi und Delphi 8/2005/2009 heißt das, dass wir uns den Designer wieder anzeigen lassen.

17

1.5 Formular

Die Laufzeit lässt sich beenden, indem am Formular das Schließkreuz rechts oben angeklickt wird (Bild 1.27) oder die Tastenkombination Alt + F4 gewählt wird. Sollte dann anstelle der gerasterten Entwurfsform des Formulars ein anderes Fenster (z. B. mit Programmtext) zu sehen sein, kann mit F12 oder mit einer Schaltfläche (s. Bild 1.28) zum Entwurf des Formulars gewechselt werden.

Bild 1.28: Rückkehr zum Formular in Turbo Delphi bzw. Delphi 7 Im Entwurf kann dann weiter an der Vorbereitung des Formulars gearbeitet werden: Erscheinungsmerkmale, die nicht gefallen haben, können korrigiert werden, und es sollte vor allem durch Speicherung der bisherige Bearbeitungsstand gesichert werden.

1.5.3

Speicherung Die älteren Versionen von Delphi und vor allem dann Turbo Delphi und Delphi 8/2005/2009 sind leistungsfähige Entwicklungssysteme, folglich wird eine einzige Datei zum Speichern keinesfalls ausreichen. Grundsätzlich sollte stets veranlasst werden, dass das Delphi-System stets alles speichert.

Alles speichern

Bild 1.29: Turbo Delphi-Menü DATEI mit Speichermöglichkeiten Dazu gibt es im Menü DATEI aller Delphi-Versionen speziell das Angebot ALLES SPEICHERN.

18

1 Benutzeroberflächen

Bild 1.29 zeigt das Menü DATEI von Turbo Delphi und Delphi 8/2005/2009. In älteren Delphi-Versionen gibt es dazu keinen wesentlichen Unterschied. Man beachte aber: Beim ersten Mal von ALLES SPEICHERN müssen wir stets zwei verschiedene Dateinamen selber vorgeben: Zuerst verlangt Delphi nämlich noch nicht den Namen für das ganze Projekt, sondern erst einmal nur den Namen für die Datei, die das Formular speichert. Da die programmtechnische Bezeichnung für den Text, der innerhalb des Projekts die Angaben zum Formular speichert, mit der Vokabel Unit beginnt, sollte sich zweckmäßig der Name der Formular-Datei vom später verlangten Projektnamen durch ein angehängtes „u“ unterscheiden. Soll zum Beispiel das gesamte erste Projekt unter dem Namen kap01 gesichert werden, empfiehlt sich für die Formular-Datei der Name kap01u. Erst anschließend verlangt Delphi den Namen für das ganze Projekt. Hier wäre in unserem Fall kap01 sinnvoll. Die jeweiligen Endungen ergänzt Delphi selbsttätig. Bild 1.30 lässt erkennen, dass Delphi 7 und erst recht Turbo Delphi 2006 mit den zwei vergebenen Namen sofort eine Fülle an Dateien angelegt hat – auch wenn das Projekt bisher lediglich ein einziges Formular enthält.

Bild 1.28: Dateien des Projekts, von Delphi 7 bzw. Turbo Delphi 2006 angelegt Die älteren Versionen von Delphi vor Delphi 7 legen, ebenso wie in Bild 1.30 links zu sehen, pro Projekt auch mehrere Dateien an. für sie gilt das Gesagte ebenso. Allerdings - die bdsproj-Dateien (das sind die Dateien mit der Endung bdsproj) gibt es in den älteren Delphi-Versionen nicht. Deshalb müssen wir unterscheiden: ƒ Die entscheidende Datei für ein Delphi-7-Projekt (oder ein Projekt einer noch älteren Delphi-Version) ist immer die Projekt-Datei mit der Endung .dpr. ƒ Die entscheidende Datei für ein Turbo-Delphi-Projekt (und für Delphi 8/2005-Projekte) ist immer die Projekt-Datei mit der Endung .bdsproj. ƒ Die entscheidende Datei für ein Delphi-2009-Projekt ist immer die ProjektDatei mit der Endung .dproj!.

19

1.6 Bedienelemente auf dem Formular

Wenn später mittels DATEI Æ PROJEKT ÖFFNEN ein vorhandenes Projekt geöffnet werden soll, werden in dem entsprechenden Auswahl-Fenster (Bild 1.31) von den vielen Dateien des Projektes ohnehin nur die passenden Projektdateien zur Auswahl angeboten. Die Versionen Turbo Delphi 2006 und Delphi 2009 bieten jedoch bei der Projektöffnung sowohl die .dpr- als auch die .bdsproj- bzw. .dproj-Dateien zum Öffnen an.

Bild 1.31: Turbo Delphi und Delphi 2009: Angebot bei DATEIÆPROJEKT!!ÖFFNEN Das heißt, man kann mit diesen beiden neuen Delphi-Versionen auch ältere Projekte (Delphi 7 und älter) öffnen und bearbeiten. Allerdings werden danach, wenn die Ergebnisse der Überarbeitung der älteren Projekte gespeichert werden sollen, neue Projektdateien mit den neuen Endungen .bdsproj- bzw. .dproj erzeugt

1.6

Bedienelemente auf dem Formular

1.6.1

Auswahl mit Turbo Delphi 2006 und Delphi 8/2005/2009 Wie bekommt man zum Beispiel einen Button (Schaltfläche), eine Scrollbar (Schieberegler), ein Textfenster oder all die anderen Bedienelemente, an die wir inzwischen gewöhnt sind und mit denen wir eine attraktive Benutzeroberfläche gestalten wollen, im Entwurf auf das Formular?

Öffnen der Kategorie durch Klick auf das Pluszeichen

Bild 1.32: Tool-Palette von Turbo Delphi 2006

20

1 Benutzeroberflächen

Wenn wir mit Turbo Delphi oder mit Delphi 8/2005/2009 arbeiten, benötigen wir hierzu die Tool-Palette, die in mehreren Kategorien (s. Bild 1.16) alle Arten von Bedienelemente zur Verfügung stellt, die man sich für heutige Anwendungen wünschen kann. Eine Kategorie wird durch Klick auf das Pluszeichen links neben dem KategorieNamen geöffnet.

1.6.2

Auswahl mit älteren Delphi-Versionen Wie schon mitgeteilt, sind in Delphi 7 und früheren Versionen dagegen die Symbole für die Bedienelemente in Registerblättern auf der Komponentenleiste (Bild 1.33) angeordnet.

Bild 1.33: Komponentenleiste von Delphi 7 und älteren Versionen

1.6.3

Wichtige Kategorien bzw. Registerblätter In Turbo Delphi und in Delphi 8/2005/2009 wird von Kategorien in der Tool-Palette gesprochen, in älteren Delphi-Versionen dagegen von Registerblättern der Komponentenleiste. Inhaltlich gibt es aber keine Unterschiede. Für uns wird hauptsächlich die Kategorie bzw. das Registerblatt STANDARD bedeutsam sein (Bilder 1.34 und 1.35). Dort befinden sich, wie wir gleich sehen werden, die grundsätzlichen Bedienungselemente. Während bei Turbo Delphi und Delphi 8/2005/2009 neben dem jeweiligen Sinnbild eine erklärende Beschriftung angebracht wurde, muss man bei früheren Delphi-Versionen bis Delphi 7 ca. eine Sekunde warten, bis ein kleines gelbes Fenster aufblendet und uns über die Bedeutung des jeweiligen Symbols informiert.

Bild 1.34: Kategorie STANDARD in Turbo Delphi und Delphi 8/2005/2009

1.7 Basiselemente

21

Bild 1.35: Registerblatt STANDARD in Delphi 7 und früheren Versionen Aus der Kategorie bzw. aus dem Registerblatt SYSTEM werden wir ab Kapitel 6 den wichtigen Timer benötigen. Aus der Kategorie bzw. dem Registerblatt ZUSÄTZLICH entnehmen wir im Abschnitt 7.4.4 das Element Image und im Abschnitt 10.1.2 das Element Shape.

1.7

Basiselemente

1.7.1

Von Button bis Scrollbar Im Bild 1.35 sind bereits die Sinnbilder aus der Kategorie STANDARD aller Delphi-Versionen hervorgehoben, mit denen wir die sechs grundlegenden Bedienungselemente Schaltfläche (Button), Textfenster (Edit), Ja-Nein-Option (Checkbox), exklusive Ja-Nein-Option (RadioButton), Textanzeige (Label) und Schieberegler (Scrollbar) auswählen können. Per Mausklick kann ein Sinnbild ausgewählt werden, anschließend wird – ebenfalls mit der Maus – auf dem Formular das damit beabsichtigte Bedienelement platziert und in seiner Größe eingerichtet. Bild 1.36 zeigt eine so entstandene Benutzeroberfläche mit sechs verschiedenen Bedienelementen im Entwurf, Bild 1.37 zeigt sie zur Laufzeit.

Bild 1.36: Entwurf: Sechs Bedienelemente, auf dem Formular platziert

22

1 Benutzeroberflächen

Für den weiteren Sprachgebrauch folgen wir dem Trend: Nur für das Textfenster werden wir weiterhin die deutsche Bezeichnung verwenden (manchmal wird sich auch Textbox einschleichen). Ansonsten sprechen wir von einem Label, einer Checkbox, einem Button, einer Scrollbar und einem Radiobutton. Dann bleiben wir mit unserer Sprache auch gleich nahe bei den Standard-Namen, die Delphi sowieso für diese Bedienungselemente vergibt.

Bild 1.37: Laufzeit: Sechs Bedienelemente, auf dem Formular platziert Die Platzierung auf dem Formular ist, wie schon gesagt, denkbar einfach: Mit der Maus wird das Symbol aus der Kategorie bzw. vom Registerblatt an die gewünschte Stelle gezogen, die Größe wird eingerichtet, fertig. Im selben Moment stellt sich auch bereits der Objektinspektor auf das soeben platzierte Bedienungselement ein, teilt dessen vom Delphi-System vorgeschlagenen Namen mit und bietet den Katalog aller Eigenschaften an, die für die Laufzeit anfangs voreingestellt werden können.

1.7.2

Name, Beschriftung, Inhalt In dem Augenblick, in dem wir im Entwurf ein Bedienelement auf dem Formular platzieren, muss es einen Namen bekommen. Dieser Name ist Bestandteil der internen Organisation des gesamten Delphi-Projekts. ƒ Delphi schlägt uns für jedes Bedienelement sofort automatisch einen Namen vor. Für die Buttons (Schaltflächen) wird Button1, Button2 usw. vorgeschlagen, für die Textfenster lesen wir Edit1, Edit2 usw., für Checkboxen wird uns Checkbox1, Checkbox2 usw. vorgeschlagen, für Radiobuttons lautet der Delphi-Vorschlag Radiobutton1, Radiobutton2 usw., und jede Scrollbar wird erst einmal mit dem entsprechenden Namen Scrollbar1 usw. versehen.

1.7 Basiselemente

23

Den Delphi-Namensvorschlag können wir sowohl fettgedruckt in der Kopfzeile des zugehörigen Objektinspektors als auch in der Zeile Name lesen (Bild 1.36). Natürlich muss der Delphi-Namensvorschlag nicht akzeptiert werden; wir könnten unverzüglich im Objektinspektor die Eigenschaft Name anders, individuell belegen. Delphi würde auch den von uns vergebenen Namen akzeptieren – sofern sein Aufbau gewissen Regeln genügt. Doch für den Einsteiger ergibt sich damit eine weitere Schwierigkeit und Fehlerquelle, außerdem kann leicht die Übersicht verloren werden. ƒ Deswegen wird in diesem Buch (mit Ausnahme einer einzigen Stelle im Abschnitt 13.4.3) generell empfohlen, die Namensvorschläge von Delphi zu akzeptieren und mit den Delphi-Namen zu arbeiten. Auf eine Besonderheit muss jedoch unbedingt hingewiesen werden: Wenn Delphi einen Namen für ein Bedienelement vorschlägt und in die Zeile Name des Objektinspektors dieses Bedienelements einträgt, trägt Delphi diese Vokabel automatisch auch als Start-Beschriftung von Formular, Button, Checkbox, Label oder Radiobutton in die Zeile Caption von deren Objektinspektor oder als Start-Inhalt eines Textfensters in die Zeile Text seines Objektinspektors ein.

Bild 1.38: Delphi schlägt einen Namen für ein Bedienelement vor Das führt bei Anfängern gern dazu, dass sie die Aufgabe „Ändere die Start-Beschriftung oder den Start-Inhalt“ falsch dadurch lösen, dass sie den Namen ändern.

1.7.3

Voreinstellungen Der Objektinspektor eines Buttons (Bild 1.39) bietet all das an, was in der Entwurfsphase als Eigenschaft entsprechend dem gewünschten Erscheinungsbild beim Start eingestellt werden kann:

24

1 Benutzeroberflächen

Die beiden meistgebrauchten Eigenschaften jedes Buttons sind im Bild hervorgehoben: Die Beschriftung des Buttons über Caption und die Einstellung von Schriftgröße und –stil über Font.

Bild 1.39: Objektinspektor eines Buttons in Turbo Delphi, Delphi 8/2005/2009 Die drei wichtigsten Zeilen des Objektinspektors eines Textfensters sind: ƒ Text zur Voreinstellung des Inhalts für den Start der Laufzeit, ƒ Color zur Voreinstellung der Fensterfarbe und ƒ Font zur Voreinstellung der Schrift. Im Objektinspektor einer Checkbox sind besonders hervorzuheben: ƒ die Möglichkeit der Farb-Vorwahl über Color, ƒ die Wahl der Start-Beschriftung über Caption einschließlich der Schriftauswahl mittels Font, ƒ die Möglichkeit, die Checkbox mit oder ohne gesetzten Haken (Eigenschaft Checked) auf der Benutzeroberfläche beim Start der Laufzeit erscheinen zu lassen. Ein Label ist ein reines Ausgabemedium; es wird zuerst einmal dafür benutzt, um Informations-Texte auf das Formular zu schreiben. Deshalb kann ƒ über die Eigenschaft Transparent eingestellt werden, ob das Label durchscheinend ist oder einen eigenen Hintergrund haben soll, ƒ mit Caption die Startbeschriftung gewählt werden, ƒ mit Font die Schriftart, mit Color die Farbe voreingestellt werden. Weiterhin wird – im Gegensatz zum Textfenster – ein Label immer dann benutzt, wenn ein Nutzer ein Ergebnis ohne Änderungsmöglichkeit zur Kenntnis nehmen soll. In diesem Fall kann über die Eigenschaft AutoSize eingestellt werden, ob sich das Label dem auszugebenden Inhalt in der Größe anpassen soll oder immer dieselbe, im Entwurf voreingestellte Größe besitzt.

1.7 Basiselemente

25

Ein Schieberegler, allgemein als Scrollbar bezeichnet, manchmal von Kennern auch Potentiometer genannt, ist ein sehr wirksames Bedienungselement. Denn mit seiner Hilfe kann man ein Mittel auf dem Formular platzieren, bei dem eine Fehlbedienung durch den Nutzer absolut ausgeschlossen ist. Wir brauchen uns zum Beispiel nur eine Anwendung vorzustellen, bei der ein Nutzer nur ganzzahlige Werte zwischen 0 und 255 (s. Abschnitt 7.1.3) eingeben darf. Lassen wir den Nutzer (auch mit entsprechendem Hinweis) seinen Wert in ein Textfenster eintragen, können wir mit an Sicherheit grenzender Wahrscheinlichkeit davon ausgehen, dass er aus Unkonzentriertheit oder Müdigkeit oder Bösartigkeit doch bisweilen etwas Sinnloses einträgt. Eine Fehlermeldung, wenn nicht sogar ein Programmabsturz sind die Folgen. Fordern wir den Nutzer dagegen auf, in einer Scrollbar, deren Minimum auf 0 und deren Maximum auf 255 voreingestellt wurde, den Regler einzustellen – da kann er absolut nichts falsch machen. Der Objektinspektor der Scrollbar liefert wieder die wichtigsten Möglichkeiten der Voreinstellung. ƒ Die Ausrichtung der Scrollbar wird mit der Eigenschaft Kind gewählt. ƒ Minimum, Maximum und Startposition des Reglers werden im Objektinspektor in den Zeilen mit den Beschriftungen Min, Max bzw. Position eingetragen. ƒ SmallChange legt fest, ob der Regler in kleinen oder großen Schritten „springt“, wenn der Nutzer die Griffe an den Seiten der Scrollbar mit der Maus betätigt. Ein Radiobutton allein ist eigentlich sinnlos. Denn der Nutzer kann ihn zwar „einschalten“ (falls er nicht sogar schon diese Starteigenschaft über Checked bekommen hatte), aber er kann ihn nie wieder „ausschalten“. Aus Windows ist es uns allgemein bekannt: Radiobuttons treten eigentlich immer in Gruppen auf. Innerhalb der Gruppen kann der Nutzer dann umschalten.

Bild 1.40 Symbol zur Gruppierung von Radiobuttons in Turbo Delphi

Bild 1.41 Symbol zur Gruppierung von Radiobuttons in Delphi 7

26

1 Benutzeroberflächen

Um solche Gruppen von Radiobuttons auf dem Formular zu platzieren, benötigt man zuerst aus der Kategorie bzw. dem Registerblatt STANDARD einen Rahmen (Bilder 1.40 und 1.41). An einem solchen Rahmen, der von Delphi mit dem Namen GroupBox1 usw. versehen wird, kann natürlich auch über seinen Objektinspektor die Beschriftung mit Caption und Font sowie die Hintergrundfarbe mit Color voreingestellt werden. Anschließend werden dann die Radiobuttons in den/die Rahmen hineingezogen. Umgekehrt geht es nicht. Bild 1.42 zeigt uns eine Gruppe von Radiobuttons, die mit ihren Beschriftungen in dem Rahmen angeordnet wurden. Der oberste Radiobutton trägt beim Start die Markierung.

Bild 1.42 Gruppierte Radiobuttons mit Startmarkierung Bild 1.43 erklärt, wie die gesetzte Start-Markierung des ersten Radiobuttons, der den Namen RadioButton1 erhielt, im Objektinspektor dieses Bedienelements eingestellt wird.

Bild 1.43 Die Markierung für Radiobutton1 wird gesetzt

ȱ

2

Objekt, Ereignis, Ereignisprozedur –ȱŸ˜›’Ž—ȱ Š™’Ž•ȱ ž›ŽȱŽœŒ‘’•Ž›ǰȱ ’ŽȱŽ•™‘’ȱŽœŠ›Žȱ ’›ǰȱ ’Žȱ’ŽȱŠ›Ȭ Ž’Ž—œŒ‘ŠŽ—ȱ Ž›ȱ ›ž—•ŽŽ—Ž—ȱ ›‹Ž’œ•§Œ‘Žǰȱ Žœȱ ˜›–ž•Š›œǰȱ Ÿ˜›Ž’—ŽœŽ••ȱ  Ž›Ž—ǰȱ ’Žȱ–Š—ȱ£ ŽŒ”–§đ’ȱœ™Ž’Œ‘Ž›ǯȱŽ’Ž›ȱ ž›ŽȱŽ›•§žŽ›ǰȱ ’Žȱ’Žȱœ˜ȱŽȬ —Š——Žȱ Šž£Ž’ȱ ŽœŠ›Žȱ  ’›ǰȱ ’—ȱ Ž›ȱ ’Žȱ Ÿ˜›‹Ž›Ž’ŽŽȱ ›‹Ž’œ•§Œ‘Žȱ Š——ȱ ŠȬ œ§Œ‘•’Œ‘ȱ Ž›œŒ‘Ž’—ȱ ž—ȱ ’—ȱ Ž›ȱ –Š—ȱ ”˜—›˜••’Ž›Ž—ȱ ”Š——ǰȱ ˜‹ȱ ’Žȱ Ÿ˜›‹Ž›Ž’ŽŽȱ ›Ȭ œŒ‘Ž’—ž—œ˜›–ȱŽœȱ˜›–ž•Š›œȱ ’ŽȱŽ û—œŒ‘ȱ£žȱœŽ‘Ž—ȱ’œǯȱȱ Š›Š—ȱŠ—œŒ‘•’ŽđŽ—ȱ˜•Ž—ȱŽ›œŽȱ—•Ž’ž—Ž—ǰȱ ’Žȱ ’Œ‘’Žȱ Ž’Ž—Ž•Ž–Ž—ŽȱŠžȱ Ž–ȱ ˜›–ž•Š›ȱ ™•Š£’Ž›ȱ ž—ȱ ’‘›Ž›œŽ’œȱ û›ȱ ’‘›Žȱ  ŽœŽ—•’Œ‘Ž—ȱ Š›Ž’Ž—œŒ‘ŠŽ—ȱ Ÿ˜›Ž’—ŽœŽ••ȱ  Ž›Ž—ȱ ”ã——Ž—DZȱ ȱ ž˜—ȱ ǻŒ‘Š••§Œ‘ŽǼǰȱ Š‹Ž•ȱ ǻŽœŒ‘›’ž—œŽ•Ǽǰȱ ’ȱ ǻŽ¡Ž’—Š‹ŽŽ•ǰȱ Ž¡Ž—œŽ›Ǽǰȱ ‘ŽŒ”‹˜¡ȱ ǻ ŠȬŽ’—Ȭ™’˜—Ǽǰȱ Œ›˜••‹Š›ȱ ǻŒ‘’ŽȬ ‹Ž›Ž•Ž›Ǽȱœ˜ ’ŽȱŠ’˜‹ž˜—œȱ’—ȱ ›˜ž™˜¡Ž—ȱǻ›ž™™’Ž›Žȱžœ Š‘•Ǽǯȱȱȱ ’œȱ ‘’Ž›‘Ž›ȱ •’Žđȱ œ’Œ‘ȱ Š••Žœȱ œŒ‘ã—ȱ Ž’—ŠŒ‘ǰȱ Ǯ›Ž’—ȱ ‘Š— Ž›”•’Œ‘ȃǰȱ œŒ‘’•Ž›—ǯȱ Š—ȱ —Ž‘–Žǰȱ –Š—ȱ žŽǯȱ ’œȱ Šžȱ Ž—ȱ –Š—ȱ –’ȱ Ž’—’Ž—ȱ Ž—•’œŒ‘Žȱ ˜”Š‹Ž•—ǰȱ Ž›Ž—ȱ

Ž———’œȱ û›ȱ ’Žȱ žŒ‘Žȱ —ŠŒ‘ȱ Ž—ȱ ’Ž—œŒ‘ŠŽ—ȱ ž—ȱ Ž›Ž—ȱ ŽŽžž—ȱ ’–ȱ ‹Ȭ “Ž”’—œ™Ž”˜›ȱ‘’•›Ž’Œ‘ȱ’œǰȱ ž›Žȱž—œŽ›ȱŽ—”ŸŽ›–㐎—ȱ—˜Œ‘ȱ—’Œ‘ȱŠžȱ‘Š›Žȱ›˜Ȭ ‹Ž—ȱŽœŽ••ǯȱȱ ˜Œ‘ȱ Ž——ȱ ’›ȱ’—‘Š••’Œ‘ȱŸŽ›œŽ‘Ž—ȱ ˜••Ž—ǰȱ ŠœȱŠœ§Œ‘•’Œ‘ȱ‹Ž’ȱŽ›ȱŽ•™‘’Ȭ›˜Ȭ ›Š––’Ž›ž—ȱ Ÿ˜›ȱ œ’Œ‘ȱ Ž‘ǰȱ  Ž——ȱ  ’›ȱ Ž’Ž—Ž—ȱ —Ž’•ȱ ž—ȱ ’Žȱ Ž’œž—Ž—ȱ Žœȱ Ž•™‘’Ȭ¢œŽ–œȱ ’—ȱ ’‘›Ž–ȱ žœŠ––Ž—‘Š—ȱ ž—ȱ ŽŒ‘œŽ•œ™’Ž•ȱ Ž’—˜›—Ž—ȱ –㌑Ȭ Ž—ǰȱ–ûœœŽ—ȱ ’›ȱž—œȱ—§‘Ž›ȱ–’ȱŽ–ȱŽ›’ȱŽœȱ‹“Ž”Žœȱ‹ŽŠœœŽ—ǯȱȱ Ž——ȱœŒ‘•’Žđ•’Œ‘ȱ Ž›Ž—ȱ ’›ȱ’—ȱ’›”•’Œ‘”Ž’ȱ—’Œ‘œȱ—Ž›ŽœȱŠ•œȱȱ‹Ž›Ž’‹Ž—ȱ Ȯȱ‹“Ž”˜›’Ž—’Ž›Žȱ›˜›Š––’Ž›ž—ǯȱž›ȱû—ȱ Š™’Ž•ȱ Ž›Ž—ȱ ’›ȱ‹Ž—㝒Ž—ǰȱȱž—ȱ Š——ȱ Ž›Ž—ȱ ’›ȱ ’œœŽ—ǰȱ Šœȱ ’›ȱž—ǯȱȱ ’›ȱ Ž‘Ž—ȱ ’—ȱ ”•Ž’—Ž—ȱ Œ‘›’Ž—ȱ Ÿ˜›ǯȱ ŽŠœœŽ—ȱ  ’›ȱ ž—œȱ £žŽ›œȱ –’ȱ Ž—ȱ Ž›’Ž—ȱ ‹“Ž”ǰȱ›Ž’—’œȱž—ȱ›Ž’—’œ™›˜£Žž›ǯȱȱ

2.1

Der Objektbegriff

2.1.1

Datenobjekte ’—ȱŠŽ—˜‹“Ž”ȱ‹ŽœŽ‘ȱ£žŠ••Ž›Ž›œȱŠžœȱŽ’—Ž–ȱŽœŒ‘û£Ž—ȱŠŽ—”Ž›—ǯȱŠ—ȱœŠȱ ŠžŒ‘ǰȱ’Žȱ˜›ȱŽ—‘Š•Ž—Ž—ȱŠŽ—ȱœ’—ȱŽ”Š™œŽ•ǯȱȱ ’Žȱ Ž›ȱ ŠŽ—”Ž›—ȱ ’–ȱ ’—£Ž•—Ž—ȱ ŠžŽ‹Šžȱ ’œǰȱ Šœȱ  Ž’đȱ —ž›ȱ Ž›“Ž—’Žȱ ›˜Ȭ ›Š––’Ž›Ž›ǰȱŽ›ȱ’ŽœŽœȱŠŽ—˜‹“Ž”ȱ’›Ž— Š——ȱŽ’—–Š•ȱŸ˜›‹Ž›Ž’Žȱ‘Šǯȱ

ŘŞ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

œȱ Ž’—ȱ ‹“Ž”ȱ Ÿ˜›‹Ž›Ž’Žȱ ǻž—ȱ ‹Ž’œ™’Ž•œ Ž’œŽȱ ’—ȱ Ž’—Žȱ ‹“Ž”œŠ––•ž—ȱ ŠžŽȬ —˜––Ž—ȱ ˜›Ž—Ǽǰȱœ˜ȱ”ã——Ž—ȱŸ’Ž•ŽȱŠ—Ž›Žȱ›˜›Š––’Ž›Ž›ȱŠ–’ȱŠ›‹Ž’Ž—ǯȱ’›ȱ  ˜••Ž—ȱ ’ŽœŽȱ £ž–ȱ —Ž›œŒ‘’Žȱ £žȱ Ž–ȱ ˜›‹Ž›Ž’Ž›ȱ Žœȱ ‹“Ž”œȱ Š•œȱ ž£Ȭ›˜Ȭ ›Š––’Ž›Ž›ȱ ‹Ž£Ž’Œ‘—Ž—ǯȱ Ž’—ȱ ž£Ȭ›˜›Š––’Ž›Ž›ȱ ”Š——ȱ Š‹Ž›ȱ ž—–’Ž•‹Š›ȱ Šžȱ ’ŽȱŽœŠ—Ž’•ŽȱŽœȱŠŽ—”Ž›—œȱ£ž›Ž’Ž—ǯȱȱ

§ŽȱŽ’—ȱ‹“Ž”ȱ—ž›ȱŽ—ȱŽœŒ‘û£Ž—ȱŠŽ—”Ž›—ǰȱœ˜ȱ §›ŽȱŽœȱ˜Ž—œ’Œ‘•’Œ‘ȱœ’——Ȭ •˜œǯȱ’Ž–Š—ǰȱ”Ž’—ȱž£Ȭ›˜›Š––’Ž›Ž›ǰȱ”ã——Žȱ–’ȱŽ—ȱŠŽ—ȱŠ›‹Ž’Ž—ǯȱȱ Žœ‘Š•‹ȱŽ—‘§•ȱ“ŽŽœȱ‹“Ž”ȱ£žœ§£•’Œ‘ȱŽ ’œœŽȱŽŒ‘Š—’œ–Ž—ǰȱ–’ȱŽ›Ž—ȱ ’•Žȱ “ŽŽ›ȱž£Ȭ›˜›Š––’Ž›Ž›ȱ–’ȱŽ–ȱŠŽ—”Ž›—ȱž–Ž‘Ž—ȱ”Š——ǯȱȱ

ȱȱ ’•ȱŘǯŗDZȱ‹“Ž”Žȱ’—ȱŽ•™‘’ȱ —ȱ’•ȱŘǯŗȱœ’—ȱ’ŽœŽȱ›Ž’ȱŽŒ‘Š—’œ–Ž—ȱŽ’—Ž£Ž’Œ‘—Žǰȱ’Žȱ£žȱ“ŽŽ–ȱŽ•™‘’Ȭ‹Ȭ “Ž”ȱŽ‘㛎—ȱ”ã——Ž—DZȱȱ  ’—Žȱ™›˜™Ž›¢ȱǻ’Ž—œŒ‘ŠǼȱ’Ž—ȱŽ–ȱœŒ‘—Ž••Ž—ȱŠ”’ŸŽ—ȱž—ȱ™Šœœ’ŸŽ—ȱž›’ȱ ŠžȱŽ’—£Ž•—ŽȱŽœŠ—Ž’•ŽȱŽœȱŠŽ—”Ž›—œǯȱŽ› Ž—ŽȱŽ’—ȱž£Ȭ›˜›Š––’ŽȬ ›Ž›ȱŽ’—Žȱ™›˜™Ž›¢ȱŠ”’ŸǰȱŸŽ›§—Ž›ȱŽ›ȱ–’ȱ’‘›Ž›ȱ ’•ŽȱŽ’—Ž—ȱŽ’—£Ž•—Ž—ȱŽ›ȱ’–ȱ ŠŽ—”Ž›—ǯȱ Šœœ’ŸŽȱ Ž› Ž—ž—ȱ ŠŽŽ—ȱ ’—˜›–’Ž›ȱ û‹Ž›ȱ ’Žȱ Š”žŽ••Žȱ ’žŠȬ ’˜—ȱ’–ȱŠŽ—”Ž›—ǰȱ˜‘—ŽȱŠ›’—ȱ£žȱ§—Ž›—ǯȱȱ Ž——ȱ £ǯȱ ǯȱ ’–ȱ ŠŽ—”Ž›—ȱ ’Žȱ ‘›£Ž’ȱ –’ȱ ž—Žȱ ž—ȱ ’—žŽȱ ŸŽ› Š•Žȱ  ’›ǰȱ ”ã——Ž—ȱû‹Ž›ȱ£ Ž’ȱ™›˜™Ž›’Žœȱœ˜ ˜‘•ȱ’Žȱ’—£Ž• Ž›ŽȱŠ‹Ž›ŠȱŠ•œȱŠžŒ‘ȱŸŽ›§—Ȭ Ž›ȱ Ž›Ž—ǯȱ›˜™Ž›’Žœȱ Ž›Ž—ȱŸŽ› Ž—Žǯȱ  ’—Žȱ ž—Œ’˜—ȱ ǻž—”’˜—Ǽȱ •’ŽŽ›ȱ œŽœȱ Ž’—Ž—ȱ Ž’—£Ž•—Ž—ȱ Ž›ǰȱ Ž—ȱ ›Ž‹—’œ Ž›ǰȱ Ž›ȱ’—ȱžœŠ––Ž—‘Š—ȱ–’ȱŽ–ȱ—‘Š•ȱŽœȱŠŽ—”Ž›—œȱœŽ‘ǯȱȱ ’›ȱ£ǯȱǯȱ’–ȱŠŽ—”Ž›—ȱŽ’—ȱŽ¡ȱŸŽ› Š•Žǰȱœ˜ȱ”ã——ŽȱŽ’—Žȱž—”’˜—ȱ’ŽȱŠ”žȬ Ž••Žȱ—£Š‘•ȱŽ›ȱŽ’Œ‘Ž—ȱ•’ŽŽ›—ǯȱž—”’˜—Ž—ȱ Ž›Ž—ȱ’–ȱŠ••Ž–Ž’—Ž—ȱ™Šœœ’ŸȱŸŽ›Ȭ  Ž—Žǯȱ ž—”’˜—Ž—ȱ ”ã——Ž—ȱ ŠžŒ‘ȱ ’–ȱ ŠŽ—”Ž›—ȱ ŸŽ›§—Ž›—ǯȱ ‘›ȱ ›Ž‹—’œ Ž›ȱ –žœœȱ Š——ȱ —’Œ‘ȱ ’––Ž›ȱ ŸŽ›Š›‹Ž’Žȱ  Ž›Ž—ȱ ǻœ’Ž‘Žȱ ’Žȱ ž—”’˜—ȱ Addǰȱ ‹œŒ‘—’ȱ ŗřǯřǯŜǼǯȱŠ——ȱ ’›ȱ’Žȱž—”’˜—ȱŠžœ—Š‘–œ Ž’œŽȱŠžŽ›žŽ—ǯȱȱ  ’—Žȱ™›˜ŒŽž›Žȱǻ›˜£Žž›Ǽȱ”Š——ȱŽ’—Žȱ’Ž•Š•ȱŠ—ȱ’›”ž—Ž—ȱ‘Š‹Ž—DZȱ’Žȱ”Š——ȱ’–ȱ ŠŽ—”Ž›—ȱŸŽ›§—Ž›—ǰȱœ’Žȱ”Š——ȱŸ’Ž•ŽȱŽ›Žȱ•’ŽŽ›—ǰȱ”ž›£ǰȱœ’Žȱ‘ŠȱŽ’—Žȱ‹Žœ’––Žȱ ’›”ž—ǯȱ›˜£Žž›Ž—ȱ Ž›Ž—ȱŠžŽ›žŽ—ǯȱȱ

ŘǯŗȱȱŽ›ȱ‹“Ž”‹Ž›’ȱ

2.1.2

Řş

Visuelle Objekte Ž•™‘’ȱ Ž—‘§•ȱ Ž’—Žȱ ‹ŽŠŒ‘•’Œ‘Žȱ Š––•ž—ȱ Ÿ˜—ȱ Ÿ˜›‹Ž›Ž’ŽŽ—ȱ ‹“Ž”Ž—ǯȱ –ȱ Ž›œŽ—ȱ

Š™’Ž•ȱ ‘Š‹Ž—ȱ  ’›ȱ ŠŸ˜—ȱ œŒ‘˜—ȱ Ȯȱ ž—‹Ž žœœȱ Ȯȱ Ž‹›ŠžŒ‘ȱ Ž–ŠŒ‘ǯȱ ’›ȱ ‘Š‹Ž—ȱ —§–•’Œ‘ȱ ‹Žœ˜—Ž›Žȱ ‹“Ž”Žǰȱ ’ŽȱŠ•œȱ Ÿ’œžŽ••Žȱ ‹“Ž”Žȱ ‹Ž£Ž’Œ‘—Žȱ  Ž›Ž—ǰȱ ’–ȱ —Ȭ  ž›ȱŸ˜›‹Ž›Ž’Žȱž—ȱ£ž›ȱŠž£Ž’ȱŽ›£ŽžŽ—ȱ•ŠœœŽ—ǯȱȱ

ȱȱ ’•ȱŘǯŘDZȱ’œžŽ••Žœȱ‹“Ž”ȱ’—ȱŽ•™‘’ȱ ’œžŽ••Žȱ‹“Ž”Žȱ‹Žœ’£Ž—ȱ£žœ§£•’Œ‘ȱŽ’—Ž—ȱ œ’Œ‘‹Š›Ž—ȱŽ’•ǰȱŽ—ȱ ’›ȱŠ•œȱŽ’Ž—Ž•ŽȬ –Ž—ȱŠžȱŽ–ȱ˜›–ž•Š›ȱŽ›•Ž‹Ž—ǯȱžŒ‘ȱŠœȱ˜›–ž•Š›ȱœŽ•‹œȱ’œȱ—’Œ‘œȱŠ—Ž›ŽœȱŠ•œȱ Ž›ȱœ’Œ‘‹Š›ŽȱŽ’•ȱŽ’—ŽœȱŽ—œ™›ŽŒ‘Ž—Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”Žœǯȱ••ŽȱŽ›Žǰȱ’Žȱ£ž–ȱ œ’Œ‘‹Š›Ž—ȱŽ’•ȱŽ‘㛎—ǰȱœ’—ȱ’–ȱŠŽ—”Ž›—ȱŠ‹Žœ™Ž’Œ‘Ž›ǯȱȱ Š£žȱ Ž‘㛎—ȱ £ž–ȱ Ž’œ™’Ž•ȱ ˜œ’’˜—ǰȱ ›ãđŽȱ ž—ȱ Š›‹Žȱ “ŽŽœȱ Ž’Ž—Ž•Ž–Ž—œǰȱ Š›‹Žȱž—ȱŠ›ȬŠžœȱ Žœȱ ˜›–ž•Š›œǰȱŽœŒ‘›’ž—ȱŽœȱ Š‹Ž•œȱ ˜Ž›ȱ —‘Š•ȱ Žœȱ Ž¡Ž—œŽ›œǰȱŠ£žȱŽ‘㛎—ȱ’ŽȱŽ•Žž—ȱ‹Ž’ȱŽ›ȱ‘ŽŒ”‹˜¡ȱ˜Ž›ȱŽ–ȱŠ’˜‹žȬ ˜—ǰȱ’Žȱ˜œ’’˜—ȱŽœȱŽ•Ž›œȱ‹Ž’ȱŽ’—Ž›ȱŒ›˜••‹Š›ȱžœ ǯȱ ’›ȱ˜••’Œ‘ȱ’–ȱŠŽ—”Ž›—ȱŽ’—ŽœȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱ’›Ž—Ž’—ȱŽ›ȱŸŽ›§—Ž›ǰȱŽ›ȱ–’ȱ Ž–ȱœ’Œ‘‹Š›Ž—ȱŽ’•ȱ’—ȱŽ£’Ž‘ž—ȱœŽ‘ǰȱœŽ‘Ž—ȱ ’›ȱœ˜˜›ȱŽ’—Žȱ —Ž›ž—ȱŠ—ȱŽ–ȱŽ’Ž—Ȭ Ž•Ž–Ž—ǯȱȱ —ȱœŒ‘˜—ȱ•§œœȱœ’Œ‘ȱŠžŒ‘ȱŽ›”•§›Ž—ǰȱ Šœȱ ’›ȱŽ’Ž—•’Œ‘ȱŠŽ—ǰȱŠ•œȱ ’›ȱž—Ž›ȱžȬ £ž—ȱŽ›ȱž‹›’”ȱ  ȱŽœȱ‹“Ž”’—œ™Ž”˜›œȱ’—ȱŽ—ȱ‹œŒ‘—’Ž—ȱŗǯŘǯŗȱ ž—ȱŗǯŚǯřȱ“Ž Ž’•œȱ’ŽȱŠ›œ’žŠ’˜—ȱû›ȱ˜›–ž•Š›ȱž—ȱŽ’Ž—Ž•Ž–Ž—ŽȱŽœ•ŽŽ—ǯȱ ’•ȱŘǯřȱ£Ž’ȱŽœDZȱ’—’ŽȱŽ›ȱ™›˜™Ž›’Žœǰȱ’Žȱ’—ȱŽ—ȱŠŽ—”Ž›—ȱû‘›Ž—ǰȱ”ã——Ž—ȱŸ˜—ȱ ž—œȱ ‹Ž›Ž’œȱ ’—ȱ Ž›ȱ — ž›œ™‘ŠœŽȱ –’ȱ ’•Žȱ Žœȱ ‹“Ž”’—œ™Ž”˜›œȱ Ÿ˜›Ž’—ŽœŽ••ȱ  Ž›Ž—ǯȱžȱŽ’——ȱŽ›ȱ Šž£Ž’ǰȱ Ž——ȱŠ——ȱŠœȱŸ’œžŽ••Žȱ‹“Ž”ȱŠœ§Œ‘•’Œ‘ȱŽ›Ȭ £Žžȱ ’›ǰȱ›Š—œ™˜›’Ž›ȱŽ•™‘’ȱ’ŽȱŸ˜›Ž’—ŽœŽ••Ž—ȱŽ›Žȱû‹Ž›ȱ’Žȱ™›˜™Ž›’Žœȱ’—ȱ Ž—ȱŠŽ—”Ž›—ǯȱȱ ˜›ȱœ˜›Ž—ȱœ’Žȱœ˜˜›ȱû›ȱŽ—œ™›ŽŒ‘Ž—ŽȱŠ›œŽ••ž—ȱŽœȱŽ’Ž—Ž•Ž–Ž—œǰȱŠ•œ˜ȱ Žœȱ œ’Œ‘‹Š›Ž—ȱ Ž’•œȱ Žœȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”œDZȱ Šœȱ Š‹Ž•ȱ Ž›‘§•ȱ ’Žȱ Ÿ˜›Ž’—ŽœŽ••Žȱ ŽœŒ‘›’ž—ǰȱ’Žȱ‘ŽŒ”‹˜¡ȱ’ŽȱŸ˜›Ž’—ŽœŽ••ŽȱŽ•Žž—ǰȱ’ŽȱŒ›˜••‹Š›ȱ’ŽȱŸ˜›Ȭ Ž’—ŽœŽ••Žȱ˜œ’’˜—ǰȱŠœȱ˜›–ž•Š›ȱ’ŽȱŸ˜›Ž’—ŽœŽ••ŽȱŠ›‹Žȱž—ȱœ˜ȱ Ž’Ž›ǯȱȱ ’Œ‘ȱŠ••Žǰȱœ˜—Ž›—ȱ—ž›ȱ’Žȱ ’Œ‘’œŽ—ȱŽœŠ—Ž’•ŽȱŽœȱŠŽ—”Ž›—œȱœ’—ȱŸ˜›Š‹ȱ ž›Œ‘ȱŽ—ȱ‹“Ž”’—œ™Ž”˜›ȱ–’ȱ ’•ŽȱŸ˜—ȱ™›˜™Ž›’ŽœȱŽ’—œŽ••‹Š›ǯȱȱ

řŖ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

–ȱ ‹œŒ‘—’ȱ ŚǯŝǯŘȱ  Ž›Ž—ȱ  ’›ȱ Ž›Š‘›Ž—ǰȱ  ’Žȱ  Ž’Ž›Žȱ ™›˜™Ž›’Žœȱ Žž—Ž—ȱ ž—ȱ Ž—ž£ȱ Ž›Ž—ȱ”ã——Ž—ǯȱ

ȱȱ ’•ȱŘǯřDZȱ˜›Ž’—œŽ••ž—ȱŽ›ȱŠ›Ž’Ž—œŒ‘ŠŽ—ȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱ ˜ȱ  Ž’ǰȱ œ˜ȱ žǯȱ ˜Œ‘ȱ  Šœȱ ™Šœœ’Ž›ȱ £ž›ȱ Šž£Ž’ǰȱ  Ž——ȱ Šœȱ ˜›–ž•Š›ȱ –’ȱ Ž—ȱ Š›Šžȱ ™•Š£’Ž›Ž—ȱ Ž’Ž—Ž•Ž–Ž—Ž—ȱ ‘Ž›ŽœŽ••ȱ ’œǵȱ Š——ȱ ’‹ȱ Žœȱ ’Žȱ ž£Ž›’—ȱ ˜Ž›ȱŽ—ȱž£Ž›ȱǻŽ›ȱ’—ŠŒ‘‘Ž’ȱ‘Š•‹Ž›ȱœ˜••ȱŽ—Ž›Ž••ȱ—ž›ȱ”ž›£ȱŸ˜—ȱŽ–ȱž£Ž›ȱ Žœ™›˜Œ‘Ž—ȱ Ž›Ž—Ǽǯȱȱ Šû›•’Œ‘ȱ”Š——ȱŽ›ȱž£Ž›ǰȱŽ›ȱ ’›ȱŽœȱœ˜Š›ǰȱŠžȱ’ŽȱŽ’Ž—Ž•Ž–Ž—ŽȱŽ’— ’›”Ž—DZȱ›ȱ  ’›ȱŠžȱŽ—ȱž˜—ȱ”•’Œ”Ž—ǰȱ’—ȱŠœȱŽ¡Ž—œŽ›ȱŽ’—›ŠŽ—ǰȱ’—ȱŽ›ȱ‘ŽŒ”‹˜¡ȱŽ—ȱ

Š”Ž—ȱœŽ£Ž—ȱ˜Ž›ȱ Ž—Ž‘–Ž—ǰȱ’—ȱŽ›ȱŒ›˜••‹Š›ȱŽ—ȱŽ•Ž›ȱŸŽ›œŒ‘’Ž‹Ž—ȱžœ ǯȱȱ

ȱȱȱ ’•ȱŘǯŚDZȱž£Ž›Ž’— ’›”ž—ȱ’œȱŽ’—ȱ›Ž’—’œȱ Šœȱ’œȱœŽ’—ȱžŽœȱŽŒ‘ǰȱŠœȱœ˜••ȱŽ›ȱŠžŒ‘ǯȱŒ‘•’Žđ•’Œ‘ȱ ’›ȱ’ŽȱŽ—ž£Ž›˜‹Ž›•§Ȭ Œ‘Žȱ—’Œ‘ȱ£ž–ȱ‹ŽŽ’œŽ›—Ž—ȱ—œŽ‘Ž—ȱŸ˜›‹Ž›Ž’Žȱž—ȱ‘Ž›ŽœŽ••ǰȱœ˜—Ž›—ȱ£ž–ȱ —ŽŽ——Ž‘–Ž—ȱŸ˜—ȱž£Ž›Ž’— ’›”ž—Ž—ǯȱȱ –ȱ’•ȱŘǯŚȱ‘Š‹Ž—ȱ ’›ȱ˜••’Œ‘ȱŠœȱŒ‘Ž–ŠȱŽœȱŸ’œžŽ••Ž—ȱŽ•™‘’Ȭ‹“Ž”œȱŽ› Ž’Ȭ Ž›ȱ ž›Œ‘ȱ Ž—ȱ ž£Ž›ȱ ž—ȱ œŽ’—Žȱ 㐕’Œ‘”Ž’ǰȱ Šžȱ Ž’—ȱ Ž’Ž—Ž•Ž–Ž—ȱ Ž’—£ž ’›Ȭ ”Ž—ǯȱ ŽŽȱž£Ž›Ž’— ’›”ž—ȱ ’›ȱŠ‹Ž’ȱŠ•œȱ›Ž’—’œȱ‹Ž£Ž’Œ‘—Žǯȱȱ

ŘǯŗȱȱŽ›ȱ‹“Ž”‹Ž›’ȱ

řŗ

Š–’ȱ”ã——Ž—ȱ ’›ȱž—œȱŠœȱŽŒ‘œŽ•œ™’Ž•ȱŸ˜›œŽ••Ž—DZȱȱ  ’›ȱ’–ȱŠŽ—”Ž›—ȱŽ’—ȱŽœŠ—Ž’•ǰȱŽ›ȱ£ž›ȱœ’Œ‘‹Š›Ž—ȱ ˜–™˜—Ž—ŽȱŽ‘㛝ǰȱ Ž§—Ž›ǰȱ§—Ž›ȱœ’Œ‘ȱŠž˜–Š’œŒ‘ȱŽ›ȱœ’Œ‘‹Š›ŽȱŽ’•ǰȱŠœȱŽ’Ž—Ž•Ž–Ž—ǯȱ  ›˜•ȱ Š—Ž›Ž›œŽ’œȱ Ž’—Žȱ §—Ž›—Žȱ ž£Ž›Ž’— ’›”ž—ȱ Šžȱ Ž’—ȱ Ž’Ž—Ž•Ž–Ž—ǰȱ §—Ž›ȱ œ’Œ‘ȱ —’Œ‘ȱ —ž›ȱ ’ŽœŽœǰȱ œ˜—Ž›—ȱ œ˜˜›ȱ  ’›ȱ ŠžŒ‘ȱ ’–ȱ ŠŽ—”Ž›—ȱ ’ŽœŽȱ —Ž›ž—ȱ›Ž’œ›’Ž›ǯȱȱ ˜Œ‘ȱ—’Œ‘ȱ“ŽŽȱž£Ž›Ž’— ’›”ž—ȱ§—Ž›ȱŽ ŠœȱȮȱœ˜ȱ”Š——ȱŽ›ȱž£Ž›ȱŠžȱŽ’—Ž—ȱ ž˜—ȱ ”•’Œ”Ž—ǰȱ ’Žȱ Šžœȱ û‹Ž›ȱ Ž–ȱ ˜›–ž•Š›ȱ ‹Ž ŽŽ—ǰȱ Šžȱ Ž’—ȱ Š‹Ž•ȱ ”•’Œ”Ž—ȱ žœ ǯȱŠ‹Ž’ȱ ’›ȱ—’Œ‘œȱ’Œ‘‹Š›Žœȱ™Šœœ’Ž›Ž—ǰȱ˜‹ ˜‘•ȱ£ Ž’Ž•œ˜‘—ŽȱŽ’—Žȱ”’Ÿ’Ȭ §ȱŽœȱž£Ž›œȱœŠŽž—Ž—ȱ‘Šǯȱȱ ’›ȱ‹›ŠžŒ‘Ž—ȱŽ’—Ž—ȱû‹Ž›Ž˜›—ŽŽ—ȱŽ›’ǰȱž—ȱŠœȱ’œȱŽ‹Ž—ȱŠœȱ›Ž’—’œǯȱȱ  ŽŽȱ ž£Ž›‘Š—•ž—ȱ Š–ȱ ˜›–ž•Š›ȱ ˜Ž›ȱ Š—ȱ Ž’—Ž–ȱ Š›Šžȱ ‹Ž’—•’Œ‘Ž—ȱ ŽȬ ’Ž—Ž•Ž–Ž—ȱ’œȱŽ’—ȱ›Ž’—’œǯȱ  ’—’Žȱ’ŽœŽ›ȱ›Ž’—’œœŽȱ”ã——Ž—ȱ£žœ§£•’Œ‘ȱ—˜Œ‘ȱ —Ž›ž—Ž—ȱŠ—ȱŽ—ȱŽ’Ž—Ȭ Ž•Ž–Ž—Ž—ȱ ‹Ž ’›”Ž—ǯȱ ’—Ž—ȱ œ˜•Œ‘Žȱ —Ž›ž—Ž—ȱ œŠȱ  Ž›Ž—ȱ œ’Žȱ œ˜˜›ȱ ’–ȱ ŠŽ—”Ž›—ȱŽœȱ“Ž Ž’•’Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱ‹Ž›ûŒ”œ’Œ‘’ǯȱȱ

2.1.3

Ereignisbehandlung

•’Œ”ȱŽ’—ȱž£Ž›ȱŠžȱŽ’—Ž—ȱž˜—ȱ ’••ȱŽ›ǰȱŠœœȱŽ Šœȱ™Šœœ’Ž›ǰȱŠœœȱŽ’—ŽȱŽŠ”’˜—ȱ Ž’—›’ǯȱ Šœȱ ’œȱ œŽ’—ȱ žŽœȱŽŒ‘ȱ Ȯȱž—ȱ Š›ž–ȱ §‹ŽȱŽœȱ œ˜—œȱ û‹Ž›‘Šž™ȱ ’ŽœŽœȱ Ž’Ž—Ž•Ž–Ž—ȱž˜—ǵȱ Šœȱ’•ȱŘǯśȱŸŽ›œžŒ‘ȱŠ›£žœŽ••Ž—ǰȱ ’ŽȱŽœȱû‹Ž›‘Šž™ȱŠ£žȱ”˜––Ž—ȱ”Š——ǰȱŠœœȱ ŠžȱŽ’—ȱŸ˜–ȱž£Ž›ȱŠžœŽ•ãœŽœȱ›Ž’—’œȱœŒ‘•’Žđ•’Œ‘ȱŽ’—ŽȱŽŠ”’˜—ȱŽ›˜•ǯȱȱ  Ž——ȱ ’›ȱŽ’—ȱŽ’Ž—Ž•Ž–Ž—ȱ’—ȱŽ›ȱ— ž›œ™‘ŠœŽȱŠžȱŽ–ȱ˜›–ž•Š›ȱ™•Š£’ŽȬ ›Ž—ǰȱ‹Ž›Ž’Ž—ȱ ’›ȱŠ–’ȱŽ’—ȱŸ’œžŽ••Žœȱ‹“Ž”ȱŸ˜›ǯȱŠœȱ˜›–ž•Š›ȱœŽ•‹œȱ ’›ȱŠȬ ‹Ž’ȱŠžŒ‘ȱŽ’—ȱŸ’œžŽ••Žœȱ‹“Ž”ǯȱȱ  •Ž’Œ‘£Ž’’ȱ  ’›ȱ “ŽŽœȱ Ÿ˜›‹Ž›Ž’ŽŽȱ Ÿ’œžŽ••Žȱ ‹“Ž”ȱ ž›Œ‘ȱ Ž•™‘’ȱ ‹Ž’–ȱ ›Ȭ Ž’—’œ‘§—•Ž›ȱ Š—Ž–Ž•Žȱ Ȯȱ  ’›ȱ –ûœœŽ—ȱ Šœȱ —’Œ‘ȱ ž—ȱ ž—ȱ –Ž›”Ž—ȱ ŠžŒ‘ȱ —’Œ‘œȱŠŸ˜—ǯȱ’Žȱ—–Ž•ž—ȱŽ›˜•ȱŠž˜–Š’œŒ‘ǯȱȱȱ  ž›ȱ Šž£Ž’ǰȱ  Ž——ȱ ’Žȱ Ž—ž£Ž›˜‹Ž›•§Œ‘Žȱ ǻ˜›–ž•Š›ȱ –’ȱ Š›Šžȱ ‹Ž’—•’Ȭ Œ‘Ž—ȱŽ’Ž—Ž•Ž–Ž—Ž—ǼȱŠœ§Œ‘•’Œ‘ȱ‘Ž›ŽœŽ••ȱ’œǰȱ Š›ŽȱŽ›ȱ›Ž’—’œ‘§—•Ž›ȱ ŠžȱŠŒ‘›’Œ‘Ž—ȱŸ˜—ȱŽ—ȱŸ’œžŽ••Ž—ȱ‹“Ž”Ž—ǯȱȱ  㜝ȱŽ’—ȱž£Ž›ȱž›Œ‘ȱŽ’—ŽȱŽ’Ž—‘Š—•ž—ȱŽ’—ȱ›Ž’—’œȱŠ—ȱŽ’—Ž–ȱŸ’œžŽ••Ž—ȱ ‹“Ž”ȱŠžœǰȱŽ›‘§•ȱŽ›ȱ›Ž’—’œ‘§—•Ž›ȱŽ’—ŽȱŽ—œ™›ŽŒ‘Ž—ŽȱŠŒ‘›’Œ‘ǯȱ  Ž›ȱ›Ž’—’œ‘§—•Ž›ȱ™›ûǰȱ˜‹ȱŽœȱ£žȱ’ŽœŽ–ȱ›Ž’—’œȱŠ—ȱ’ŽœŽ–ȱŸ’œžŽ••Ž—ȱ‹Ȭ “Ž”ȱŽ’—ŽȱŸ˜›‹Ž›Ž’ŽŽȱ›Ž’—’œ™›˜£Žž›ȱ’‹ǯȱȱ  Ž——ȱŽœȱŽ’—ŽȱŸ˜›‹Ž›Ž’ŽŽȱ›Ž’—’œ™›˜£Žž›ȱû›ȱ’ŽœŽœȱ‹Žœ’––Žȱ›Ž’—’œȱŠ—ȱ ’ŽœŽ–ȱ‹“Ž”ȱ’‹ǰȱ ’›ȱœ’ŽȱŽœŠ›Žǯȱȱ

řŘ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

Š›Šžœȱ˜•DZȱ˜••Ž—ȱ ’›ǰȱŠœœȱŽ’—ŽȱŽŠ”’˜—ȱŠžȱŽ’—Žȱ‹Žœ’––Žȱž£Ž›‘Š—•ž—ȱŠ—ȱ Ž–ȱœ’Œ‘‹Š›Ž—ȱŽ’•ȱŽ’—Žœȱ‹Žœ’––Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱŽ’—›’ǰȱ–ûœœŽ—ȱ ’›ȱŠû›ȱœ˜›Ȭ Ž—ǰȱŠœœȱŠû›ȱŽ’—Žȱ›Ž’—’œ™›˜£Žž›ȱŽ¡’œ’Ž›ǯȱȱ

ȱȱȱ ’•ȱŘǯśDZȱ›Ž’—’œǰȱ›Ž’—’œ‘§—•Ž›ȱž—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ Šœȱ‹ŽŽžŽǰȱŠœœȱ ’›ȱž—œȱ—ž—ȱ–’ȱŽ›ȱ›ŠŽȱ‹ŽœŒ‘§’Ž—ȱ–ûœœŽ—ǰȱ ’Žȱ ’›ȱ›Ȭ Ž’—’œ™›˜£Žž›Ž—ȱ‘Ž›œŽ••Ž—ȱ”ã——Ž—ǯȱȱ

2.2

Einfache Ereignisprozeduren zum Standard-Ereignis ŽŽȱ ›Ž’—’œ™›˜£Žž›ȱ ‹ŽœŽ‘ȱ Šžœȱ Ž–ȱ Š‘–Ž—ȱ ž—ȱ Ž–ȱ —‘Š•ǯȱ –ȱ Ž—ȱ Š‘–Ž—ȱ ‹›ŠžŒ‘Ž—ȱ ’›ȱž—œȱ‹Ž’ȱŽ•™‘’ȱ—’Œ‘ȱ£žȱ”û––Ž›—ǰȱŽ›ȱ ’›ȱž—œȱœŽœȱšžŠœ’ȱǮŽȬ œŒ‘Ž—”ȃǯȱȱ žȱ“ŽŽ–ȱŸ’œžŽ••Ž—ȱ‹“Ž”ȱ’‹ȱŽœȱ£ Ž’ȱ›Ž—ȱŸ˜—ȱ›Ž’—’œœŽ—DZȱŠœȱŠ—Š›Ȭ›Ž’Ȭ —’œȱž—ȱŸ’Ž•ŽȱŠ—Ž›Žȱ›Ž’—’œœŽǯȱŠœȱœ’—ȱŠ——ȱ’Žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽǯȱȱ Šœȱ Š—Š›Ȭ›Ž’—’œȱ ’œȱ Šœ“Ž—’Žǰȱ Šœȱ ’—ȱ Ž›ȱ ŽŽ•ȱ ˜Ž›ȱ Š–ȱ ‘§ž’œŽ—ȱ Ž›ȱ žœŠ—œ™ž—”ȱû›ȱŽ’—ŽȱŽŠ”’˜—ȱœŽ’—ȱ ’›ǯȱŽ’–ȱŽ’Ž—Ž•Ž–Ž—ȱž˜—ȱ §›ŽȱŽœȱ £’Ž–•’Œ‘ȱ ŸŽ›‹•ûŽ—ǰȱ  Ž——ȱ —’Œ‘ȱ Ž›ȱ •’Œ”ȱ –’ȱ Ž›ȱ •’—”Ž—ȱ ǻ Šž™ȬǼȱ ŠžœŠœŽȱ Š•œȱŠ—Š›Ȭ›Ž’—’œȱ‹Ž›ŠŒ‘Žȱ û›Žǯȱȱ Ž’——Ž—ȱ  ’›ǯȱ žŽ›œȱ  Ž›Ž—ȱ  ’›ȱ Ž’—Žȱ ŽŠ”’˜—ȱ Šžȱ Šœȱ Š—Š›Ȭ›Ž’—’œȱ Š—ȱ Ž’Ȭ —Ž–ȱŸ’œžŽ••Ž—ȱ‹“Ž”ȱ’—ȱŽ’—Ž›ȱ›Ž’—’œ™›˜£Žž›ȱ™›˜›Š––’Ž›Ž—ǯȱ

ŘǯŘȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œȱ

řř

Ž—ȱŠ‘–Ž—ȱû›ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œȱŽ›‘Š•Ž—ȱ ’›ȱ’—ȱ’ŽœŽ–ȱ Š••ȱŠ—£ȱŽ’—ŠŒ‘DZȱž›Œ‘ȱ˜™™Ž•”•’Œ”ȱ’–ȱ— ž›ȱŠžȱŽ—ȱœ’Œ‘‹Š›Ž—ȱŽ’•ȱŽœȱŸ’œžȬ Ž••Ž—ȱ‹“Ž”œǯȱȱ Ž‘Ž—ȱ  ’›ȱ ž—œȱ Šœȱ ’–ȱ ’—£Ž•—Ž—ȱ û›ȱ ž—œŽ›Žȱ ‹’œ‘Ž›ȱ ŸŽ› Ž—ŽŽ—ȱ Ÿ’œžŽ••Ž—ȱ ‹Ȭ “Ž”ŽȱŠ—ǰȱǯȱ‘ǯȱû›ȱ’ŽȱœŽŒ‘œȱŽ’Ž—Ž•Ž–Ž—Žȱž—ȱŠœȱ˜›–ž•Š›ǯȱȱ ȱ

2.2.1 Button ȱȱȱȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 2!ȱ’ŽȱzipȬŠŽ’ȱ DKap02.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap02 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_221.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap02 ȱ’ŽȱŠŽ’ȱproj_221.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ žȱŽ’—Ž–ȱ”•Ž’—Ž—ȱ˜›–ž•Š›ȱǻŽœȱ–žœœȱ‹Ž’–ȱŠ›ȱ’Žœ–Š•ȱ—’Œ‘ȱŽ—ȱŠ—£Ž—ȱ’•Ȭ œŒ‘’›–ȱŠžœû••Ž—Ǽȱ™•Š£’Ž›Ž—ȱ ’›ȱŽ’—ȱŽ’Ž—Ž•Ž–Ž—ȱž˜—ȱž—ȱ§—Ž›—ȱ–’ȱŽ›ȱ ’Ž—œŒ‘ŠȱCaptionȱ’ŽȱŽœŒ‘›’ž—ȱŠžȱStartȱǻœ’Ž‘Žȱ’•ȱŘǯŜǼǯȱŽ•™‘’ȱœŒ‘•§ȱû›ȱ ’ŽœŽœȱŽ’Ž—Ž•Ž–Ž—ȱŽ—ȱŠ–Ž—ȱButton1ȱŸ˜›ǯȱ

ȱȱ ’•ȱŘǯŜDZȱŽ’Ž—Ž•Ž–Ž—ȱŒ‘Š••§Œ‘Žȱǻž˜—Ǽȱȱȱ ž—ȱ ’›ȱŠ£žȱ’ŽȱžŠ‹Žȱ˜›–ž•’Ž›DZȱŽ’ȱŽ’—ŠŒ‘Ž–ȱ •’Œ”ȱŠžȱ’ŽœŽ—ȱž˜—ȱœ˜••ȱ Ž›ȱž£Ž›ȱŽ’—Žȱ’Ž’•ž—ȱǮŽ›ȱž˜—ȱ ž›ŽȱŽ”•’Œ”ȃȱŽ›‘Š•Ž—ǯȱŽ‘›ȱŽ›œ–Š•ȱ —’Œ‘ǯȱȱ Ž›ȱŽ’—ŠŒ‘Žȱ •’Œ”ȱ’œȱŠœȱŠ—Š›Ȭ›Ž’—’œȱû›ȱŠœȱŽ’Ž—Ž•Ž–Ž—ȱž˜—ǯȱ˜••’Œ‘ȱ ‹ŽœŒ‘ŠŽ—ȱ ’›ȱž—œȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ǰȱ’—Ž–ȱ ’›ȱ–’ȱŽ›ȱ•’—”Ž—ȱ ŠžœŠœŽȱ˜™™Ž•ȱŠžȱŽ—ȱž˜—ȱ”•’Œ”Ž—DZȱȱ

ȱ ’•ȱŘǯŝDZȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱǮ •’Œ”ȱŠžȱButton1ȃȱȱ

řŚ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

œȱ㏏—Žȱœ’Œ‘ȱœ˜˜›ȱŽ’—ȱœ˜ȱŽ—Š——ŽœȱžŽ••Ž¡Ž—œŽ›ȱǻ’•ȱŘǯŝǼǰȱȱ’—ȱŽ–ȱœ’Œ‘ȱ‹ŽȬ ›Ž’œȱ›Ž’ǰȱ–Š—Œ‘–Š•ȱŸ’Ž›ȱ›˜›Š––£Ž’•Ž—ȱ‹Ž’—Ž—ǯȱȱ ’Žȱ procedureȬŽ’•Žȱž—ȱ’ŽȱŽ’•Žȱ–’ȱ beginȱ‹’•Ž—ȱ’Žȱ‹Ž’Ž—ȱ ˜™£Ž’•Ž—ȱŽœȱŠ‘Ȭ –Ž—œǯȱ ’Žȱ Ž’•Žȱ –’ȱ end;ȱ –’ȱ Ž–ȱ Ž–’”˜•˜—ȱ ‹’•Žȱ ’Žȱ žđ£Ž’•Žȱ Žœȱ Š‘–Ž—œǯȱ Šœȱ •Ž£Žȱ end.ȱ –’ȱ Ž–ȱ ž—”ȱ ‘Šȱ –’ȱ Ž–ȱ Š‘–Ž—ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ —’Œ‘œȱ£žȱž—ȱȮȱŽœȱŠ›ȱŠ‹Ž›ȱ—’Ž–Š•œȱŽ•ãœŒ‘ȱ Ž›Ž—ǯȱȱȱ —ȱ Ž›ȱ Ž›œŽ—ȱ ˜™£Ž’•Žȱ •ŽœŽ—ȱ  ’›ȱ ›ŽŒ‘œȱ —Ž‹Ž—ȱ Ž–ȱ ž—”ȱ ’Žȱ ˜”Š‹Ž•ȱ Button1ClickȱȮȱŠ–’ȱŽ›”Ž——Ž—ȱ ’›ȱ£ž›ȱ ˜—›˜••ŽǰȱŠœœȱ ’›ȱŠœ§Œ‘•’Œ‘ȱŽ—ȱŠ‘–Ž—ȱ Ž›ȱ›Ž’—’œ™›˜£Žž›ȱû›ȱŠœȱ›Ž’—’œȱ •’Œ”ȱŠžȱButton1ȱŸ˜›ȱž—œȱ‘Š‹Ž—ǯȱȱ Ž›ȱ ’œŒ‘Ž—›Šž–ȱ£ ’œŒ‘Ž—ȱ beginȱž—ȱ end;ȱ’œȱŸ˜—ȱž—œȱ–’ȱŽ–ȱ—‘Š•ȱŽ›ȱ›Ȭ Ž’—’œ™›˜£Žž›ȱ £žȱ û••Ž—ǯȱ ’Ž›ȱ –ûœœŽ—ȱ  ’›ȱ ™›˜›Š––’Ž›Ž—ǰȱ ǯȱ ‘ǯȱ  ’›ȱ –ûœœŽ—ȱ ’Žȱ ™ŠœœŽ—Ž—ȱŽŽ‘•Žȱ’—ȱŽ›ȱ›’Œ‘’Ž—ȱŽ’‘Ž—˜•ŽȱŽ’—›ŠŽ—ǰȱ ˜‹Ž’ȱ ’›ȱž—œȱŠ—ȱ’ŽȱŽȬ Ž•—ȱŽ›ȱ™›ŠŒ‘ŽȱŠœŒŠ•ȱ‘Š•Ž—ȱ–ûœœŽ—DZȱȱ procedure TForm1.Button1Click(Sender: TObject);

//1. Kopfzeile

begin

//2. Kopfzeile

Showmessage('Der Buttopn wurde geklickt') end;

//Inhalt //Fußzeile

ŽŸ˜›ȱ  ’›ȱ –Ž‘›ȱ £žȱ Ž—ȱ Ž›œŽ—ȱ ŠœŒŠ•ȬŽŽ•—ȱ Ž›Š‘›Ž—ǰȱ  ˜••Ž—ȱ  ’›ȱ ž—œȱ Šœȱ ›Ȭ Ž‹—’œȱ’—ȱ’•ȱŘǯŞȱŠ—œŽ‘Ž—DZȱŽ’–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ£ž›ȱŠž£Ž’ȱŽ›œŒ‘Ž’—ȱŠȬ œ§Œ‘•’Œ‘ȱ ’—ȱ Ž›ȱ ’Žȱ Žœȱ ’•œŒ‘’›–œȱ Šœȱ Ÿ˜—ȱ ž—œȱ ŸŽ›•Š—Žȱ ’Ž’•ž—œŽ—œŽ›ȱ ǻShowMessageǼȱ–’ȱŽ–ȱ™›˜›Š––’Ž›Ž—ȱ—‘Š•ǯȱ

ȱȱ ’•ȱŘǯŞDZȱ›˜•›Ž’Œ‘Žȱžœû‘›ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ Ž›ȱ Ÿ˜—ȱ ž—œȱ ™›˜›Š––’Ž›Žȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ ‹ŽœŽ‘ȱ Ž›œȱ Ž’—–Š•ȱ —ž›ȱŠžœȱŽ’—Ž–ȱŽ’—£’Ž—ȱŽŽ‘•ȱȮȱ”Ž’—Žȱ˜›ŽǰȱŠœȱ ’›ȱœ’Œ‘ȱ‹Š•ȱ§—Ž›—ǯȱȱ ’Žȱ £ Ž’ȱ Œ‘›§œ›’Œ‘Žȱ –ŠŒ‘Ž—ȱ Ž—ȱ Žœȱ Ž›ȱ Ž’•Žȱ ™›˜›Š––ŽŒ‘—’œŒ‘ȱ ž— ’›”Ȭ œŠ–ȱȮȱŠ‘’—Ž›ȱ”Š——ȱ–Š—ȱ˜••’Œ‘ȱŽ–Ž›”ž—Ž—ȱǻ ˜––Ž—Š›ŽǼȱŽ’—›ŠŽ—ǯȱȱ ›˜đȬȱ ž—ȱ •Ž’—œŒ‘›Ž’‹ž—ȱ Ž›ȱ ŽŽ‘•Žȱ œ’—ȱ ’—ȱ ŠœŒŠ•ȱ —’Œ‘ȱ  ’Œ‘’ǰȱ ’ŽœŽ•‹Žȱ ›Ȭ Ž’—’œ™›˜£Žž›ȱ”ã——Ž—ȱ ’›ȱŠžŒ‘ȱœ˜ȱœŒ‘›Ž’‹Ž—DZȱȱ procedure TForm1.Button1Click(Sender: TObject)

// 1. Kopfzeile

begin showmessage('Der Button wurde geklickt') end;

//Inhalt

ŘǯŘȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œȱ

řś

’›ȱ ŸŽ›•’Ž›Ž—ȱ Š‹Ž›ȱ Š‹Ž’ȱ œŽ‘›ȱ Ÿ’Ž•ȱ Š—ȱ t‹Ž›œ’Œ‘•’Œ‘”Ž’Dzȱ Ž›ȱ Šžœ£žŽ‹Ž—Žȱ Ž¡ȱ –žœœȱ—Šû›•’Œ‘ȱ›˜£Ž–ȱŽ—ȱŽŽ•—ȱŽ›ȱŽžœŒ‘Ž—ȱ™›ŠŒ‘ŽȱŽ—ûŽ—ǯȱ’Žȱt‹Ž›Ȭ œ’Œ‘ȱŽ‘ȱŽ‹Ž—œ˜ȱŸŽ›•˜›Ž—ǰȱ Ž——ȱ ’›ȱŠ›ŠžȱŸŽ›£’Œ‘Ž—ȱ û›Ž—ǰȱŽ’—Ž›ûŒ”ȱ£žȱ œŒ‘›Ž’‹Ž—ǯȱȱ procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(‘Der Button wurde geklickt‘)

//Inhalt

end;

Ž›ȱ  Ž——ȱ –Š—ȱ Š›ȱ Š›Šžȱ ŸŽ›£’Œ‘Žǰȱ ’Žȱ  ’Œ‘’Ž—ȱ Š‘–Ž—ȬŒ‘•ûœœŽ• ã›Ž›ȱ beginȱž—ȱend;ȱŠ••Ž’—ȱŠžȱ“ŽȱŽ’—ŽȱŽ’•Žȱ£žȱœŒ‘›Ž’‹Ž—DZȱ procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(‘Der Button wurde geklickt‘) end;

—ȱŠœŒŠ•ȱ’œȱŠœȱŽ–’”˜•˜—ȱœŽœȱŽ’—ȱ›Ž——£Ž’Œ‘Ž—ǯȱŠȱŽ›ȱ—‘Š•ȱž—œŽ›Ž›ȱ›Ž’—’œȬ ™›˜£Žž›ȱ ’Žœ–Š•ȱ —ž›ȱ Šžœȱ Ž’—Ž–ȱ ŽŽ‘•ȱ ‹ŽœŠ—ǰȱ  Š›ȱ Žœȱ û‹Ž›‘Šž™ȱ —’Œ‘ȱ —˜Ȭ  Ž—’ǰȱ Ž’—ȱ Ž–’”˜•˜—ȱ £žȱ œŽ£Ž—ǯȱ ’›ȱ  Ž›Ž—ȱ ’—ȱ  Ž’Ž›Ž—ȱ Š™’Ž•—ȱ œ˜ ’Žœ˜ȱ —˜Œ‘ȱŽ—žȱ ›Ž›ȱ–’ȱ’ŽœŽ–ȱŽ–’”˜•˜—ȱ‹Ž”˜––Ž—ǯȱ Ž›ȱ ŽŽ‘•ȱ ShowMessage(‘Der Button wurde geklickt‘)ȱ œŽ••ȱ ’—ȱ ’›”•’Œ‘”Ž’ȱ Ž—ȱ ž›žȱ Ž›ȱ ›˜£Žž›ȱ ShowMessageȱ Š›ǯȱ Š‹Ž’ȱ  ’›ȱ Ž›ȱ Ž¡ǰȱ Ž›ȱ ’—ȱ Ž–ȱ ’Ž’Ȭ •ž—œŽ—œŽ›ȱŽ›œŒ‘Ž’—Ž—ȱœ˜••ǰȱ’—ȱŽ’—ŠŒ‘Žȱ ˜Œ‘”˜––Šœȱ‘ ‘ȱŽœŽ£ȱǻŠžȱŽ›ȱŠœŠž›ȱ –Ž’œȱŽ–Ž’—œŠ–ȱ–’ȱŽ–ȱŽ’Œ‘Ž—ȱȱ#ȱȱ£žȱ’—Ž—Ǽǯȱ ȱ

2.2.2

Textfenster ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱ!Dateien für Kapitel 2!!ȱ’ŽȱzipȬŠŽ’ȱ DKap02.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap02 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_222.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap02 ȱ’ŽȱŠŽ’ȱproj_222.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ŠœŒ‘ȱ ’›ȱŽ’—ȱŽ¡Ž—œŽ›ȱŠžȱŽ–ȱ˜›–ž•Š›ȱ™•Š£’Ž›ȱǻŽœȱ‹Ž”˜––ȱŸ˜—ȱŽ•™‘’ȱ Šž˜–Š’œŒ‘ȱŽ—ȱŠ–Ž—ȱ Edit1Ǽǰȱž—ȱ–’ȱœŽ’—Ž–ȱ‹“Ž”’—œ™Ž”˜›ȱ ’›ȱ’—ȱŽ›ȱŽ’Ȭ •Žȱ Textȱ û›ȱ Ž—ȱ Š›Ȭ—‘Š•ȱ Ž’—Žȱ Ž’Œ‘Ž—˜•Žǰȱ £ž–ȱ Ž’œ™’Ž•ȱ Ž—•’—Ž—ǰȱ Ÿ˜›‹ŽȬ ›Ž’Žȱ ǻ’•ȱ ŘǯşǼǯȱ Š——ȱ  ’›ȱ –’ȱ Ž›ȱ •’—”Ž—ȱ ŠžœŠœŽȱ ˜™™Ž•ȱ Šžȱ Šœȱ Ž¡Ȭ Ž—œŽ›ȱ Ž”•’Œ”ǯȱ Œ‘˜—ȱ Ž›‘Š•Ž—ȱ  ’›ȱ Ž—ȱ Š‘–Ž—ȱ û›ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ Š—Š›Ȭ›Ž’—’œȱ‹Ž’–ȱŽ¡Ž—œŽ›ǯȱŽ•Œ‘Žœȱ›Ž’—’œȱ ’›ȱŽœȱ ˜‘•ȱœŽ’—ǵȱȱȱ Ž›ȱ˜‹Ž›œŽ—ȱŽ’•ŽȱŽœȱǮŽœŒ‘Ž—”Ž—ȃȱŠ‘–Ž—œȱ”ã——Ž—ȱ ’›ȱ›ŽŒ‘œȱŸ˜–ȱž—”ȱ ’Žȱ˜”Š‹Ž•ȱEdit1ChangeȱŠ‹•ŽœŽ—ǯȱ

řŜ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

Šœȱ ‘Ž’đǰȱ Šœœȱ ’Žȱ ›˜›Š––’Ž›Ž›ȱ Ÿ˜—ȱ Ž•™‘’ȱ Ž›ȱ Ž’—ž—ȱ  Š›Ž—ǰȱ Šœœȱ Ž’—Žȱ §—Ž›—Žȱž£Ž›Ž’— ’›”ž—ǰȱǯȱ‘ǯȱŠœȱ›Ž’—’œȱChangeȱǻ —Ž›ž—Ǽȱ‹Ž’ȱŽ’—Ž–ȱŽ¡Ȭ Ž—œŽ›ǰȱ ˜‘•ȱŠ–ȱ‘§ž’œŽ—ȱŽ›ȱžœŠ—œ™ž—”ȱû›ȱŽ’—ŽȱŽŠ”’˜—ȱœŽ’—ȱ ’›ǯȱȱ

ȱȱ ’•ȱŘǯşDZȱŽ’Ž—Ž•Ž–Ž—ȱŽ¡Ž—œŽ›ȱǻEditǼȱȱ ž—ȱ ‹›ŠžŒ‘Ž—ȱ  ’›ȱ —ž›ȱ —˜Œ‘ȱ Ž—ȱ Ž’—Ž—ȱ —˜›–Š’˜—œȬŽŽ‘•ȱ û›ȱ Ž—ȱ —‘Š•ȱ £žȱ œŒ‘›Ž’‹Ž—DZȱ procedure TForm1.Edit1Change(Sender: TObject); begin ShowMessage('Es wurde geändert')

// Inhalt

end;

ŠœœŽ—ȱ ’›ȱŠžœû‘›Ž—ǰȱœ˜ȱœŽ••Ž—ȱ ’›ȱŠœ§Œ‘•’Œ‘ȱŽœǰȱŠœœȱŠœȱŽ’—ŠŒ‘Žȱ ’—Ž’—Ȭ ”•’Œ”Ž—ȱ ’—ȱ ’Žȱ Ž¡‹˜¡ȱ —˜Œ‘ȱ —’Œ‘ȱ £ž›ȱ žœû‘›ž—ȱ ’ŽœŽ›ȱ ›Ž’—’œ™›˜£Žž›ȱ û‘›ǯȱŠœȱ›Ž’—’œȱ •’Œ”ȱ’œȱŽ‹Ž—ȱŽ’—ȱŠ—Ž›Žœȱ›Ž’—’œȱŠ•œȱ —Ž›ž—ǯȱ

2.2.3

Checkbox ›Ž’œ›ŠŽDZȱŽ•Œ‘Žȱž£Ž›Ž’— ’›”ž—ȱ ’›ȱ ˜‘•ȱ‹Ž’ȱŽ–ȱŽ’Ž—Ž•Ž–Ž—ȱ‘ŽŒ”Ȭ ‹˜¡ȱŠ–ȱ‘§ž’œŽ—ȱŠž›ŽŽ—ȱž—ȱ˜ȱ£žȱŽ’—Ž›ȱŽŠ”’˜—ȱ—•ŠœœȱŽ‹Ž—ǵȱȱ procedure TForm1.CheckBox1Click(Sender: TObject); begin ShowMessage('Es wurde geklickt')

// Inhalt

end;

Šû›•’Œ‘ȱȮȱ’—ȱŽ›ȱŽ›œŽ—ȱ ˜™£Ž’•Žȱ’œȱŽœȱŠ‹•Žœ‹Š›DZȱŠœȱŠ—Š›Ž›Ž’—’œȱ‹Ž’–ȱŽȬ ’Ž—Ž•Ž–Ž—ȱ ‘ŽŒ”‹˜¡ȱ ’œȱ Ž›ȱ Ž’—ŠŒ‘Žȱ •’Œ”ǯȱ ˜‹Ž’ȱ ’ŽœŽœȱ ›Ž’—’œȱ —Šû›•’Œ‘ȱ œ˜Ȭ  ˜‘•ȱ Ž’—›’ǰȱ  Ž——ȱ Ž›ȱ ž£Ž›ȱ Ž—ȱ Š”Ž—ȱ ’—ȱ Ž›ȱ ‘ŽŒ”‹˜¡ȱ œŽ£ǰȱ Š•œȱ ŠžŒ‘ǰȱ  Ž——ȱŽ›ȱŽ—ȱ Š”Ž—ȱ Ž—’––ǯȱ •’Œ”ȱ’œȱ •’Œ”ǯȱ

2.2.4

Scrollbar û›ȱŠœȱŽ’Ž—Ž•Ž–Ž—ȱŒ›˜••‹Š›ȱ‹ŽœŽ‘ȱŠœȱŠ—Š›Ȭ›Ž’—’œȱ’—ȱŽ›ȱ —Ž›ž—ȱŽ›ȱ ˜œ’’˜—ȱŽœȱŽ•Ž›œǯȱŽ›ȱ˜™™Ž•”•’Œ”ȱŠžȱ’ŽœŽœȱŽ’Ž—Ž•Ž–Ž—ȱ’–ȱ— ž›œ–˜Ȭ žœȱ •’ŽŽ›ȱ œ˜˜›ȱ Ž—ȱ Š‘–Ž—ȱ û›ȱ Ž’—Žȱ ›Ž’—’œ™›˜£Žž›ǰȱ –’ȱ Ž›ȱ –Š—ȱ Šžȱ ’ŽœŽȱ ž£Ž›Ž’— ’›”ž—ȱ›ŽŠ’Ž›Ž—ȱ”ã——ŽDZȱ

ŘǯŘȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œȱ

řŝ

procedure TForm1.ScrollBar1Change(Sender: TObject); begin ShowMessage('Es wurde am Regler geschoben')

// Inhalt

end;

2.2.5

Radiobutton û›ȱ Ž’—ȱ Ž’Ž—Ž•Ž–Ž—ȱ Š’˜‹ž˜—ǰȱ Šœȱ  ˜‘•ȱ —’Ž–Š•œȱ Š••Ž’—ȱ Šž›ŽŽ—ȱ  ’›ǰȱ œ˜—Ȭ Ž›—ȱ’––Ž›ȱ–’ȱŠ—Ž›Ž—ȱ£žœŠ––Ž—ȱ’—ȱŽ’—Ž›ȱ ›ž™™ŽȱǻGroupBoxǼǰȱ’œȱŽ‹Ž—Š••œȱŽ›ȱ Ž’—ŠŒ‘Žȱ •’Œ”ȱŠœȱŠ—Š›Ȭ›Ž’—’œǯȱȱ ŠœȱŽ›§‘›ȱ–Š—ȱŠžœȱŽ–ȱ£žŽ‘ã›’Ž—ȱŠ‘–Ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›DZȱȱ procedure TForm1.RadioButton1Click(Sender: TObject); begin ShowMessage('Es wurde geklickt')

// Inhalt

end;

2.2.6

Label Ž•Œ‘Žȱ— ˜›ȱœ˜••Ž—ȱ ’›ȱŽ‹Ž—ǰȱ Ž——ȱ ’›ȱ—ŠŒ‘ȱŽ–ȱŠ—Š›Ȭ›Ž’—’œȱ£ž–ȱ Ž’Ž—Ž•Ž–Ž—ȱŠ‹Ž•ȱŽ›Šȱ Ž›Ž—ǵȱŽ›ȱȮȱŠ—Ž›œȱ˜›–ž•’Ž›ȱȮȱ Ž•Œ‘Žȱž£Ž›Ȭ ‘Š—•ž—ȱ’œȱŠ—ȱŽ’—Ž–ȱŠ‹Ž•ȱŠ–ȱ Š‘›œŒ‘Ž’—•’Œ‘œŽ—ȱž—ȱœ˜••Žȱ£žȱŽ’—Ž›ȱŽŠ”’˜—ȱ û‘›Ž—ǵȱȱ ’—ȱŠ‹Ž•ȱ ’›ȱŽ’Ž—•’Œ‘ȱ—ž›ȱ™Šœœ’Ÿȱ‹Ž—ž£ǰȱž–ȱŽ Šœȱ–’£žŽ’•Ž—ǯȱ˜••’Œ‘ȱ•ŠžȬ Žȱ’Žȱœ™˜—Š—Žȱ— ˜›DZȱ Ž’—ŽǯȱŽ•Œ‘Ž›ȱž£Ž›ȱ”•’Œ”ȱœŒ‘˜—ȱŽ’—ȱŠ‹Ž•ȱŠ—ǵȱŠȬ ›ž–ȱœ˜••ŽȱŽ›ȱŠœȱž—ǵȱȱ ›˜£Ž–ȱ‘Š‹Ž—ȱ’Žȱ— ’Œ”•Ž›ȱŸ˜—ȱŽ•™‘’ȱŠžŒ‘ȱû›ȱŽ’—ȱŠ‹Ž•ȱŽ’—ȱŠ—Š›Ȭ›Ȭ Ž’—’œȱŽœŽ•ŽǯȱŠœœŽ—ȱ ’›ȱž—œȱû‹Ž››ŠœŒ‘Ž—DZȱ Label1ClickȱœŽ‘ȱ’—ȱŽ›ȱ ˜™£Ž’•Žȱ ŽœȱŠ‘–Ž—œȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ǯȱŠœȱ‹ŽœŒ‘›Ž’‹ȱŠœȱŠ‹Ž•ȬŠ—Š›Ȭ›Ž’Ȭ —’œǯȱŽ‘–Ž—ȱ ’›ȱŽœȱ£ž›ȱ Ž———’œǯȱ ˜••Ž—ȱ  ’›ȱ Ž’—–Š•ȱ Šžœȱ ’›Ž—Ž’—Ž–ȱ ›ž—Žȱ û›ȱ Ž—ȱ •’Œ”ȱ Ž’—Žœȱ ž£Ž›œȱ Šžȱ Ž’—ȱ Š‹Ž•ȱ Ž’—Žȱ ›Ž’—’œ™›˜£Žž›ȱ £žȱ œŒ‘›Ž’‹Ž—ȱ ‘Š‹Ž—ǰȱ  ’œœŽ—ȱ  ’›ȱ ˜••’Œ‘ǰȱ Šœœȱ  ’›ȱ Š–’ȱŠœȱŠ—Š›Ȭ›Ž’—’œȱŠ–ȱŠ‹Ž•ȱ‹Ž‘Š—Ž•—ǯȱȱȱ

2.2.7

Formular Ž——ȱ ’›ȱ’–ȱ— ž›ȱŠžȱŠœȱ•ŽŽ›Žȱ˜›–ž•Š›ȱ˜™™Ž•ȱ”•’Œ”Ž—ȱŽ›‘Š•Ž—ȱ ’›ȱœ˜˜›ȱ ˜•Ž—Ž—ȱ›Ž’—’œ™›˜£Žž›ȬŠ‘–Ž—DZȱȱ procedure TForm1.FormCreate(Sender: TObject); begin // Inhalt end;

řŞ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

Šœȱ ‹ŽŽžŽǰȱ Šœœȱ ‹Ž’ȱ Ž–ȱ ›ž—•ŽŽ—Ž—ȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”ǰȱ Ž–ȱ ˜›–ž•Š›ǰȱ Šœȱ ›£ŽžŽ—ȱ ǻCreateǼȱ Šœȱ Š—Š›Ž›Ž’—’œȱ ’œǯȱ ’Ž›ȱ ‘Š‹Ž—ȱ ’Žȱ ›˜›Š––’Ž›Ž›ȱ Ÿ˜—ȱ Ž•™‘’ȱ ”Ž’—Žȱ ’›Ž”Žȱ ž£Ž›Ž’— ’›”ž—ȱ Šžȱ Šœȱ ˜›–ž•Š›ȱ £ž–ȱ Š—Š›Ȭ ›Ž’—’œȱŽ›”•§›ǯȱȱ ŠŽœœŽ—ȱ ”Š——ȱ –Š—ȱ Š•œȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ œ˜•Œ‘Žȱ ŽŽ‘•Žȱ ‘’—Ž’—Ȭ œŒ‘›Ž’‹Ž—ǰȱ ’Žȱ Šž˜–Š’œŒ‘ȱ ŠžœŽû‘›ȱ  Ž›Ž—ǰȱ  Ž——ȱ Šœȱ ˜›–ž•Š›ȱ ‘Ž›ŽœŽ••ȱ  ’›ǯȱ’›ȱ Ž›Ž—ȱŠŸ˜—ȱ‹Š•ǰȱ—§–•’Œ‘ȱ’–ȱ‹œŒ‘—’ȱŚǯŝǯśǰȱ Ž‹›ŠžŒ‘ȱ–ŠŒ‘Ž—ǯȱȱ

2.3

Einfache Ereignisprozeduren zu Nicht-Standard-Ereignissen ’ŽȱŽ›§‘›ȱ–Š—ȱû‹Ž›‘Šž™ǰȱû›ȱ Ž•Œ‘Žȱ›Ž’—’œœŽȱ–Š—ȱ—‘Š•ŽȱŸ˜—ȱ›Ž’—’œ™›˜£ŽȬ ž›Ž—ȱ™›˜›Š––’Ž›Ž—ȱ”Š——ǵȱȱ ’ȱ Š—Ž›Ž—ȱ ˜›Ž—DZȱ û›ȱ  Ž•Œ‘Žȱ ž£Ž›Ž’— ’›”ž—Ž—ȱ Šžȱ Ž’—ȱ Ž’Ž—Ž•Ž–Ž—ȱ ’œȱ ’—ȱ Ž•™‘’ȱŽ’—ŽȱŽŠ”’˜—ȱ™›˜›Š––’Ž›‹Š›ǵȱȱ ’œ‘Ž›ȱ ’œœŽ—ȱ ’›ȱ˜Œ‘ȱ—ž›ǰȱ ’Žȱ ’›ȱŽ’—ŽȱŽŠ”’˜—ȱ‹Ž’–ȱ“Ž Ž’•’Ž—ȱŠ—Š›Ȭ›Ȭ Ž’—’œȱŽ›£ŽžŽ—ȱ”ã——Ž—ǯȱ

2.3.1

Reaktionen auf Mausbewegungen Šœȱ’œȱ£žȱž—ǰȱ Ž——ȱ ’›ȱ‹Ž’œ™’Ž•œ Ž’œŽȱŽ’—ŽȱŽŠ”’˜—ȱ™›˜›Š––’Ž›Ž—ȱ ˜••Ž—ǰȱ ’ŽȱœŠ’—Žǰȱ Ž——ȱŽ›ȱž£Ž›ȱ’ŽȱŠžœȱ•Ž’•’Œ‘ȱû‹Ž›ȱŽ’—Ž—ȱž˜—ȱ‹Ž Žǵȱȱ  Ž’ȱ›ŠŽ—ȱ–ûœœŽ—ȱŠ£žȱ‹ŽŠ— ˜›Žȱ Ž›Ž—DZȱ  ›œŽȱ ›ŠŽDZȱ ’‹ȱ Žœȱ û‹Ž›‘Šž™ȱ ’Žȱ 㐕’Œ‘”Ž’ȱ ’—ȱ Ž•™‘’ǰȱ £ž–ȱ ›Ž’—’œȱ Šžœ‹Ž Žž—ȱû‹Ž›ȱŽ’—Ž–ȱž˜—ȱŽ’—Žȱ›Ž’—’œ™›˜£Žž›ȱœŒ‘›Ž’‹Ž—ȱ£žȱ”ã—Ȭ —Ž—ǵȱȱ   Ž’Žȱ›ŠŽDZȱ’ŽȱŽ›‘§•ȱ–Š—ȱŠ——ȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ǵȱȱ Ž’Žȱ— ˜›Ž—ȱœ’—ȱ—’Œ‘ȱœŒ‘ ’Ž›’ȱ£žȱŽ›‘Š•Ž—DZȱȱ ŠŒ‘Ž–ȱ ’›ȱŽ’—Ž—ȱž˜—ȱŠžȱŽ–ȱ˜›–ž•Š›ȱ™•Š£’Ž›ȱ‘Š‹Ž—ȱǻ£ǯȱǯȱ–’ȱŽ›ȱŽȬ œŒ‘›’ž—ȱ NORD ȱǼǰȱ §‘•Ž—ȱ ’›ȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱŠœȱ›ŽŒ‘ŽȱŽ’œŽ›‹•Šȱ–’ȱŽ›ȱ t‹Ž›œŒ‘›’ȱ ȱŠžœǯȱȱ —ȱŠȱ’œȱœ’ŽȱœŒ‘˜—ǰȱ’Žȱ’œŽȱŠ••Ž›ȱ’—ȱŽ•™‘’ȱ‹Ž‘Š—Ž•‹Š›Ž—ȱž˜—Ȭ›Ž’—’œœŽǰȱǯ!!‘ǯȱ ’Žȱ’œŽȱŠ••Ž›ȱ›Ž—ȱŸ˜—ȱž£Ž›Ž’— ’›”ž—Ž—ȱŠ–ȱž˜—ǰȱû›ȱ’Žȱ ’›ȱ’—ȱŽ•™‘’ȱŽȬ Š”’˜—Ž—ȱ ™›˜›Š––’Ž›Ž—ȱ ”ã——Ž—ǯȱ t‹Ž›ȱ ’Žȱ ›ŽŒ‘Žȱ ŠžœŠœŽȱ •§œœȱ œ’Œ‘ȱ ’Žȱ —Ȭ ˜›—ž—ȱŽ— ŽŽ›ȱŠ•™‘Š‹Ž’œŒ‘ȱ˜Ž›ȱ—ŠŒ‘ȱ ŠŽ˜›’Ž—ȱŽ˜›—ŽȱŠ—£Ž’Ž—ȱǻœ’Ž‘Žȱ’•ȱ ŘǯŗŖǼǯȱȱ —ȱ ’—ȱ ’ŽœŽ–ȱ ’•ȱ ”ã——Ž—ȱ  ’›ȱ Ž›”Ž——Ž—DZȱ Ž’ȱ –Ž‘›ȱ Š•œȱ Ž’—ȱ ž£Ž—ȱ ›Ž’Ȭ —’œœŽȱ Š–ȱ ž˜—ȱ œ’—ȱ ‹Ž‘Š—Ž•‹Š›Dzȱ û›ȱ œ’Žȱ ”ã——Ž—ȱ  ’›ȱ ˜••’Œ‘ȱ ›Ž’—’œ™›˜£ŽȬ ž›Ž—ȱŸ˜›‹Ž›Ž’Ž—ǯȱ’—ŽœȱŠŸ˜—ȱ’œȱŠœȱ‹Ž”Š——ŽȱŠ—Š›Ȭ›Ž’—’œȱ •’Œ”ǰȱŠœȱœ’Œ‘ȱ —Šû›•’Œ‘ȱŠžŒ‘ȱ’—ȱŽ›ȱ’œŽȱ‹Ž’—Žǯȱȱ

Řǯřȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ

řş

˜••’Œ‘ȱ ’‹ȱ Žœȱ ‹Ž’–ȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”ȱ ž˜—ȱ Ž’—Žȱ û••Žȱ ‹Ž‘Š—Ž•‹Š›Ž›ȱ ’Œ‘Ȭ Š—Š›Ȭ›Ž’—’œœŽǯȱȱ ˜‘•Ž–Ž›”DZȱ ’ŽœŽȱ žœœŠŽȱ ‹Ž£’Ž‘ȱ œ’Œ‘ȱ Šžȱ Šœȱ Š”žŽ••Žȱ Ž•™‘’ǰȱ ’—ȱ Š—Ž›Ž—ȱ — ’Œ”•ž—œœ¢œŽ–Ž—ȱ–’ȱ§‘—•’Œ‘Ž–ȱž‹Šžȱ”Š——ȱŽœȱž›Œ‘Šžœȱ Ž—’Ž›ȱ˜Ž›ȱ –Ž‘›ȱ‹Ž‘Š—Ž•‹Š›Žȱ›Ž’—’œœŽȱŽ‹Ž—ǯȱžŒ‘ȱ”ã——Ž—ȱ”û—’ŽȱŽ•™‘’ȬŽ›œ’˜—Ž—ȱ ž›Œ‘Šžœȱ–’ȱ•§—Ž›Ž—ȱ’œŽ—ȱŸŽ›œŽ‘Ž—ȱœŽ’—ǯȱȱ ŽŽœȱ ›Ž’—’œȱ ‹Ž’——ȱ –’ȱ Ž—ȱ £ Ž’ȱ žŒ‘œŠ‹Ž—ȱ Onȱ Ȯȱ ’—œȱ ŽžœŒ‘Žȱ Š–ȱ ‹ŽœŽ—ȱ û‹Ž›œŽ£‹Š›ȱ–’ȱbeiǯȱ —ȱŽ›ȱŽ’—Ž›ȱŽ’•ŽȱŽ›”Ž——Ž—ȱ ’›ȱŠœȱ›Ž’—’œȱ OnMouseMoveǯȱžȱŽžœŒ‘DZȱŽ’ȬŠžœȬ Ž Žž—ǯȱŠȱ‘Š‹Ž—ȱ ’›ȱŽœȱ˜Œ‘ǰȱ ˜—ŠŒ‘ȱ ’›ȱœžŒ‘Ž—ǯȱȱ ˜••’Œ‘ȱ’œȱ’ŽȱŽ›œŽȱ›ŠŽȱ‹ŽŠ— ˜›ŽDZȱ’›ȱ”ã——Ž—ȱž›Œ‘ŠžœȱŠžŒ‘ȱ£ž–ȱ›Ž’Ȭ —’œȱŠžœ‹Ž Žž—ȱû‹Ž›ȱŽ–ȱž˜—ȱŽ’—Žȱ›Ž’—’œ™›˜£Žž›ȱœŒ‘›Ž’‹Ž—ǯȱȱ

ȱȱȱ ’•ȱŘǯŗŖDZȱ‹“Ž”’—œ™Ž”˜›ȱŽœȱž˜—œǰȱŽ’œŽ›‹•Šȱ ȱ Š£žȱ §‘•Ž—ȱ ’›ȱ’—ȱŽ›ȱ’œŽȱŠ••Ž›ȱ‹Ž‘Š—Ž•‹Š›Ž—ȱ›Ž’—’œœŽȱŠœȱ›Ž’—’œȱOnMouseMoveȱŠžœǯȱŠ——ȱ㏏—Žȱœ’Œ‘ȱ›ŽŒ‘œȱŽ’—ȱ•ŽŽ›Žœȱ Ž’đŽœȱŽ•ȱǻ’•ȱŘǯŗŗǼǯȱȱ

ȱȱȱ ’•ȱŘǯŗŗDZȱžœ Š‘•ȱŽœȱŽ û—œŒ‘Ž—ȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽœȱȱ

ŚŖ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 2ȱȱ’ŽȱzipȬŠŽ’ȱ DKap02.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap02 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_231.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap02 ȱ’ŽȱŠŽ’ȱproj_231.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

Ž’Ž›ȱ Ž‘ȱ Žœȱ œŒ‘•’Žđ•’Œ‘ȱ–’ȱ Ž’—Ž–ȱ œŒ‘—Ž••Ž—ȱ ˜™™Ž•”•’Œ”ȱ ’—ȱ ’ŽœŽœȱ •ŽŽ›Žȱ  Ž’đŽȱ Ž•ȱ Ȯȱ ž—ȱ œŒ‘˜—ȱ ㏏—Žȱ œ’Œ‘ȱ  ’ŽŽ›ȱ  ’Žȱ ‹Ž’ȱ Ž—ȱ Š—Š›Ȭ›Ž’—’œœŽ—ȱ Šœȱ žŽ••Ž¡Ž—œŽ›ȱ–’ȱŽ–ȱŠ‘–Ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ǯȱŠ–’ȱ’œȱŠžŒ‘ȱ’Žȱ£ Ž’Žȱ ›ŠŽȱ‹ŽŠ— ˜›Žǯȱ —ȱŽ›ȱ˜‹Ž›œŽ—ȱ ˜™£Ž’•ŽȱŽœȱŠ‘–Ž—œȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ•’Žœȱ–Š—ȱ›ŽŒ‘œȱŸ˜–ȱ ž—”ȱ ’Žȱ Ž’Œ‘Ž—˜•Žȱ ž˜—ŗ˜žœŽ˜ŸŽǰȱ Žœȱ ‘Š—Ž•ȱ œ’Œ‘ȱ Šœ§Œ‘•’Œ‘ȱ ž–ȱ Ž—ȱ Š‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ›Ž’—’œȱŠžœ‹Ž Žž—ȱû‹Ž›ȱŽ–ȱž˜—ǯȱ û›ȱ Ž—ȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ  ˜••Ž—ȱ  ’›ȱ Ÿ˜›Ž›œȱ  ’ŽŽ›ȱ —ž›ȱ Ž’—Žȱ Ž’—ŠŒ‘Žȱ ’Ž’•ž—ȱ §‘•Ž—ǯȱȱ procedure TForm1.Button1MouseMove( Sender:TObject; Shift:TShiftState; X,Y:Integer ); begin ShowMessage('Der Mauszeiger bewegt sich über dem Button NORD') //Inhalt end;

Š‹Ž’ȱ’œȱ’Žȱ•Š—Žȱ ˜™£Ž’•Žȱ‘’Ž›ȱŠžœȱœŒ‘›Ž’‹ŽŒ‘—’œŒ‘Ž—ȱ ›û—Ž—ȱ£Ž›•Žȱ ˜›Ȭ Ž—Dzȱ ’–ȱ Ž’Ž—•’Œ‘Ž—ȱ Ž•™‘’ȬžŽ••Ž¡Ž—œŽ›ȱ ’œȱ Šœȱ —’Œ‘ȱ —㝒ǯȱ ž›ȱ t‹ž—ȱ ”ã——Ž—ȱ Ž’Ž›Žȱ›Ž’ȱž˜—œȱ–’ȱŽ—ȱŽœŒ‘›’ž—Ž—ȱȱ OST ǰȱȱ WEST ȱž—ȱȱ SÜD ȱŠ—ȱ Ž—ȱ Ž—œ™›ŽŒ‘Ž—Ž—ȱ Ž••Ž—ǰȱ Ž Šœȱ Ž—Ž›—ȱ Ÿ˜—Ž’—Š—Ž›ǰȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ ™•Š£’Ž›ȱ  Ž›Ž—ǯȱ žȱ “ŽŽ–ȱ ž˜—ȱ  ’›ȱ Š——ȱ û›ȱ Šœȱ ›Ž’—’œȱ Šžœ‹Ž Žž—ȱ Ž›ȱŠ‘–Ž—ȱŽ›ȱ£žŽ‘ã›’Ž—ȱ›Ž’—’œ™›˜£Žž›ȱ‹ŽœŒ‘Šǰȱž—ȱŠ—œŒ‘•’ŽđŽ—ȱ ’›ȱ“ŽȬ  Ž’•œȱ’Žȱ™ŠœœŽ—Žȱ’Ž’•ž—ȱ™›˜›Š––’Ž›ǯȱȱ Šœȱ ’œȱ Š‹Ž›ǰȱ  Ž——ȱ œ’Œ‘ȱ Ž›ȱ Šž£Ž’Ž›ȱ —’Œ‘ȱ û‹Ž›ȱ Ž’—Ž–ȱ Ž›ȱ ž˜—œȱ ‹Ž’—Žǵȱ Š——ȱȮȱ•˜’œŒ‘ȱȮȱ‹Ž’—ŽȱŽ›ȱœ’Œ‘ȱû‹Ž›ȱŽ–ȱ˜›–ž•Š›ǯȱ’Žȱ’œŽȱŽ›ȱ˜›–ž•Š›Ȭ›Ȭ Ž’—’œœŽǰȱ £žȱ Ž—Ž—ȱ Ž’—Žȱ ›Ž’—’œ™›˜£Žž›ȱ ŽœŒ‘›’Ž‹Ž—ȱ  Ž›Ž—ȱ ”Š——ǰȱ ’œȱ •Š—ǰȱ œŽ‘›ȱ •Š—ǯȱ Ž‘›ȱ Š•œȱ ›Ž’đ’ȱ ’—›§Žȱ ž–Šœœȱ œ’ŽDzȱ —Šû›•’Œ‘ȱ ‹Ž’—Žȱ œ’Œ‘ȱ ŠžŒ‘ȱ Ž›ȱ’—›ŠȱOnMouseMoveȱ’—ȱ’ŽœŽ›ȱ’œŽǯȱŽ›ȱ“Ž˜Œ‘ȱŠžȱ’Žȱ•˜’œŒ‘ŽȱŽŽȱ”˜––ǰȱ ˜••’Œ‘ȱ Ž’—Žȱ û—Žȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ ›Ž’—’œȱ Šžœ‹Ž Žž—ȱ û‹Ž›ȱ Ž–ȱ ˜›–ž•Š›ȱ £žȱ ™›˜›Š––’Ž›Ž—ǰȱ Ž›ȱ  ’›ȱ Ž’—œ Ž’•Ž—ȱ Ÿ’Ž•ȱ ›Ž›ȱ ‹Ž”˜––Ž—ǯȱ ŠȬ ›ž–ǵȱȱ

Řǯřȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ

Śŗ

ž—ǰȱŠœȱ’Ž’•ž—œŽ—œŽ›ǰȱŠœȱ–’ȱŽ–ȱž›žȱŽ›ȱ›˜£Žž›ȱShowMessageȱŠ—ŽȬ ˜›Ž›ȱ ’›ǰȱȱ ’›ȱŸ˜—ȱŽ•™‘’ȱœŽœȱ’—ȱŽ›ȱ’ŽȱŽœȱ’•œŒ‘’›–œȱŽã—ŽǰȱŠ•œ˜ȱ û‹Ž›ȱŽ–ȱ˜›–ž•Š›ǯȱȱ Ž——ȱ–Š—ȱ’ŽœŽȱ’Ž’•ž—ȱ–’ȱ OK ȱ‹Žœ§’ȱž—ȱŠœȱ’Ž’•ž—œŽ—œŽ›ȱŸŽ›Ȭ œŒ‘ ’—Žȱ Ȯȱ  ˜ȱ ‹Ž’—Žȱ œ’Œ‘ȱ Š——ȱ Ž›ȱ Šžœ£Ž’Ž›ǵȱ Šû›•’Œ‘ȱ Ȯȱ  ’ŽŽ›ȱ û‹Ž›ȱ Ž–ȱ ˜›–ž•Š›ǯȱ Šœȱ ’Ž’•ž—œŽ—œŽ›ȱ Ž›œŒ‘Ž’—ȱ ž—ŸŽ›£û•’Œ‘ȱ  ’ŽŽ›ȱ ž—ȱ œ˜ȱ  Ž’Ž›ǯȱȱ Š—ȱ”˜––ȱŠžœȱŽ–ȱŽžŽ•œ”›Ž’œȱ—ž›ȱ‘Ž›Šžœǰȱ Ž——ȱŠœȱ’Ž’•ž—œŽ—œŽ›ȱŸ˜›ȱ Ž–ȱ Œ‘•’ŽđŽ—ȱ Ÿ˜›œ’Œ‘’ȱ Š—£ȱ Š—ȱ Ž—ȱ ˜‹Ž›Ž—ȱ Š—ȱ Žœȱ ’•œŒ‘’›–œȱ Ž£˜Ž—ȱ  ’›ǯȱ’—ȱœŒ‘ã—Ž›ȱŽ”ǰȱŠžœȱŽ–ȱ–Š—ȱŸ’Ž•ȱ•Ž›—Ž—ȱ”Š——ǯȱ û›ȱ’Žȱ‹Ž’Ž—ȱŠ—Ž›Ž—ȱ‹Ž‘Š—Ž•‹Š›Ž—ȱŠžœŽ›Ž’—’œœŽȱ–’ȱŽ—ȱŽ£Ž’Œ‘—ž—Ž—ȱ OnMouseDownȱ ž—ȱ OnMouseUpȱ ”ã——Ž—ȱ  ’›ȱ Ž‹Ž—œ˜ȱ ’—Ž›ŽœœŠ—Žȱ ŽŠ”’˜—Ž—ȱ ™›˜Ȭ ›Š––’Ž›Ž—ǯȱȱ t‹Ž›œŽ£Ž—ȱ ’›ȱ’Žȱ‹Ž’Ž—ȱŽ—•’œŒ‘Ž—ȱ˜”Š‹Ž•—ȱ’—ȱ’ŽȱŽžœŒ‘Žȱ™›ŠŒ‘ŽDZȱȱ  OnMouseDownȱ ƽȱ Ž’–ȱ ž—Ž››ûŒ”Ž—ȱ Ž›ȱ •’—”Ž—ȱ ŠžœŠœŽǰȱ  §‘›Ž—ȱ œ’Œ‘ȱ Ž›ȱ Šžœ£Ž’Ž›ȱû‹Ž›ȱŽ–ȱŽ’Ž—Ž•Ž–Ž—ȱ˜Ž›ȱŽ–ȱ˜›–ž•Š›ȱ‹Ž’—Žǯȱȱ  OnMouseUpȱƽȱŽ’–ȱ˜œ•ŠœœŽ—ȱŽ›ȱ•’—”Ž—ȱŠžœŠœŽǰȱ §‘›Ž—ȱœ’Œ‘ȱŽ›ȱŠžœ£Ž’Ž›ȱ û‹Ž›ȱŽ–ȱŽ’Ž—Ž•Ž–Ž—ȱ˜Ž›ȱŽ–ȱ˜›–ž•Š›ȱ‹Ž’—Žǯȱȱȱȱ ȱ

2.3.2

Reaktionen auf Tastendruck ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱ!!!!Dateien für Kapitel 2ȱȱ’ŽȱzipȬŠŽ’ȱ DKap02.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap02 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_232.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap02 ȱ’ŽȱŠŽ’ȱproj_232.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž›ŠŒ‘Ž—ȱ ’›ȱŽ’—ȱ˜›–ž•Š›ȱ–’ȱŽ’—Ž–ȱŠ›Šžȱ‹Ž’—•’Œ‘Ž—ȱŽ¡Ž—œŽ›ȱǻEditǼǰȱ’—ȱ Šœȱ Ž›ȱ ž£Ž›ȱ œŽ•‹œȱ Ž Šœȱ Ž’—›ŠŽ—ȱ ”Š——ȱ ˜Ž›ȱ ’—ȱ Ž–ȱ Ž›ȱ Ž’—Žȱ Ÿ˜›‘Š—Ž—Žȱ ’—›Šž—ȱŸŽ›§—Ž›—ȱ”Š——ǯȱŠœȱ›Ž’—’œȱ —Ž›ž—ȱ’œȱŠœȱŠ—Š›Ȭ›Ž’—’œȱŠ–ȱ Ž’Ž—Ž•Ž–Ž—ȱŽ¡Ž—œŽ›ǰȱ ’›ȱ‘Š‹Ž—ȱŽœȱ’–ȱ‹œŒ‘—’ȱŘǯŘǯŘȱœŒ‘˜—ȱ”Ž——Ž—ȱŽ•Ž›—ǯȱȱ ’›ȱœŽ••Ž—ȱž—œȱ’Žȱ›ŠŽDZȱû›ȱ ’ŽȱŸ’Ž•Žȱž—ȱ Ž•Œ‘Žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽȱŠ–ȱ Ž¡Ž—œŽ›ȱ”ã——Ž—ȱ ’›ȱŽŠ”’˜—Ž—ȱ™›˜›Š––’Ž›Ž—ǵȱȱ —ȱŽ›ȱŽ’œŽ›”Š›Žȱ ȱœ’—ȱ ’ŽŽ›ž–ȱŸ’Ž•Žȱ’—›§ŽȱŽ—‘Š•Ž—ǯȱû›ȱ’Žȱ ž£Ž›Ž’— ’›”ž—ȱ ŠœŽȱ  ž›Žȱ Ž›ûŒ”ǰȱ Šžȱ Ž—•’œŒ‘ȱ OnKeyPressǰȱ ’œȱ ‹Ž›Ž’œȱ Ž›ȱ Š‘–Ž—ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ Š—Ž˜›Ž›ȱ  ˜›Ž—ȱ Ȯȱ ’—ȱ ’•ȱ ŘǯŗŘȱ Ž›”Ž——‹Š›ȱ Š—ȱ Ž–ȱ’—›Šȱ’—ȱŽ–ȱ Ž’đŽ—ȱŽ•ȱ—Ž‹Ž—ȱOnKeyPressǯȱ

ŚŘ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

Ž›ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ‹ŽœŽ‘ȱ ’ŽŽ›ȱŸ˜›Ž›œȱ—ž›ȱŠžœȱŽ–ȱŽ’—ŠŒ‘Ž—ȱ ž›žȱ Ž›ȱ ›˜£Žž›ȱ ShowMessageǰȱ –’ȱ Ž–ȱ Ž›ȱ ž£Ž›ȱ û‹Ž›ȱ Šœȱ ’—›ŽŽ—ȱ Žœȱ ›Ž’—’œœŽœȱ’—˜›–’Ž›ȱ ’›ǯȱȱ procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin ShowMessage('Eine Taste wurde gedrückt') end;

Ž›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱŽœŽǰȱ ’›ȱŽ›œŠž—ȱŽœœŽ••Ž—ǰȱŠœœȱ”Ž’—ŽœŠ••œȱ“ŽŽ›ȱ ŠœŽ—›žŒ”ȱ’Žȱ™›˜›Š––’Ž›ŽȱŽŠ”’˜—ȱ‘Ž›Ÿ˜››žǯȱȱ

ȱȱ ’•ȱŘǯŗŘDZȱ›Ž’—’œœŽȱŠ–ȱŽ¡Ž—œŽ›ȱ ŽŽ›ȱŠžȱ’ŽȱȱShiftȱȬŠœŽȱ—˜Œ‘ȱŠžȱ’ŽȱŠœŽȱȱ Strgȱȱ—˜Œ‘ȱŠžȱ’Žȱž—”’˜—œŠœȬ Ž—ȱȱF1ȱȱ‹’œȱ F12 ȱ’‹ȱŽœȱŽ’—ŽȱŽŠ”’˜—ǯȱȱ œȱŠœȱœŒ‘•ŽŒ‘ǵȱ’Œ‘Ž›ȱ—’Œ‘ǰȱŽ——ȱœ˜—œȱ”ã——Žȱ“ŽŽ›ȱ›˜›Š––’Ž›Ž›ȱ–’Ž•œȱŽ’Ȭ —Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ ’ŽœŽȱ  ’Œ‘’Ž—ȱ ŠœŽ—ǰȱ ’Žȱ û›ȱ ’Žȱ ›‹Ž’ȱ Žœȱ Ž›’Ž‹œœ¢œȬ Ž–œȱ ž—ŸŽ›£’Œ‘‹Š›ȱ œ’—ǰȱ Ž’—ŠŒ‘ȱ ŠžđŽ›ȱ Ž›’Ž‹ȱ —Ž‘–Ž—ȱ ˜Ž›ȱ ’—ȱ ’‘›Ž›ȱ ’›”ž—ȱ ŸŽ›§•œŒ‘Ž—ǯȱ û›ȱ’Žȱ‹Ž’Ž—ȱŠ—Ž›Ž—ȱŠœŠž›Ȭ›Ž’—’œœŽȱȱ  OnKeyDownȱƽȱŽ’ȱ‘Ž›ž—Ž›Ž›ûŒ”Ž›ȱŠœŽȱ  OnKeyUpȱƽȱŽ’ȱ•˜œŽ•ŠœœŽ—Ž›ȱŠœŽȱ  Ž›Ž—ȱ  ’›ȱ œ™§Ž›ȱ Ÿ’Ž••Ž’Œ‘ȱ ’—Ž›ŽœœŠ—Žȱ — Ž—ž—Ž—ȱ ’—Ž—Dzȱ ’‘›Žȱ ž£ž—ȱ ’–ȱžœŠ––Ž—‘Š—ȱ–’ȱŽ›ȱ›˜£Žž›ȱShowMessageȱ’œȱ—’Œ‘ȱû—œ’ǯȱȱ ȱ

2.3.3

Fokus-Ereignisse ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 2ȱȱ’ŽȱzipȬŠŽ’ȱ DKap02.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap02 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_233.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

ȱ

D8Kap02 ȱ’ŽȱŠŽ’ȱproj_233.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

Řǯřȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ

Śř

ŽŸ˜›ȱ  ’›ȱ ž—œȱ Ž—ȱ ‹Ž’Ž—ȱ ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ OnEnterȱ ž—ȱ OnExitȱ £žȬ  Ž—Ž—ǰȱ’Žȱû›ȱ“ŽŽœȱŽ’Ž—Ž•Ž–Ž—ȱ‹Ž‘Š—Ž•‹Š›ȱœ’—ǰȱ–ûœœŽ—ȱ ’›ȱŽ›œȱŽ’—–Š•ȱ Ž—ȱ ’Œ‘’Ž—ȱŽ›’ȱŽœȱ˜”žœȱ”•§›Ž—ǯȱȱ ž›ȱ ••žœ›Š’˜—ȱ ™•Š£’Ž›Ž—ȱ  ’›ȱ Šžȱ Ž’—Ž–ȱ ˜›–ž•Š›ȱ û—ȱ Ž’Ž—Ž•Ž–Ž—Žǰȱ ž—ȱ  §‘•Ž—ȱŠ‹Ž’ǰȱž–ȱœ™§Ž›ȱŽ—ȱŽŒ‘œŽ•ȱŽœȱ˜”žœȱžȱ‹Ž˜‹ŠŒ‘Ž—ȱ£žȱ”ã——Ž—ǰȱŽ’Ȭ —ŽȱŠ—£ȱ‹Žœ’––ŽȱŽ’‘Ž—˜•ŽDZȱȱ žŽ›œȱ ”˜––ȱ —ŠŒ‘ȱ •’—”œȱ ˜‹Ž—ȱ ’Žȱ Œ‘Š••§Œ‘Žȱ Button1ǯȱ ŽŒ‘œȱ Š—Ž‹Ž—ȱ  ’›ȱ Šœȱ Ž¡Ž—œŽ›ȱEdit1ȱŠ—Ž˜›—Žǯȱȱ ›—ŽžŽ›ȱ ›’ȱ’—ȱ’Žȱ’œŽȱŽ›ȱŽ’Ž—Ž•Ž–Ž—Žǰȱž—ȱ•’—”œȱž—Ž—ȱ ’›ȱ Ž’Ž›ȱ’Žȱ  ŠŠŽ›ŽŒ‘Žȱ Scrollbar1ȱŠ—Ž˜›—ŽǯȱŽŒ‘œȱž—Ž—ȱ ’›ȱŠ—ŠŒ‘ȱŽ›ȱ Button2ȱ™•ŠȬ £’Ž›ǰȱž—ȱ£ž–ȱŒ‘•žœœȱ˜›—Ž—ȱ ’›ȱ›ŽŒ‘œȱ˜‹Ž—ȱ’Žȱ Checkbox1ȱŽ’—ǯȱ’Žȱ— ž›œȬ ™‘ŠœŽȱ ’œȱ ‹ŽŽ—Žǰȱ  ’›ȱ œ™Ž’Œ‘Ž›—ȱ Unitȱ ž—ȱ Projektȱ —ŠŒ‘Ž’—Š—Ž›ȱ œ˜ǰȱ  ’Žȱ Žœȱ ’—ȱ ‹œŒ‘—’ȱŗǯŘǯřȱ‹ŽœŒ‘›’Ž‹Ž—ȱ ž›Žǯȱȱ ’—ȱ •’Œ”ȱŠžȱ’ŽȱŒ‘Š••§Œ‘Žȱ–’ȱŽ–ȱ—ŠŒ‘ȱ›ŽŒ‘œȱŽ›’Œ‘ŽŽ—ȱ›Ž’ŽŒ”ȱ˜Ž›ȱŽ’—ȱ ›žŒ”ȱŠžȱ’ŽȱŠœŽȱ F9 ȱȮȱ’ŽȱŠž£Ž’ȱ‹Ž’——ǯȱȱ Ž‘Ž—ȱ ’›ȱ’—ȱ’•ȱŘǯŗřȱŽ—Šžȱ‘’—DZȱ–ȱ’ŽȱŽœŒ‘›’ž—ȱŸ˜—ȱButton1ȱ£’Ž‘ȱœ’Œ‘ȱŽ’Ȭ —ŽȱŽœ›’Œ‘Ž•Žȱ’—’ŽǯȱŠœȱ‹ŽŽžŽDZȱŽ›ȱŽ›œŽȱž˜—ȱ‹Žœ’£ȱŽ—ȱ˜”žœǯȱȱ ž—ȱœ˜••Ž—ȱ ’›ȱ’ŽȱŠžœȱ Ž•ŽŽ—ȱž—ȱ’ŽȱŠ‹ž•Š˜›ȬŠœŽȱŠžȱŽ›ȱŠœŠž›ȱœžȬ Œ‘Ž—ǯȱ’Žȱ‹Ž’—Žȱœ’Œ‘ȱŠ—£ȱ•’—”œȱž—ȱ’œȱ‹ŽœŒ‘›’Žȱ–’ȱ£ Ž’ȱû‹Ž›Ž’—Š—Ž›ȱ•’ŽȬ Ž—Ž—ǰȱŽ—ŽŽ—ŽœŽ£Ž—ȱŽ’•Ž—ǯȱȱ ’•ȱŘǯŗŚȱ£Ž’ȱž—œǰȱ Šœȱœ’Œ‘ȱ—ŠŒ‘ȱ›žŒ”ȱŠžȱ’ŽȱŠ‹ž•Š˜›ŠœŽȱ§—Ž›DZȱ’Žȱ’—’Žȱ ž–ȱ’ŽȱŽœŒ‘›’ž—ȱŸ˜—ȱ Button1ȱ’œȱŸŽ›œŒ‘ ž—Ž—ǰȱŽ›ȱ—‘Š•ȱŸ˜—ȱ Edit1ȱ’œȱŠȬ û›ȱ‹•Šžȱž—Ž›•Žǯȱ

ȱȱ ’•ȱŘǯŗřDZȱŽ›ȱž˜—ȱ˜‹Ž—ȱ•’—”œȱ‹Žœ’£ȱŽ—ȱ˜”žœȱ

ȱȱ ’•ȱŘǯŗŚDZȱŠœȱŽ¡Ž—œŽ›ȱ‹Žœ’£ȱŽ—ȱ˜”žœȱ ȱ

ŚŚ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

ȱ ’•ȱŘǯŗśDZȱ’ŽȱŒ›˜••‹Š›ȱ’œȱ—ž—ȱ˜”žœœ’Ž›ȱ

ȱȱ ’•ȱŘǯŗŜDZȱŽ›ȱž˜—ȱž—Ž—ȱ›ŽŒ‘œȱ‘ŠȱŽ—ȱ˜”žœȱȱ

ȱȱ ’•ȱŘǯŗŝDZȱ˜”žœœ’Ž›Žȱ‘ŽŒ”‹˜¡ȱ ’Žȱ—Ž›œŒ‘›’ȱŸ˜—ȱ’•ȱŘǯŗŚȱŽ›”•§›ȱŽœDZȱŽ›ȱ˜”žœǰȱǯȱ‘ǯȱ’ŽȱŠ›”’Ž›ž—ȱŽœ“ŽȬ —’Ž—ȱ Ž’Ž—Ž•Ž–Ž—œǰȱ Šœȱ Š”žŽ••ȱ ‹Ž’Ž—‹Š›ȱ ’œȱ ž—ȱ ž£Ž›Ž’—Š‹Ž—ȱ Ž—ŽŽ——Ž‘Ȭ –Ž—ȱ”Š——ǰȱ’œȱ£ž›ȱŽ¡‹˜¡ȱŽ Š—Ž›ǯȱȱ ˜‘’—ȱ Š—Ž›ȱŽ›ȱ˜”žœȱ‹Ž’–ȱ—§Œ‘œŽ—ȱ›žŒ”ȱŠžȱ’ŽȱŠ‹ž•Š˜›ŠœŽǵȱ’›ȱŽ›ȱ ˜‹Ž—ȱ  Ž’Ž› Š—Ž›—ȱ ˜Ž›ȱ  ’›ȱ Ž’—ȱ Š—Ž›Žœȱ Ž’Ž—Ž•Ž–Ž—ȱ ˜”žœœ’Ž›ǵȱ —ȱ ’•ȱ Řǯŗśȱ œŽ‘Ž—ȱ  ’›ȱ ’Žȱ — ˜›DZȱ ’Žȱ Œ›˜••‹Š›ȱ ‹Ž”˜––ȱ Ž—ȱ ˜”žœǯȱ Š›ž–ǵȱ ›’—Ȭ —Ž›—ȱ  ’›ȱ ž—œȱ Š—ȱ ’Žȱ Ž’‘Ž—˜•Žǰȱ ’—ȱ Ž›ȱ  ’›ȱ ’Žȱ Ž’Ž—Ž•Ž–Ž—Žȱ Šžȱ Ž–ȱ ˜›Ȭ –ž•Š›ȱ™•Š£’Ž›Ž—ǯȱ ’Ž›ȱ£Ž’ȱœ’Žȱœ’Œ‘ǯȱ Šœȱ ”˜––ȱ Š•œȱ §Œ‘œŽœǵȱ ›’——Ž›—ȱ  ’›ȱ ž—œȱ Ȯȱ Š—ŠŒ‘ȱ ‘ŠŽ—ȱ  ’›ȱ Ž—ȱ £ Ž’Ž—ȱ ž˜—ȱŠžȱŠœȱ˜›–ž•Š›ȱŽ£˜Ž—ǯȱ›—ŽžŽ›ȱ›žŒ”ȱŠžȱ’ŽȱŠ‹ž•Š˜›ŠœŽȱ˜”žœȬ œ’Ž›ȱ˜••’Œ‘ȱŽ—ȱ£ Ž’Ž—ȱž˜—ȱ›ŽŒ‘œȱž—Ž—ȱǻœ’Ž‘Žȱ’•ȱŘǯŗŜǼǯȱȱ •œȱ •Ž£Žœȱ ‘ŠŽ—ȱ  ’›ȱ ’Žȱ ‘ŽŒ”‹˜¡ȱ Š—Ž˜›—Žǰȱ Ž–—ŠŒ‘ȱ Ž›‘§•ȱ œ’Žǰȱ  ’Žȱ ’•ȱ Řǯŗŝȱ £Ž’ǰȱ Ž›œȱ ‹Ž’–ȱ •Ž£Ž—ȱ ›žŒ”ȱ Šžȱ ’Žȱ Š‹ž•Š˜›ŠœŽȱ Ž—ȱ ˜”žœǯȱ Ž›ȱ Žœȱ Šžœ™›˜‹’Ž›ǰȱŽ›ȱœŽ••ȱ—Šû›•’Œ‘ȱœ˜˜›ȱŽœǰȱŠœœȱ‹Ž’ȱŽ›—ŽžŽ–ȱ›žŒ”ȱŠžȱ’ŽȱŠȬ ‹ž•Š˜›ŠœŽȱŽ›ȱ˜”žœȱ ’ŽŽ›ȱ›Ž’‘ž–ȱ Š—Ž›ǯȱȱ Ž——ȱ Ž›ȱ ž£Ž›ȱ Ž—ȱ ˜”žœȱ Šžȱ Ž’—ȱ Ž’Ž—Ž•Ž–Ž—ȱ œŽ£ǰȱ  ’••ȱ Ž›ȱ Žœȱ Š—œŒ‘•’ŽȬ đŽ—ȱ‹Ž’Ž—Ž—ǯȱȱ

Řǯřȱȱ’—ŠŒ‘Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ£žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ

Śś

–ȱŽž•’Œ‘œŽ—ȱ ’›ȱŠœȱ‹Ž’ȱŽ’—Ž–ȱŽ¡Ž—œŽ›ǯȱ›œȱ ’›ȱ˜”žœœ’Ž›ȱȮȱ–’ȱŠȬ ‹ž•Š˜›ŠœŽȱ˜Ž›ȱŠžœȱ ’›ȱŽ’’Ž›ǰȱŽ’—Ž›ŠŽ—ȱ˜Ž›ȱŽ§—Ž›ȱ˜Ž›ȱŽ•ãœŒ‘ǯȱȱ ›‹Ž’ŽȱŽ›ȱž£Ž›ȱ–’ȱŽ›ȱŠžœǰȱŸŽ›‹’—ŽȱŽ›ȱ’–ȱŽŽ•Š••ȱŠœȱŽ£Ž—ȱŽœȱ˜”žœȱ œ˜˜›ȱ–’ȱŽ›ȱŽ’Ž—ž—DZȱ’—ȱŠžœ”•’Œ”ȱŠžȱŽ’—Ž—ȱž˜—ȱœŽ£ȱŽ—ȱ˜”žœȱŠžȱ’ŽȬ œŽ—ȱž˜—ǰȱ•Ž’Œ‘£Ž’’ȱŽ›˜•ȱ‹Ž›Ž’œȱŽ›ȱ •’Œ”ǯȱ’›ȱŠŽŽ—ȱŽ›ȱž˜—ȱ—’Œ‘ȱ –’ȱ Ž›ȱ Šžœǰȱ œ˜—Ž›—ȱ –’ȱ Ž›ȱ Š‹ž•Š˜›ȬŠœŽȱ ˜”žœœ’Ž›ȱ •ãœȱ Ž›œȱ ’Žȱ ŽŽ›ŠœŽȱ ˜Ž›ȱ—Ž›ȬŠœŽȱŽ—ȱ •’Œ”ȱŠžœǯȱȱ

ȱ ’•ȱŘǯŗŞDZȱ›Ž’—’œȱǮ˜”žœȱŽ›‘Š•Ž—ȃȱŽœȱŽ›œŽ—ȱž˜—ȱ žȱ “ŽŽ–ȱ Ž’Ž—Ž•Ž–Ž—ȱ ”Š——ȱ ŽœŽœŽ••ȱ  Ž›Ž—ǰȱ ˜‹ȱ Ž’—ȱ ž£Ž›ȱ Ž—ȱ ˜”žœȱ Šžȱ ’ŽœŽœȱŽ’Ž—Ž•Ž–Ž—ȱœŽ£ǯȱ’ŽœŽœȱ›Ž’—’œȱ‘Ž’đȱ‹Ž’ȱŽ•™‘’ȱ OnEnterȱȮȱŽœȱ’œȱ˜Ž—Ȭ œ’Œ‘•’Œ‘ȱž—Ž›ȱŽ›ȱ’œŽȱŽ›ȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽȱ£žȱœžŒ‘Ž—ǯȱȱ ŠœœŽ—ȱ ’›ȱž—œȱ£ž–ȱŽ’œ™’Ž•ȱ–’Ž•œȱŽ’—Ž›ȱ›Ž’—’œ™›˜£Žž›ȱ–’Ž’•Ž—ǰȱ Ž——ȱŽ›ȱ Ž›œŽȱž˜—ȱ–’ȱŽ–ȱŠ–Ž—ȱButton1ȱŽ—ȱ˜”žœȱŽ›‘§•ǯȱŠœȱ’œȱ£žȱž—ǵȱȱ –ȱ — ž›œ–˜žœȱ  ’›ȱ Button1ȱ ž—ȱ ’—ȱ Ž›ȱ Ž’œŽ›”Š›Žȱ  ȱ Žœȱ ‹Ȭ “Ž”’—œ™Ž”˜›œȱ ’›ȱŠœȱ›Ž’—’œȱOnEnterȱŠžœŽ §‘•ȱǻ’•ȱŘǯŗŞǼǯȱ ’—ȱ˜™™Ž•”•’Œ”ȱ’—ȱŠœȱ•ŽŽ›Žȱ Ž’đŽȱŽ•ǰȱž—ȱœŒ‘˜—ȱŽ›‘Š•Ž—ȱ ’›ȱŽ—ȱŠ‘–Ž—ȱû›ȱ ’ŽȱŽ—œ™›ŽŒ‘Ž—Žȱ›Ž’—’œ™›˜£Žž›ǰȱŽ—ȱ ’›ȱ ’Žȱ‹’œ‘Ž›ȱ—ž›ȱ–’ȱŽ’—Ž–ȱž›žȱŽ›ȱ ›˜£Žž›ȱShowMessageȱû••Ž—DZȱȱ procedure TForm1.Button1Enter(Sender: TObject); begin ShowMessage('Button1 hat den Fokus') end;

—ȱ •Ž’Œ‘Ž›ȱ Ž’œŽȱ ”ã——Ž—ȱ  ’›ȱ ž—œȱ —Šû›•’Œ‘ȱ –’ȱ Ž’—Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ ›Ȭ Ž’—’œȱ OnExitȱ ŠžŒ‘ȱ œŠŽ—ȱ •ŠœœŽ—ǰȱ  Ž——ȱ Ž’—ȱ Ž’Ž—Ž•Ž–Ž—ȱ Ž—ȱ ˜”žœȱ ŸŽ›•’Ž›ǯȱ ŽȬ ‘Ž—ȱ ’›ȱž—œȱ‹Ž’œ™’Ž•‘ŠȱŠžŒ‘ȱŠ£žȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱŠ—ǯȱȱ procedure TForm1.Button2Exit(Sender: TObject); begin ShowMessage('Button 2 verlor den Fokus') end;

ŚŜ

Řȱȱ‹“Ž”ǰȱ›Ž’—’œǰȱ›Ž’—’œ™›˜£Žž›ȱ

™§Ž›ǰȱ’–ȱ‹œŒ‘—’ȱŚǯŚǰȱ Ž›Ž—ȱ ’›ȱŽ›Š›’Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ—ž£Ž—ǰȱž–ȱ Ž—ȱž£Ž›ȱ‹Ž’–ȱŽ›œžŒ‘ȱ£žȱŽ›Š™™Ž—ǰȱŽ’—ŽȱŽ¡‹˜¡ȱ£žȱŸŽ›•ŠœœŽ—ǰȱ˜‘—ŽȱŠœœȱŽ›ȱ Š›’—ȱ’ŽȱŽ û—œŒ‘Žȱ—Š‹ŽȱŽ’—Ž›ŠŽ—ȱ‘Šǯȱȱ Ž——ȱ‹Ž’–ȱŽŒ‘œŽ•ȱ£žȱŽ’—Ž–ȱŠ—Ž›Ž—ȱŽ’Ž—Ž•Ž–Ž—ȱ›’ȱŽ›ŠŽȱŠœȱ ›Ž’—’œȱ ˜”žœŸŽ›•žœȱŽœȱŽ¡Ž—œŽ›œȱŽ’—ȱȮȱž—ȱŠœȱ”ã——Ž—ȱ ’›ȱ—ž—ȱ‹Ž‘Š—Ž•—ǯȱ’›ȱ Ž›Ȭ Ž—ȱŠ——ȱŽ—ȱž£Ž›ȱ£ž–ȱ”˜››Ž”Ž—ȱ’—›Šȱ£ ’—Ž—ǰȱ’—Ž–ȱ ’›ȱ’‘–ȱŽ’—ŽȱŽ—Ȭ œ™›ŽŒ‘Ž—Žȱ’Ž’•ž—ȱ£ž”˜––Ž—ȱ•ŠœœŽ—ȱž—ȱŠ——ȱŽ—ȱ˜”žœȱ£ž›ûŒ”œŽ£Ž—ǯȱ

˜––Ž—ȱ ’›ȱ£ž–ȱŒ‘•žœœȱ’ŽœŽœȱ‹œŒ‘—’œȱ—˜Œ‘ȱŽ’—–Š•ȱ£ž›ȱŽ’‘Ž—˜•ŽȱŽ›ȱ˜Ȭ ”žœœ’Ž›ž—ȱ£ž›ûŒ”ǯȱ ’ŽœŽȱ Ž’‘Ž—˜•Žȱ ’œȱ Žœ‘Š•‹ȱ œ˜ȱ ‹ŽŽžœŠ–ǰȱ  Ž’•ȱ Žœȱ ’––Ž›ȱ —˜Œ‘ȱ ž—ȱ ’––Ž›ȱ  ’ŽŽ›ȱ ž£Ž›ȱ ’‹ǰȱ ’Žȱ –’ȱ ’•Žȱ Ž›ȱ Š‹ž•Š˜›ŠœŽȱ Ÿ˜—ȱ Ž’Ž—Ž•Ž–Ž—ȱ £žȱ ŽȬ ’Ž—Ž•Ž–Ž—ȱ ŽŒ‘œŽ•—ǰȱŸ˜›ȱŠ••Ž–ȱŠ——ǰȱ Ž——ȱŽœȱœ’Œ‘ȱž–ȱŽ¡Ž—œŽ›ȱ‘Š—Ž•ǰȱ’—ȱ ’ŽȱŽ ŠœȱŽ’—£ž›ŠŽ—ȱ’œȱ˜Ž›ȱ’—ȱŽ—Ž—ȱ’—›§Žȱ£žȱŸŽ›§—Ž›—ȱœ’—ǯȱȱ Ž——ȱ’ŽœŽȱ›ȱŽ›ȱŽ’Ž—ž—ȱŽ‘ȱ ŽœŽ—•’Œ‘ȱœŒ‘—Ž••Ž›ȱŠ•œȱŽ›ȱ ›’ȱ—ŠŒ‘ȱŽ›ȱ Šžœȱž—ȱŠœȱžŒ‘Ž—ȱ–’ȱŽ–ȱŠžœ£Ž’Ž›ǯȱȱ Ž—‹Š›ȱ Ž›Ž—ȱ’ŽȱŽ’Ž—Ž•Ž–Ž—ŽȱŠ‹Ž›ȱŸ˜—ȱŽ•™‘’ȱœ˜ȱ˜”žœœ’Ž›ǰȱ ’Žȱœ’ŽȱŠ—Ȭ Š—œȱŠžȱŽ–ȱ˜›–ž•Š›ȱ™•Š£’Ž›ȱ ž›Ž—ǯȱȱ Šœȱ ‹ŽŽžŽǰȱ Šœœȱ Šœȱ £ž•Ž£ȱ Ž’—ŽûŽȱ Ž’Ž—Ž•Ž–Ž—ȱ ŠžŒ‘ȱ £ž•Ž£ȱ ˜”žœœ’Ž›ȱ  ’›ǰȱœŽ•‹œȱ Ž——ȱŽœȱ˜‹Ž—ȱ•’—”œȱœŽ‘Ž—ȱœ˜••Žǯȱ ’ȱȱȱ  ȱ•§œœȱœ’Œ‘ȱŠœȱ“Ž˜Œ‘ȱ™›˜‹•Ž–•˜œȱ§—Ȭ Ž›—ǰȱ ’Žȱ’—ȱ’•ȱŘǯŗşȱŽ›”Ž——‹Š›ȱ’œǯȱ

ȱȱȱȱ ’•ȱŘǯŗşDZȱŽ’‘Ž—˜•ŽȱŽ›ȱ˜”žœœ’Ž›ž—ȱŸŽ›§—Ž›—ȱ ȱȱ

ȱ

3

Weitere Bedienelemente ŠŒ‘Ž–ȱ Šœȱ Ÿ˜›’Žȱ Š™’Ž•ȱ Š—ȱ Ž—ȱ Š—ȱ Žœȱ ‘Ž˜›Ž’œŒ‘Ž—ȱ ”Š–ȱ –’ȱ œŽ’—Ž—ȱ Ÿ’Ž•Ž—ȱ—ŽžŽ—ȱŽ›’Ž—ǰȱ ˜••Ž—ȱ ’›ȱŽ’—Žȱ”ž›£ŽȱŽ’œ’Žȱž‘Ž™ŠžœŽȱŽ’—•ŽŽ—ǯȱȱ ‹Ž›ȱ Š›ȱŽœȱŽ——ȱ ’›”•’Œ‘ȱœ˜ȱœŒ‘•’––ǵȱŽ——ȱŽ’—ŽȱŽ—ž£Ž›˜‹Ž›•§Œ‘ŽȱŽ— ˜›Ž—ȱ ž—ȱ œŒ‘ã—ȱ ŽœŠ•Žȱ ’œǰȱ ”Š——ȱ ˜Œ‘ȱ ’Žȱ —§Œ‘œŽȱ ›‹Ž’œŽŠ™™Žȱ —ž›ȱ Š›’—ȱ ‹ŽœŽȬ ‘Ž—ǰȱŠœœȱ–Š—ȱ’ŽȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱ–’ȱŽ‹Ž—ȱŽ›û••ǯȱŠœȱ‘Ž’đǰȱŠœœȱ–Š—ȱœ’Œ‘ȱ û‹Ž›•Žǰȱ ‹Ž’ȱ  Ž•Œ‘Ž›ȱ ž£Ž›Ž’— ’›”ž—ȱ Š—ȱ  Ž•Œ‘Ž–ȱ Ž’Ž—Ž•Ž–Ž—ȱ  Ž•Œ‘Žȱ ŽŠ”’˜—ȱ Ž›˜•Ž—ȱœ˜••ǯȱȱ ›Ž’ȱ›ŠŽ—ȱ˜ȱȮȱ˜‹Ž’ȱȮȱŠœȱœ˜••Žȱ–Š—ȱœ’Œ‘ȱŽœ‘Š•‹ȱ’––Ž›ȱœŽ••Ž—DZȱȱ  ˜DZȱ Ž•Œ‘Žœȱ Ž’Ž—Ž•Ž–Ž—ȱ œ˜••ȱ û‹Ž›‘Šž™ȱ žœŠ—œ™ž—”ȱ û›ȱ Ž’—Žȱ ŽŠ”’˜—ȱ œŽ’—ǵȱ˜••ȱŽ Šœȱ™Šœœ’Ž›Ž—ǰȱ Ž——ȱŽ›ȱž£Ž›ȱœ’Œ‘ȱ–’ȱŽ–ȱž˜—ȱ‹ŽœŒ‘§’ȱ ˜Ž›ȱ Ž——ȱŽ›ȱ’–ȱŽ¡Ž—œŽ›ȱ§—Ž›ȱ˜Ž›ȱ Ž——ȱŽ›ȱ–’ȱŽ–ȱŠžœ£Ž’Ž›ȱŠ–ȱ Œ‘’Ž‹Ž›Ž•Ž›ȱ‘Š—’Ž›ȱ˜Ž›ȱǯǯǯȱ˜Ž›ȱǯǯǯȱ˜Ž›ȱǵȱȱ  ˜‹Ž’DZȱŽ•Œ‘Žȱž£Ž›Ž’— ’›”ž—ȱœ˜••ȱŽ’—ŽȱŽŠ”’˜—ȱ‘Ž›Ÿ˜››žŽ—ǵȱœȱŽœȱŠœȱû‹•’Ȭ Œ‘ŽȱŠ—Š›Ȭ›Ž’—’œǰȱŠžȱŠœȱ ’›ȱŽ’—Žȱ— ˜›ȱ’—Ž—ȱœ˜••Ž—ǰȱŽ›ȱ •’Œ”ǰȱ’Žȱ —Ž›ž—ȱȮȱ˜Ž›ȱ ˜••Ž—ȱ ’›ǰȱŠœœȱ‹Ž’ȱŽ¡˜’œŒ‘Ž—ȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ ǻ£ǯȱǯȱŠžœ‹Ž Žž—ǰȱ˜”žœŸŽ›•žœǰȱŠœŽȱ”˜––ȱ‘˜Œ‘ǼȱŽ Šœȱ™Šœœ’Ž›ǵȱ  ŠœDZȱ ’Žȱ œ˜••ȱ ’Žȱ ŽŠ”’˜—ȱ Š——ȱ ŠžœœŽ‘Ž—ǵȱ ’Ž›ȱ œ’—ȱ  ’›ȱ Ž›œȱ Š–ȱ —Š—ǰȱ ‹’œ‘Ž›ȱ”ã——Ž—ȱ ’›ȱŠ•œȱŽ’—£’ŽȱŽŠ”’˜—ȱ—ž›ȱ’Žȱ ShowMessageȬ›˜£Žž›ȱŠž›žȬ Ž—ǯȱŽ–ȱ Šœȱ Ž›Ž—ȱ ’›ȱ—˜Œ‘ȱŸ’Ž•Žȱ Š™’Ž•ȱ ’–Ž—ǯȱ —ȱ Ž’•ȱŠžŒ‘ȱŠœȱ›ž—•ŽŽ—Žȱ˜›–ž•Š›ǰȱŠžȱŽ–ȱ’ŽȱŽ’Ž—Ž•Ž–Ž—ŽȱŠ—ŽȬ ˜›—Žȱ Ž›Ž—ǰȱœŽ•‹œȱ£ž–ȱžœŠ—œ™ž—”ȱû›ȱŽŠ”’˜—Ž—ȱ Ž›Ž—ȱ”Š——ǰȱ–žœœȬ Ž—ȱ ’›ȱž—œȱŸ˜–ȱŽ—Ž—ȱŽ›’ȱŽœȱŽ’Ž—Ž•Ž–Ž—œȱ•ãœŽ—ȱž—ȱŸ’Ž•–Ž‘›ȱŸ˜–ȱœ’Œ‘Ȭ ‹Š›Ž—ȱŽ’•ȱŽ’—ŽœȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱœ™›ŽŒ‘Ž—ǯȱȱ Ž’Ž›ȱŽ›ž‘›Ž—ȱ ’›ȱŠ——ǰȱŠœœȱ’Žȱ‹ŽŠ‹œ’Œ‘’ŽȱŽŠ”’˜—ȱœŽœȱž›Œ‘ȱŽ—ȱŠ›ȱ Ž’—Ž›ȱ›Ž’—’œ™›˜£Žž›ȱŽ›˜•ǯȱ›Ž’—’œ™›˜£Žž›Ž—ȱ‹ŽœŽ‘Ž—ȱŠžœȱŠ‘–Ž—ȱž—ȱ—Ȭ ‘Š•ǯȱ—ȱŽ—ȱŠ‘–Ž—ȱȮȱŽ•™‘’ȱœŽ’ȱŠ—”ȱȮȱ‹Ž”˜––Ž—ȱ ’›ȱ’––Ž›ȱŽœŒ‘Ž—”ǯȱŠȱ ‹›ŠžŒ‘Ž—ȱ ’›ȱ˜Œ‘ȱ—ž›ȱ—˜Œ‘ȱ£žȱŽ›Š‘›Ž—ǰȱ ’Žȱ–Š—ȱ’ŽœŽœȱ ŽœŒ‘Ž—”ȱ‹ŽœŽ••DZȱ’—ȱ ˜™™Ž•”•’Œ”ȱŠ—ȱŽ›ȱ›’Œ‘’Ž—ȱŽ••Žȱ›Ž’Œ‘ǯȱ‘›•’Œ‘ǰȱ Š›ȱŠœȱ ’›”•’Œ‘ȱœ˜ȱœŒ‘ Ž›ǵȱȱȱ ž—ȱ Š‹Ž›ǰȱ  ’Žȱ Š—Ž”û—’ǰȱ £ž–ȱ Ž’œ’Ž—ȱ žœ›ž‘Ž—ȱ Ž’—ȱ ‘Š— Ž›”•’Œ‘Ž›ȱ ’—Ȭ œŒ‘ž‹DZȱȱ ’Žȱ™•Š£’Ž›ȱ–Š—ȱ’œŽ—ȱž—ȱŽ—ûœȱŠžȱŽ’—Ž–ȱ˜›–ž•Š›ȱž—ȱœŽ••ȱ’‘›ŽȱŠ›Ž’Ȭ Ž—œŒ‘ŠŽ—ȱŽ’—ǵȱȱ

ŚŞ

řȱȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ

3.1

Bedienelement Liste (ListBox) Ž——ȱ ’›ȱŽ’—Žȱǻžœ Š‘•ȬǼ’œŽȱǻListBoxǼȱŠžȱŠœȱ˜›–ž•Š›ȱ‹›’—Ž—ȱ ˜••Ž—ǰȱ–ûœȬ œŽ—ȱ ’›ȱ‹Ž’ȱŽ•™‘’ȱŝȱ’–ȱŽ’œŽ›‹•ŠȱȱŽ›ȱ ˜–™˜—Ž—Ž—™Š•ŽŽȱ’ŽȱŽ—Ȭ œ™›ŽŒ‘Ž—Žȱ Œ‘Š••§Œ‘Žȱ Šžœ §‘•Ž—ȱ ǻ’•ȱ řǯŗǼǰȱ ‹Ž’ȱ ž›‹˜ȱ Ž•™‘’ȱ ž—ȱ Ž•™‘’ȱ ŞȦŘŖŖśȦŘŖŖşȱ’—Ž—ȱ  ’›ȱ Šœȱ Ž—œ™›ŽŒ‘Ž—Žȱ ¢–‹˜•ȱ’—ȱ ŠŽ˜›’Žȱ ȱ Ž›ȱ ˜˜•ȬŠ•ŽŽDZȱȱȱ ȱȱȱ ’•ȱřǯŗDZȱ’œŽȱ’—ȱȱŽ•™‘’ȱŝȱ‹£ ǯȱž›‹˜ȱŽ•™‘’ȱȦŽ•™‘’ȱŞȦŘŖŖśȦŘŖŖşȱŠ—˜›Ž›—ȱ Š——ȱ  ’›ȱ Šœȱ Ž’Ž—Ž•Ž–Ž—ȱ ’œŽȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ ™•Š£’Ž›Dzȱ Žœȱ ‹Ž”˜––ȱ Ÿ˜—ȱŽ•™‘’ȱŽ—ȱŠ–Ž—ȱ ListBox1ǯȱ’Žȱ ›ãđŽȱ ’›ȱœ˜ȱŽ’—ŽœŽ••ǰȱŠđȱ’Žȱœ™§Ž›ȱ Ž û—œŒ‘Žȱ—£Š‘•ȱŸ˜—ȱ’—›§Ž—ȱœ’Œ‘‹Š›ȱœŽ’—ȱ ’›ǯȱȱ ’Žȱ’•ȱřǯŘȱŽ›”Ž——Ž—ȱ•§œœǰȱ•ŠœœŽ—ȱœ’Œ‘ȱû‹Ž›ȱŽ—ȱ‹“Ž”’—œ™Ž”˜›ȱŽ›ȱ’œŽȱ˜Ž—Ȭ ‹Š›ȱœŽ‘›ȱŸ’Ž•ŽȱŠ›Ž’Ž—œŒ‘ŠŽ—ȱŸ˜›Ž’—œŽ••Ž—ǯȱ

ȱȱ ’•ȱřǯŘDZȱ’œžŽ••Žœȱ‹“Ž”ȱListboxȱž—ȱ‹“Ž”’—œ™Ž”˜›ȱǻžœœŒ‘—’Ǽȱ Š£žȱŽ‘㛎—ȱ—Šû›•’Œ‘ȱ’Žȱ ’—Ž››ž—Š›‹ŽȱǻColorǼȱž—ȱ’ŽȱŒ‘›’ȱǻFontǼǯȱ˜Œ‘ȱ  ’Žȱ”ã——Ž—ȱ ’›ȱŽ’—ŽȱŠ›‹Ž•Žž—ȱû›ȱ’Žȱžœ Š‘••’œŽȱŽ›‘Š•Ž—ǵȱȱ ’•Ž›ȱřǯŘȱž—ȱřǯřȱ£Ž’Ž—ȱŽ—ȱŽDZȱžŽ›œȱ’œȱ’Žȱ’Ž—œŒ‘ŠȱItemsȱŠžœ£ž §‘•Ž—ǰȱ Š——ȱ  ’›ȱ –’ȱ Ž›ȱ Šžœȱ Šžȱ ’Žȱ ›Ž’ȱ ž—”Žȱ ›ŽŒ‘œȱ —Ž‹Ž—ȱ ǻTStringsǼȱ Ž”•’Œ”ǯȱ Œ‘˜—ȱ ㏏—Žȱ œ’Œ‘ȱ Ž›ȱ ›’—•’œŽ—Ȭ’˜›ȱ ǻ’•ȱ řǯřǼǰȱ ’—ȱ ŽœœŽ—ȱ Ž—œŽ›ȱ ‹Ž’œ™’Ž•œȬ  Ž’œŽȱ’ŽȱŠ–Ž—ȱŽ›ȱœŽŒ‘£Ž‘—ȱž—Žœ•§—Ž›ȱŽ’—Ž›ŠŽ—ȱ Ž›Ž—ȱ”ã——Ž—ǯȱ’Žȱ û‹•’Œ‘ǰȱ  ’›ȱ Š‹Ž’ȱ Ž›ȱ Ž’•Ž— ŽŒ‘œŽ•ȱ ž›Œ‘ȱ ’Žȱ ENTERȬŠœŽȱ Ÿ˜›Ž—˜––Ž—ǯȱ

ž›£Žȱ Žœ§’ž—ȱ –’ȱ OK ȱ ǰȱ ž—ȱ œŒ‘˜—ȱ ‘Šȱ ’Žȱ žœ Š‘••’œŽȱ ’Žȱ Ž û—œŒ‘Žȱ Š›‹Ž•Žž—ȱǻ’•ȱřǯŚǼǯȱȱ

řǯŗȱȱŽ’Ž—Ž•Ž–Ž—ȱ’œŽȱǻ’œ˜¡Ǽȱ

Śş

›œŠž—•’Œ‘ǰȱŠ‹Ž›ȱŸ˜›Ž›œȱ—’Œ‘ȱ£žȱ§—Ž›—DZȱŽ›ȱ‹“Ž”’—œ™Ž”˜›ȱŽ›ȱ’œŽȱ‹’ŽŽȱ ž—œȱ•Ž’Ž›ȱ ”Ž’—Žȱ 㐕’Œ‘”Ž’ȱ Š—ǰȱ Šû›ȱ£žȱœ˜›Ž—ǰȱ Šœœȱ ’—ȱŽ›ȱžœ Š‘••’œŽȱ£žȱ Ž’——ȱ Ž›ȱ Šž£Ž’ȱ Ž’—ȱ ‹Žœ’––Žœȱ ž—Žœ•Š—ǰȱ £ǯȱ ǯȱ ŠŒ‘œŽ—Ȭ—‘Š•ǰȱ ‹Ž›Ž’œȱ ŠžœŽ §‘•ȱ’œǯȱŒ‘ŠŽǯȱŠ›Ž—ȱ ’›ȱŠžȱŽ—ȱ‹œŒ‘—’ȱŚǯŝǯśǯȱ

ȱȱ ’•ȱřǯřDZȱ›’—•’œŽ—Ȭ’˜›ȱ ‹Ž›ȱŽ ŠœȱŠ—Ž›Žœȱ ˜••Ž—ȱ ’›ȱ—’Œ‘ȱŸŽ›ŽœœŽ—DZȱŽ’ȱ‹œŒ‘—’ȱŘǯŘȱ ’œœŽ—ȱ ’›ǰȱ ŠœœȱŽ›ȱ˜™™Ž•”•’Œ”ȱŠžȱŽ’—ȱŽ’Ž—Ž•Ž–Ž—ȱž—œȱœ˜˜›ȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œȬ ™›˜£Žž›ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œȱ•’ŽŽ›DZȱȱ procedure TForm1.ListBox1Click(Sender: TObject); begin ShowMessage('Klick in der Listbox') end;

 ŠœȱŽ›œŠž—•’Œ‘DZȱ’Œ‘ȱ’Žȱ —Ž›ž—ȱŽ›ȱžœ Š‘•ǰȱœ˜—Ž›—ȱ‹Ž›Ž’œȱŽ›ȱŽ’—ŠŒ‘Žȱ

•’Œ”ȱ ’›ȱŠ•œȱŠ—Š›Ȭ›Ž’—’œȱŽ›ȱ’œŽȱŠ—ŽœŽ‘Ž—ǯȱȱ

ȱ

t‹Ž›£ŽžŽ—ȱ ’›ȱž—œDZȱžȱŽ’——ȱŽ›ȱŠž£Ž’ȱ’œȱ—’Œ‘œȱŠžœŽ §‘•ȱȮȱŠœȱ”ã——Ž—ȱ  ’›ȱ—˜Œ‘ȱ—’Œ‘ǯȱ •’Œ”Ž—ȱ ’›ȱŠŒ‘œŽ—Ȭ—‘Š•ȱŠ—DZȱ’ŽȱŽ•ž—ȱ •’Œ”ȱ’—ȱŽ›ȱ’œ‹˜¡ȱ ”˜––ǰȱž—ȱŠŒ‘œŽ—Ȭ—‘Š•ȱ’œȱ–’ȱŽ’—Ž–ȱŠ•”Ž—ȱ–Š›”’Ž›ȱǻ’•ȱřǯŚǼǯȱȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 3ȱȱ’ŽȱzipȬŠŽ’ȱ DKap03.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap03 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_31.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ   ȱ [ȱ’–ȱ›—Ž›ȱ

ȱ

D8Kap03 ȱ’ŽȱŠŽ’ȱproj_31.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

śŖ

řȱȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ

•’Œ”Ž—ȱ ’›ȱ—˜Œ‘ȱŽ’—–Š•ȱŠžȱŠŒ‘œŽ—Ȭ—‘Š•DZȱ’›ȱ‹Žœ§’Ž—ȱŠ–’ȱ—ž›ȱ—˜Œ‘ȱŽ’—Ȭ –Š•ȱ’ŽȱŽ›˜Ž—Žȱžœ Š‘•ǰȱŸŽ›§—Ž›—ȱ—’Œ‘œǯȱŠœ§Œ‘•’Œ‘ǰȱ’ŽȱŽ•ž—ȱ •’Œ”ȱ’—ȱ Ž›ȱ’œ‹˜¡ȱ”˜––ȱ ’ŽŽ›ǯȱȱ Šœȱ ‹ŽŽžŽǰȱ Šœœȱ  ’›ȱ ž—œȱ œ™§Ž›ȱ ‹Žœ˜—Ž›Žȱ û‘Žȱ Ž‹Ž—ȱ –ûœœŽ—ǰȱ  Ž——ȱ  ’›ȱ —ž›ȱû›ȱŽŒ‘Žȱ —Ž›ž—ȱŽ›ȱžœ Š‘•ȱŽ’—ŽȱŽŠ”’˜—ȱ™›˜›Š––’Ž›Ž—ȱ ˜••Ž—ǯȱ

ȱȱȱ ’•ȱřǯŚDZȱžœ Š‘••’œŽȱ—ŠŒ‘ȱ •’Œ”ȱŠžȱǮŠŒ‘œŽ—Ȭ—‘Š•ȃȱȱ t‹›’Ž—œȱ ‹Ž’—Žȱ œ’Œ‘ȱ ŠžŒ‘ȱ ž—Ž›ȱ Ž—ȱ ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽ—ȱ Žœȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”œȱ ListBox1ȱ”Ž’—ȱ OnChangeǯȱŽ‘–Ž—ȱ ’›ȱ–Š•ȱŠ—ǰȱŠœœȱ’ŽȱŒ‘㙏Ž›ȱŸ˜—ȱŽ•Ȭ ™‘’ȱœ’Œ‘ȱŠ‹Ž’ȱœŒ‘˜—ȱŽ ŠœȱŽŠŒ‘ȱ‘Š‹Ž—ȱ Ž›Ž—ǯǯǯȱ

3.2

Bedienelement Combobox Ž——ȱ ’›ȱŽ’—ŽȱŽ’’Ž›‹Š›Žȱžœ Š‘••’œŽȱǻComboBoxǼȱŠžȱŠœȱ˜›–ž•Š›ȱ‹›’—Ž—ȱ ˜•Ȭ •Ž—ǰȱ–ûœœŽ—ȱ ’›ȱ‹Ž’ȱŽ•™‘’ȱŝȱ’–ȱŽ’œŽ›‹•ŠȱȱŽ›ȱ ˜–™˜—Ž—Ž—™Š•ŽŽȱ ‹£ ǯȱ ‹Ž’ȱ ž›‹˜ȱ Ž•™‘’ȦŽ•™‘’ȱ ŞȦŘŖŖśȦŘŖŖşȱ ’—ȱ •Ž’Œ‘—Š–’Ž—ȱ ŠŽ˜›’Žȱ Standardȱ Ž›ȱ˜˜•ȬŠ•ŽŽȱ’ŽȱŽ—œ™›ŽŒ‘Ž—ŽȱŒ‘Š••§Œ‘ŽȱŠžœ §‘•Ž—ȱǻ’•ȱřǯśǼǯȱ ȱȱȱ ’•ȱřǯśDZȱŒ‘Š••§Œ‘Žȱû›ȱŽ’—ŽȱŽ’’Ž›‹Š›Žȱžœ Š‘••’œŽȱǻComboBoxǼȱȱȱȱȱ ’ŽœŽœȱ Ž’Ž—Ž•Ž–Ž—ȱ ”˜–‹’—’Ž›ȱ Ž’—Žȱ Ž’—ŠŒ‘Žȱ žœ Š‘••’œŽȱ –’ȱ Ž’—Ž–ȱ Ž¡Ž—œŽ›ǯȱ ’Žȱ ‹Ž’Ž—ȱ  ’Œ‘’œŽ—ȱ Š›Ž’Ž—œŒ‘ŠŽ—ǰȱ ’Žȱ ‘’Ž›ȱ Ÿ˜›Š‹ȱ Ž’—ŽœŽ••ȱ  Ž›Ž—ȱ ”ã——Ž—ǰȱœ’—ȱ’—ȱ’•ȱřǯŜȱŠ—ŽŽ‹Ž—ǯȱ

ȱȱ ’•ȱřǯŜDZȱ˜›Šžœ Š‘•ȱŽœȱŽ›œŽ—ȱ—£Ž’ŽŽ¡Žœȱž—ȱŽ›ȱ§—Žȱȱ

řǯŘȱȱŽ’Ž—Ž•Ž–Ž—ȱ˜–‹˜‹˜¡ȱ

ȱ

śŗ

’ȱ Ž›ȱ ’Ž—œŒ‘Šȱ Textȱ  ’›ȱ ’Žȱ Š›‹ŽœŒ‘›’ž—ȱ ŽœŽ•Žǰȱ ž—ȱ ’Žȱ ’Ž—Ȭ œŒ‘Šȱ DropDownCountȱ œŽžŽ›ǰȱ  ’Žȱ Ÿ’Ž•Žȱ Ž’•Ž—ȱ œ™§Ž›ȱ ŠžŽ‹•§Ž›ȱ  Ž›Ž—ǯȱ ’Žȱ ‹Ž’ȱŽ›ȱŽ’—ŠŒ‘Ž—ȱžœ Š‘••’œŽȱ ’›ȱ’Žȱ Š›‹Ž•Žž—ȱŽ›ȱ’œŽȱû‹Ž›ȱ’Žȱ’Ž—Ȭ œŒ‘ŠȱItemsȱž—ȱŠ——ȱ–’ȱŽ–ȱ›’—•’œŽ—Ȭ’˜›ȱŸ˜›ŽŽ‹Ž—ǯȱȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 3ȱȱ’ŽȱzipȬŠŽ’ȱ DKap03.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap03 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_32.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ   ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap03 ȱ’ŽȱŠŽ’ȱproj_32.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ’•ȱřǯŝȱ£Ž’ȱŠœȱŽ’Ž—Ž•Ž–Ž—ǰȱŠœȱŸ˜—ȱŽ•™‘’ȱŽ—ȱŠ–Ž—ȱ ComboBox1ȱ‹Ž”Š–ǰȱ £žȱŠž£Ž’‹Ž’——ȱž—ȱŠ—œŒ‘•’ŽđŽ—ȱ—ŠŒ‘ȱžœ Š‘•ȱŽ’—ŽœȱŠ—Ž›Ž—ȱ’—›Šœǯȱȱ

ȱȱȱ ’•ȱřǯŝDZȱŽ’Ž—Ž•Ž–Ž—ȱ˜–‹˜˜¡ȱ£ž›ȱŠž£Ž’ȱ ŠœœŽ—ȱ  ’›ȱ ž—œȱ ŠžŒ‘ȱ ‘’Ž›ȱ û‹Ž››ŠœŒ‘Ž—ǰȱ  Ž•Œ‘Žȱ ›ȱ Ž›ȱ ž£Ž›Ž’— ’›”ž—ȱ ’Žȱ Œ‘㙏Ž›ȱŸ˜—ȱŽ•™‘’ȱ‘’Ž›ȱŠ•œȱŠ—Š›Ȭ›Ž’—’œȱŠ—œŽ‘Ž—ǯȱȱ ’—ȱ˜™™Ž•”•’Œ”ȱ’–ȱ— ž›ȱŠžȱŠœȱŽ’Ž—Ž•Ž–Ž—ǰȱž—ȱœŒ‘˜—ȱœŽ‘Ž—ȱ ’›ȱŽœDZȱȱ procedure TForm1.ComboBox1Change(Sender: TObject); begin ShowMessage('Es wird irgendwas geändert') end;

’Žœ–Š•ȱ ž›ŽȱŠœ§Œ‘•’Œ‘ȱŠœȱ›Ž’—’œȱ —Ž›ž—ȱǻChangeǼȱ£ž–ȱŠ—Š›Ȭ›Ž’Ȭ —’œȱ Ž›‘˜‹Ž—Dzȱ ’Žȱ Ž•ž—ȱ œȱ  ’›ȱ ’›Ž— Šœȱ Ž§—Ž›ȱ ”˜––ȱ œ˜Š›ȱ £ Ž’–Š•DZȱ Ž——ȱŽ›ȱž£Ž›ȱ’Žȱ’œŽȱŠž‹•§Ž›ȱž—ȱŽ’—ȱŠ—Ž›ŽœȱŠ—ȱ §‘•Dzȱœ’ŽȱŽ›œŒ‘Ž’—ȱ Š‹Ž›ȱŠžŒ‘ǰȱ Ž——ȱŽ›ȱž£Ž›ȱŽ—ȱŠ–Ž—ȱŽœȱŠ—Ž£Ž’Ž—ȱŠ—ŽœȱŸŽ›§—Ž›—ȱ ’••ǯȱȱ

śŘ

řȱȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ

3.3

Bedienelement Radiogruppe (RadioGroup) ›’——Ž›—ȱ ’›ȱž—œȱŠ—ȱŽ—ȱ‹œŒ‘—’ȱŗǯŚǯřǰȱ’—ȱŽ–ȱ’ŽœŽȱ‘û‹œŒ‘Ž—ȱ”•Ž’—Ž—ȱ›ž—Ž—ȱ Ž¡”•žœ’ŸŽ—ȱ ŠȬŽ’—Ȭ™’˜—Ž—ǰȱ ’Žȱ Š’˜‹ž˜—œǰȱ Ÿ˜›ŽœŽ••ȱ  ž›Ž—ǯȱ ’—Ž—ȱ Š’˜Ȭ ‹ž˜—ȱ ”Š——ȱ –Š—ȱ œŽœȱ —ž›ȱ Ž’—œŒ‘Š•Ž—ǰȱ œŽ’—Žȱ Ž•Žž—ȱ ŸŽ›•’Ž›ȱ Ž›ȱ Šž˜–Š’œŒ‘ǰȱ  Ž——ȱŽ’—ȱŠ—Ž›Ž›ȱŠ’˜‹ž˜—ȱŽ›œŽ•‹Ž—ȱ ›ž™™ŽȱŽ’—ŽœŒ‘Š•Žȱ ’›ǯȱȱ ’Žȱ ›ž™™Ž—‹’•ž—ȱ’œȱ Ž–—ŠŒ‘ȱ £ ’—Ž—ȱ —˜ Ž—’ǰȱ  Ž——ȱ –Š—ǰȱ  ’Žȱ ’—ȱ ’•ȱ řǯŞȱ£žȱœŽ‘Ž—ǰȱŸŽ›œŒ‘’ŽŽ—ȱ’Ž—œŒ‘ŠŽ—ȱŠ‹›ŠŽ—ȱ•ŠœœŽ—ȱ ’••ǯȱ

ȱȱȱ ’•ȱřǯŞDZȱ ›ž™™’Ž›ž—ȱŸ˜—ȱŠ’˜‹ž˜—œȱȱ ‘—Žȱ ›ž™™Ž—‹’•ž—ȱ”ã——ŽȱœŽœȱ—ž›ȱŽ’—ȱŽ’—£’Ž›ȱŸ˜—ȱ’ŽœŽ—ȱŠŒ‘ȱŠ’˜‹žȬ ˜—œȱ Ž’—Žȱ Š›”’Ž›ž—ȱ ‹Žœ’£Ž—ǯȱ ’Žȱ Ž› Ž—ž—ȱ Žœȱ Ž’Ž—Ž•Ž–Ž—œȱ ›ž™™Žȱȱ ǻGroupBoxǼȱ’œȱŽ’—Žȱ㜞—ȱŽœȱ›˜‹•Ž–œǯȱ‹Ž›ȱŽœȱ’œȱ£žȱ‹ŽŠŒ‘Ž—DZȱ›˜£ȱŽ›ȱ ›ž™Ȭ ™’Ž›ž—ȱ‹Ž‘§•ȱ“ŽŽ›ȱŠ’˜‹ž˜—ȱœŽ’—Ž—ȱŽ’Ž—Ž—ȱŠ–Ž—ǯȱȱ Ž——ȱ–Š—ȱ‹Ž’œ™’Ž•œ Ž’œŽȱ ’œœŽ—ȱ ’••ǰȱ ŠœȱŽ›ȱž£Ž›ȱŽ›ŠŽȱŠžœŽ §‘•ȱ‘Šǰȱ –žœœȱ –Š—ȱ ‘’Ž›ȱ ŠŒ‘ȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ œŒ‘›Ž’‹Ž—DZȱ û›ȱ ’Žȱ —˜›–Š’˜—ȱ û‹Ž›ȱ ŠœȱŠ—Š›Ȭ›Ž’—’œȱŠ–ȱŠ’˜‹ž˜—ȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱ ž—Ž›ȱŝŖȱ”ȱ–ûœœȬ Ž—ȱ ’›ȱœŒ‘›Ž’‹Ž—ȱȱ procedure TForm1.RadioButton1Click(Sender: TObject); begin ShowMessage('1. Gruppe, oben, wurde ausgewählt') end;

ž—ȱœ˜ȱ Ž’Ž›ȱ‹’œȱȱ procedure TForm1.RadioButton8Click(Sender: TObject); begin ShowMessage('3. Gruppe, unten, wurde ausgewählt') end;

˜Œ‘ȱŽœȱŽ‘ȱŠžŒ‘ȱŽ’—ŠŒ‘Ž›ǯȱŠû›ȱœŽ••ȱŽ•™‘’ȱŠœȱŸ’œžŽ••Žȱ‹“Ž”ȱŠ’˜›ž™™Žȱ ǻRadioGroupǼȱ£ž›ȱŽ›ûž—ǯȱ ȱȱȱ ’•ȱřǯşDZȱŠ’˜›ž™™ŽȱǻŽ•™‘’ȱŝȱ‹£ ǯȱž›‹˜ȱŽ•™‘’ȦŽ•™‘’ȱŞȦŘŖŖśȦŘŖŖşǼȱ

řǯřȱȱŽ’Ž—Ž•Ž–Ž—ȱŠ’˜›ž™™ŽȱǻŠ’˜ ›˜ž™Ǽȱ

śř

Ž’ȱ Ž›ȱ •Š£’Ž›ž—ȱ Ž›ȱ ›Ž’ȱ Ž’Ž—Ž•Ž–Ž—Žȱ Ž›ȱ ›ȱ Š’˜›ž™™Žȱ œ’Ž‘ȱ Žœȱ Š—Ȭ Š—œȱœ˜ȱŠžœǰȱŠ•œȱ˜‹ȱ—ž›ȱ›Ž’ȱŽ’—ŠŒ‘Žȱ ›ž™™Ž—ȱŠžȱŠœȱ˜›–ž•Š›ȱŽ£˜Ž—ȱ ˜›Ž—ȱ œ’—ȱǻ’•ȱřǯŗŖǼǯȱ

ȱȱ ’•ȱřǯŗŖDZȱ•Š£’Ž›ž—ȱŸ˜—ȱŠ’˜›ž™™Ž—ȱȱȱȱ –ȱ‹“Ž”’—œ™Ž”˜›ȱ”ã——Ž—ȱ£žŽ›œȱ’Žȱû‹•’Œ‘Ž—ȱ’Ž—œŒ‘ŠŽ—ȱŸ˜›Ž’—ŽœŽ••ȱ Ž›Ȭ Ž—DZȱ’ȱŽ›ȱ’Ž—œŒ‘ŠȱCaptionȱ ’›ȱû›ȱ“ŽŽȱŠ’˜›ž™™Žȱ’Žȱ ›ž™™Ž—‹ŽœŒ‘›’Ȭ ž—ȱŽœŽ•Žǰȱ–’ȱŽ›ȱ’Ž—œŒ‘ŠȱColorȱ’Žȱ ’—Ž››ž—Š›‹Žǯȱȱ Ž›ŠŒ‘Ž—ȱ ’›ȱ’ŽȱŽ—ŽȱŽ›ȱ’Ž—œŒ‘ŠŽ—ȱŽ—ŠžŽ›ȱǻ’•ȱřǯŗŗǼǰȱ’—Ž—ȱ ’›ȱ’Žȱ ŠžœȱŽ—ȱ‹Ž’Ž—ȱŸ˜›’Ž—ȱ‹œŒ‘—’Ž—ȱ‹Ž”Š——Žȱ’Žȱ’Ž—œŒ‘Šȱ Itemsǰȱž—ȱ›ŽŒ‘œȱ Š—Ž‹Ž—ȱœŽ‘ȱ ’ŽŽ›ȱǻTStringsǼȱ–’ȱŽ—ȱ‹Ž”Š——Ž—ȱ›Ž’ȱž—”Ž—ǯȱȱ

ȱȱ ’•ȱřǯŗŗDZȱ’—›§Žȱ–’ȱŽ–ȱ›’—•’œŽ—Ȭ’˜›ȱŠžœ §‘•Ž—ȱ Žœ‘Š•‹ȱ Ž›Ž—ȱȮȱŠ—£ȱŠ—Ž›œȱŠ•œȱŸ˜›‘’—ȱȮȱ”Ž’—ŽȱŽ’Ž—œ§—’Ž—ȱŠ’˜‹ž˜—œȱ ’—ȱ Ž—ȱ Š‘–Ž—ȱ Ž’—Žûǰȱ œ˜—Ž›—ȱ ’Žȱ Š’˜›ž™™Žȱ Ž›‘§•ȱ Ž’—Žȱ ’—Ž›—Žȱ ’œŽǯȱ Ž’—ȱ §žđŽ›•’Œ‘ȱ ŠœœŽ•‹Žǰȱ Š‹Ž›ȱ ’—Ž›—ȱ Ž’—Žȱ Š—Ž›Žȱ ›‹Ž’œ Ž’œŽDZȱ ž—ȱ ”Š——ȱ –Š—ȱ ›Ž’—’œœŽȱŠ—ȱŽ—ȱŽ’—£Ž•—Ž—ȱŠ’˜‹ž˜—ȱ’—ȱŽ’—Ž›ȱŠ’˜›ž™™Žȱ—’Œ‘ȱ–Ž‘›ȱ‹Ž‘Š—Ž•—ǰȱ œ˜—Ž›—ȱ—ž›ȱŠœȱ ›ž™™Ž—ȬŠ—Š›Ȭ›Ž’—’œDZȱȱ procedure TForm1.RadioGroup1Click(Sender: TObject); begin ShowMessage('Innerhalb dieser Gruppe wurde irgendwie geklickt') end;

śŚ

řȱȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ

Šœȱ’œȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱŠ—Š›Ȭ›Ž’—’œǯȱ—ȱ‹œŒ‘—’ȱŚǯŝǯŗȱ Ž›Ž—ȱ ’›ȱ ”Ž——Ž—ȱ•Ž›—Ž—ǰȱ ’Žȱ–Š—ȱŽ›§‘›ǰȱ Ž•Œ‘ŽȱŽ’•ŽȱŠžœŽ §‘•ȱ ž›Žǯȱȱ t‹›’Ž—œȱ œŽ••ȱ ‘’Ž›ȱ Ž›ȱ ‹“Ž”’—œ™Ž”˜›ȱ –’ȱ Ž›ȱ ’Ž—œŒ‘Šȱ ItemIndexȱ ǻ’—ȱ ’•ȱ řǯŗŗȱžȱ£žȱœŽ‘Ž—Ǽȱ’Žȱ㐕’Œ‘”Ž’ȱ‹Ž›Ž’ǰȱŠû›ȱ£žȱœ˜›Ž—ǰȱŠœœȱ‹Ž›Ž’œȱ‹Ž’–ȱŽȬ ’——ȱŽ›ȱŠž£Ž’ȱŽ’—ȱ‹Žœ’––Ž›ȱ’—›ŠȱŽ›ȱ ›ž™™ŽȱŠžœŽ §‘•ȱ’œǯȱȱ

ȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 3ȱȱ’ŽȱzipȬŠŽ’ȱ DKap03.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap03 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_33.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ   ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap03 ȱ’ŽȱŠŽ’ȱproj_33.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Š‹Ž’ȱ ’œȱ Š‹Ž›ȱ ž—‹Ž’—ȱ £žȱ ‹ŽŠŒ‘Ž—ǰȱ Šœœȱ ‹Ž’ȱ Ž—ȱ Ÿ’œžŽ••Ž—ȱ Ž•™‘’Ȭ‹“Ž”Ž—ȱ ’Žȱ §‘•ž—ȱ ’––Ž›ȱ –’ȱ ž••ȱ ‹Ž’——DZȱ ˜••ȱ ‹Ž’œ™’Ž•œ Ž’œŽȱ ’—ȱ Ž›ȱ ›ž™™Žȱ Ž ’Œ‘ȱ ’ŽȱŽ’•Žȱž—Ž›ȱŝŖȱ”ȱ‹Ž’–ȱŠ›ȱŽ›ȱŠž£Ž’ȱ‹Ž›Ž’œȱŠžœŽ §‘•ȱœŽ’—ǰȱ’œȱ’Žȱ’Ȭ Ž—œŒ‘Šȱ ItemIndexȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱŠžȱž••ȱ£žȱœŽ£Ž—ȱǻ’•ȱřǯŗŘǼǯȱ˜••ŽȱŠȬ ŽŽ—ȱ’Žȱž—Ž›œŽȱŽ’•Žȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱû‹Ž›ȱŗŖŖȱ”ȱ£žȱŽ’——ȱŽ›ȱŠž£Ž’ȱ ŠžœŽ §‘•ȱœŽ’—ǰȱ §›Žȱ’Žȱ’Ž—œŒ‘ŠȱItemIndexȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱŠžȱ Ž’ȱ£žȱ œŽ£Ž—ǯȱȱ

ȱȱ ’•ȱřǯŗŘDZȱ˜›Šžœ Š‘•ȱŽ›ȱŠ›‹Ž•Žž—ȱ

3.4

Bedienelement Menü (MainMenu) Ž—”Ž—ȱ ’›ȱŽ’—ŠŒ‘ȱŠ—ȱŠœȱžŽȱŠ•Žȱ’—˜ œDZȱ’—Žȱ˜›Ž—•’Œ‘ŽȱŽ—ž£Ž›˜‹Ž›Ȭ •§Œ‘Žȱ”˜––ȱ‘Žž£žŠŽȱ˜‘—ŽȱŽ’—ȱŽ—ûȱ—’Œ‘ȱ–Ž‘›ȱŠžœǯȱ’Žȱž£Ž›ȱœ’—ȱŠ›Š—ȱ Ž ã‘—DzȱŽ•™‘’ȱŝ‹’ŽŽȱž—œȱ—Šû›•’Œ‘ȱŠžŒ‘ȱ’–ȱŽ’œŽ›‹•ŠȱȱŽ›ȱ ˜–Ȭ ™˜—Ž—Ž—™Š•ŽŽȱ‹£ ǯȱž›‹˜ȱŽ•™‘’ȦŽ•™‘’ȱŞȦŘŖŖśȦŘŖŖşȱ’—ȱŽ›ȱ•Ž’Œ‘—Š–’Ž—ȱ ŠȬ Ž˜›’ŽȱŽ›ȱ˜˜•ȬŠ•ŽŽȱ’ŽȱŽ—œ™›ŽŒ‘Ž—ŽȱŒ‘Š••§Œ‘ŽȱŠ—ǯȱȱ

ȱȱ ’•ȱřǯŗřDZȱŒ‘Š••§Œ‘Žȱû›ȱŠœȱŽ’Ž—Ž•Ž–Ž—ȱǻ Šž™ȬǼŽ—ûȱ

řǯŚȱȱŽ’Ž—Ž•Ž–Ž—ȱŽ—ûȱǻŠ’—Ž—žǼȱ

śś

Ž‘Ž—ȱ ’›ȱ’Žœ–Š•ȱŸ˜–ȱ’Ž•ȱŠžœDZȱ’›ȱ–㌑Ž—ȱŽ›—ȱž—œŽ›ŽȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱ ž›Œ‘ȱ Ž’—Žȱ Ž—û•Ž’œŽȱ –’ȱ œ˜ȱ Ž—Š——Ž—ȱ ›˜™˜ —ȬŽ—ûœȱ Š›Š”’ŸŽ›ȱ ŽœŠ•Ž—ȱ ǻœ’Ž‘Žȱ’•ȱřǯŗŚǼǯȱȱ

Ž’—ȱ›˜‹•Ž–ǰȱŽ’—–Š•ȱŽû‹ǰȱž—ȱœŒ‘˜—ȱ”Š——ȱ–Š—ȱ˜••ŽȱŽ—ûœȱ‘Ž›œŽ••Ž—DZȱȱ

ȱȱ ’•ȱřǯŗŚDZȱ˜›–ž•Š›ȱ–’ȱŽ—ûȱ Œ‘›’ȱ ŗDZȱ ’Žȱ Œ‘Š••§Œ‘Žȱ û›ȱ Šœȱ Ž’Ž—Ž•Ž–Ž—ȱ  ’›ȱ Šžȱ Šœȱ ˜›–ž•Š›ȱ Ž£˜Ȭ Ž—ȱǻ ’Žȱ£ǯȱǯȱ’–ȱ’•ȱřǯŗśȱȮȱœ’ŽȱŸŽ›œŒ‘ ’—Žȱœ˜ ’Žœ˜ȱ£ž›ȱŠž£Ž’Ǽǯȱȱ

ȱȱȱ ’•ȱřǯŗśDZȱŠœȱŽ—ûȬ¢–‹˜•ȱ ’›ȱ‹Ž•’Ž‹’ȱ™•Š£’Ž›ȱ Œ‘›’ȱ ŘDZȱ –ȱ Ž’œŽ›‹•Šȱ   ȱ Žœȱ £žŽ‘ã›’Ž—ȱ ‹“Ž”’—œ™Ž”˜›œȱ  ’›ȱŠ—œŒ‘•’ŽđŽ—ȱ’Žȱ’Ž—œŒ‘ŠȱItemsȱŠžœŽ §‘•ȱǻ’•ȱřǯŗŜǼǯȱ

ȱȱȱ ’•ȱřǯŗŜDZȱ’Ž—œŒ‘ŠȱItemsȱȱ Œ‘›’ȱ řDZȱ Ž›ȱ •’Œ”ȱ Šžȱ ’Žȱ ›Ž’ȱ ž—”Žȱ —Ž‹Ž—ȱ ǻMenüǼȱ ㏏—Žȱ Ž—ȱ Ž—ûȬ’˜›ǯȱ •Ž’Œ‘£Ž’’ȱ §—Ž›ȱ œ’Œ‘ȱ Šœȱ Ž’œŽ›‹•Šȱ   ȱ ’–ȱ ‹“Ž”’—œ™Ž”˜›Dzȱ ŽœȱŽ›œŒ‘Ž’—ȱŽ’—ȱ•ŽŽ›Žœȱ Ž’đŽœȱŽ•ȱ—Ž‹Ž—ȱCaptionǯȱ Œ‘›’ȱŚDZȱ—ȱ’ŽœŽœȱ•ŽŽ›Žǰȱ Ž’đŽȱŽ•ȱ ’›ȱ’Žȱt‹Ž›œŒ‘›’ȱû›ȱŠœȱŽ›œŽȱŽ—ûȱŽ’—ŽȬ ›ŠŽ—ȱž—ȱ–’ȱEnterȱ‹Žœ§’ǯȱ’ŽȱŽ›œŒ‘Ž’—ȱŠ—ȱŽ›ȱ›’Œ‘’Ž—ȱŽ••Žǯȱȱ •Ž’Œ‘£Ž’’ȱ Ž›œŒ‘Ž’—ȱ ›ŽŒ‘œȱ Š—Ž‹Ž—ȱ Ž’—ȱ —ŽžŽœǰȱ •ŽŽ›Žœȱ Ž•ȱ û›ȱ Ž—ȱ —§Œ‘œŽ—ȱ ’—›ŠȱŽ›ȱŽ—û•Ž’œŽȱǻ’•ȱřǯŗŞǼǯȱȱ

śŜ

řȱȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ

Œ‘›’ȱśDZȱ’—ȱŠžœ”•’Œ”ȱ’—ȱŠœȱ•ŽŽ›ŽȱŽ•ȱ›ŽŒ‘œȱ—Ž‹Ž—ȱǮž›˜™ŠȃǰȱœŒ‘˜—ȱ ’›ȱŠœȱ Ž•ȱ—Ž‹Ž—ȱŽ›ȱ’Ž—œŒ‘ŠȱCaptionȱ ’ŽŽ›ȱ•ŽŽ›ǰȱž—ȱŽœȱ”Š——ȱ’Žȱ—§Œ‘œŽȱŽœŒ‘›’Ȭ ž—ȱŽ›ȱŽ—û•Ž’œŽȱŽ’—Ž›ŠŽ—ȱ Ž›Ž—ȱǻ’•ȱřǯŗşǼǯȱȱ

ȱȱȱ ’•ȱřǯŗŝDZȱŽ—ûȬ’˜›ȱ

ȱȱȱ ’•ȱřǯŗŞDZȱž‹ŠžȱŽ›ȱŽ—û£Ž’•Žȱȱ

ȱȱȱ ’•ȱřǯŗşDZȱž‹ŠžȱŽœȱŽ›œŽ—ȱŽ—ûœȱ

ȱȱȱ ’•ȱřǯŘŖDZȱ›§—£ž—ȱ’–ȱŽ›œŽ—ȱ›˜™˜ —ȬŽ—ûȱ Œ‘›’ȱŜDZȱŽ——ȱ’Žȱ˜‹Ž›ŽȱŽ—û•Ž’œŽȱŽ›’ȱ’œȱ‹Ž’——ȱŽ›ȱž‹ŠžȱŽ›ȱœ˜ȱŽ—Š——Ȭ Ž—ȱ›˜™˜ —ȬŽ—ûœǰȱŠœȱœ’—ȱ’Žȱ’—›§Žǰȱ’Žȱ—ŠŒ‘ȱž—Ž—ȱŠžŽ‹•§Ž›ȱ Ž›Ž—ǯȱȱ ˜••ȱž—Ž›ȱž›˜™ŠȱŽ’—ȱœ˜•Œ‘ŽœȱŽ—ûȱŠžŽ‹Šžȱ Ž›Ž—ȱ‹›ŠžŒ‘ȱ–Š—ȱŠ£žȱ•Ž’Ȭ •’Œ‘ȱ–’ȱŽ›ȱŠžœȱŠžȱ’ŽȱŽœŒ‘›’ž—ȱ ž›˜™Šȱ£žȱ”•’Œ”Ž—ǯȱ’•ȱřǯŗşȱ£Ž’ǰȱŠœœȱ Ž’—ȱ•ŽŽ›Ž›ȱŠ‘–Ž—ȱû›ȱ’ŽȱŠ›ž—Ž›ȱŽ’—£ž›ŠŽ—ŽȱŽœŒ‘›’ž—ȱŽ›œŒ‘Ž’—ǯȱȱ Ž——ȱŽ›ȱ ’›ȱŠžœŽ §‘•ȱž—ȱ›Š—”›Ž’Œ‘ȱŽ’—Ž›ŠŽ—ȱ ’›ǰȱŽ›œŒ‘Ž’—ȱŠ›ž—Ž›ȱ  ’ŽŽ›ȱŽ’—ȱ•ŽŽ›Ž›ȱŠ‘–Ž—ȱû›ȱ’——•Š—ȱǻ’•ȱřǯŘŖǼǰȱž—ȱœ˜ȱ Ž’Ž›ǯȱȱ ȱ

ȱ

řǯŚȱȱŽ’Ž—Ž•Ž–Ž—ȱŽ—ûȱǻŠ’—Ž—žǼȱ

śŝ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 3!ȱ’ŽȱzipȬŠŽ’ȱ DKap03.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap03 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_34.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ   ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap03 ȱ’ŽȱŠŽ’ȱproj_34.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Š——ȱ”Š——ȱ›’”Šȱ—ŠŒ‘ȱž—Ž—ȱŽ›§—£ȱ Ž›Ž—ǰȱŠ—œŒ‘•’ŽđŽ—ȱœ’Ž—ǰȱ–Ž›’”Šȱž—ȱ žœ›Š•’Ž—ǯȱȱȱȱȱ û›ȱ Ž•Œ‘Žȱž£Ž›Ž’— ’›”ž—ȱœ˜••Ž—ȱ ’›ȱŽŠ”’˜—Ž—ȱ™›˜›Š––’Ž›Ž—ǵȱȱ ›œ’Œ‘•’Œ‘ȱ ’œǰȱ Šœœȱ Ž’—ȱ ž£Ž›”•’Œ”ȱ Šžȱ ž›˜™Šǰȱ ›’”Šȱ žœ ǯǰȱ ǯȱ ‘ǯȱ Šžȱ Ž’—Žȱ ŽȬ œŒ‘›’ž—ȱ Ž›ȱ ˜‹Ž›Ž—ǰȱ œ’Œ‘‹Š›Ž—ȱ Ž—û•Ž’œŽǰȱ •Ž’•’Œ‘ȱ Šœȱ ž‹•§Ž›—ȱ Žœȱ “ŽȬ  Ž’•’Ž—ȱŽ—ûœȱ£ž›ȱ˜•Žȱ‘Š‹Ž—ȱ–žœœȱȮȱŠœȱŠ‹Ž›ȱŽ›•Ž’ȱŽ•™‘’ȱœŒ‘˜—ȱû›ȱž—œǯȱȱ Ž——ȱ ’›ȱû‹Ž›‘Šž™ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ‘Ž›œŽ••Ž—ȱ–ûœœŽ—ǰȱŠ——ȱû›ȱŽ—ȱ •’Œ”ȱ ŠžȱŽ’—Ž—ȱŽ›ȱŠžŽ‹•§Ž›Ž—ȱ’—›§Žȱ’—ȱŽ’—Ž–ȱ›˜™˜ —ȬŽ—ûǯȱ’ŽœŽ›ȱž£Ž›Ȭ ”•’Œ”ȱ ’›ȱ–’ȱ’Œ‘Ž›‘Ž’ȱŠ•œȱŠ—Š›Ȭ›Ž’—’œȱŽ’—ŽœŽ••ȱœŽ’—ǯȱ ›˜‹’Ž›Ž—ȱ ’›ȱŽœȱŠžœǰȱ”•’Œ”Ž—ȱ ’›ȱ’–ȱ— ž›ȱ˜™™Ž•ȱŠžȱ›Š—”›Ž’Œ‘ǯȱŒ‘˜—ȱ‹ŽȬ ”˜––Ž—ȱ ’›ȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ£žŽ‘ã›’Žȱ›Ž’—’œ™›˜£Žž›ȱŽœŒ‘Ž—”DZȱȱ procedure TForm1.Frankreich1Click(Sender: TObject); begin ShowMessage('Der Nutzer hat >Frankreich< ausgewählt’) end;

ŠœȱŽ‘•ȱ—˜Œ‘ǵȱŠû›•’Œ‘ȱȮȱ’ŽȱŒ‘—Ž•• Š‘•‹žŒ‘œŠ‹Ž—ȱŽ‘•Ž—ǯȱȱ §‘•Ž—ȱ  ’›ȱ Ž’—ŠŒ‘ȱ —˜Œ‘ȱ Ž’—–Š•ȱ Šœȱ ¢–‹˜•ȱ û›ȱ Šœȱ Ž—ûȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ ž—ȱ—˜Œ‘ȱŽ’—–Š•ȱŽ—ȱŽ—ûȬ’˜›ǯȱŠ——ȱ§—Ž›—ȱ ’›ȱ’ŽȱŽœŒ‘›’ž—Ž—ȱŽ›ȱŽȬ —û£Ž’•Žȱ’—ȱ˜•Ž—Ž›ȱŽ’œŽȱŠ‹DZȱȱ Europa



&Europa,

Afrika



A&frika,

Asien



A&sien,

Amerika



A&merika

Australien



A&ustralien.

Š–’ȱœ’—ȱ’ŽȱŒ‘—Ž•• Š‘•‹žŒ‘œŠ‹Ž—ȱŽœŽ•Žȱǻœ’Ž‘Žȱ’•ȱřǯŘŗǼǯȱȱ ’ȱŽ›ȱû‹•’Œ‘Ž—ȱŠœŽ—”˜–‹’—Š’˜—ȱ Alt ȱƸȱŒ‘—Ž•• Š‘•‹žŒ‘œŠ‹Žȱ”ã——Ž—ȱ’Žȱ Ž—ûœȱŠ——ȱ’›Ž”ȱž—ȱœŒ‘—Ž••ȱŠ—Ž §‘•ȱž—ȱŠžŽ‹•§Ž›ȱ Ž›Ž—ǯȱ ȱ

śŞ

řȱȱŽ’Ž›ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ

ȱ ’•ȱřǯŘŗDZȱŒ‘—Ž•• Š‘•‹žŒ‘œŠ‹Ž—ȱ ȱ

ȱ

4

Ereignisprozeduren: Verwendung von properties ž—ȱ’œȱ’ŽȱŽ’ȱ›Ž’ǯȱŠ—œŠ–ȱ ’›ȱŽœȱ•Š— Ž’•’ǰȱ’––Ž›ȱ—ž›ȱŠ•œȱ—‘Š•ȱŽ’—Ž›ȱ›Ȭ Ž’—’œ™›˜£Žž›ȱ’ŽȱŽ’•Žȱȱ ShowMessage(‘dies oder das ist passiert‘)

£žȱ™›˜›Š––’Ž›Ž—ǯȱœȱŠœȱû‹Ž›‘Šž™ȱœŒ‘˜—ȱ›’Œ‘’ŽœȱǮ›˜›Š––’Ž›Ž—ȃǵȱŽ›ȱ –ûœœŽ—ȱ ’›ȱ‹Ž’–ȱ›’Œ‘’Ž—ȱ›˜›Š––’Ž›Ž—ȱ–Ž‘›ȱŽ—”Ž—ǵȱ’›ȱ Ž›Ž—ȱœŽ‘Ž—ǯȱ ’Žȱ —Š—œœŒ‘ ’Ž›’”Ž’Ž—ȱ ‹Ž’–ȱ –Š—ȱ –’ȱ Ž•™‘’ȱ ‘Š‹Ž—ȱ  ’›ȱ œ˜žŸŽ›§—ȱ û‹Ž› ž—Ž—ǯȱ’›ȱ”ã——Ž—ȱ’ŽȱŽ’—ŠŒ‘Ž—ȱŽ’Ž—Ž•Ž–Ž—Žȱž˜—ǰȱŠ‹Ž•ǰȱŽ¡Ž—œȬ Ž›ǰȱ‘ŽŒ”‹˜¡ǰȱŒ›˜••‹Š›ǰȱ ›ž™™Žȱ–’ȱŠ’˜‹ž˜—œȱŠžȱŽ–ȱ˜›–ž•Š›ȱ™•Š£’Ž›Ž—ȱž—ȱ ’–ȱ ‹“Ž”’—œ™Ž”˜›ȱ “Ž Ž’•œȱ Ÿ˜›Ž’—œŽ••Ž—ǰȱ  Ž•Œ‘Žȱ Š›Ž’Ž—œŒ‘ŠŽ—ȱ œ’Žȱ ž—ȱ Šœȱ ˜›–ž•Š›ȱ‘Š‹Ž—ȱœ˜••Ž—ǯȱȱ ’›ȱ”ã——Ž—ȱŠžŒ‘ȱ’ŽȱŠ—œ™›žŒ‘œŸ˜••Ž›Ž—ȱŽ’Ž—Ž•Ž–Ž—Žȱ’œŽǰȱ˜–‹˜‹˜¡ǰȱŠ’˜Ȭ ›ž™™Žȱž—ȱœ˜Š›ȱŽ’—ȱŽ—ûȱ’—ȱž—œŽ›ŽȱŽ—ž£Ž›˜‹Ž›•§Œ‘ŽȱŠž—Ž‘–Ž—ǯȱ ’Ž—•’Œ‘ȱ ’œœŽ—ȱ ’›ȱŠžŒ‘ȱœŒ‘˜—ǰȱ ’Žȱ ’›ȱû›ȱŠ••Žœǰȱ ŠœȱŽ’—ȱž£Ž›ȱœ˜ȱž—ȱž—ȱ –ŠŒ‘Ž—ȱ”Š——ǰȱŽ’—ŽȱŽŠ”’˜—ȱŽ›£ŽžŽ—ȱ”ã——Ž—DZȱŽ›ȱŠ‘–Ž—ȱû›ȱ’Žȱ™ŠœœŽ—Žȱ›Ȭ Ž’—’œ™›˜£Žž›ȱ’œȱ£žȱ‹ŽœŒ‘ŠŽ—ǰȱŽ›ȱ—‘Š•ȱ’œȱ£žȱœŒ‘›Ž’‹Ž—ǯȱŽ›’ǯȱȱ ˜Œ‘ȱ Šȱ œ’—ȱ  ’›ȱ  ’ŽŽ›ȱ ‹Ž’–ȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›Ž—ǯȱ Šœȱ  ’›ȱ ž—œŽ›ȱ ‘Ž–Šȱ Ž›Ž—ǯȱŽ’——Ž—ȱ ’›ȱŽ›—Žžȱ–’ȱŽ—ȱ’•Ž›—ȱŠžœȱŽ–ȱ Š™’Ž•ȱŘǯȱȱ

4.1

Einfache Mitteilungen ’—Žȱ ›Ž’—’œ™›˜£Žž›ȱ ”Š——ȱ ’–ȱ Ž’—ŠŒ‘œŽ—ȱ Š••ȱ •Ž’•’Œ‘ȱ Ž’—ȱ ’Ž’•ž—œŽ—œŽ›ȱ ŠžȱŽ–ȱ’•œŒ‘’›–ȱŽ›œŒ‘Ž’—Ž—ȱ•ŠœœŽ—ǯȱŠœȱ‘Š‹Ž—ȱ ’›ȱ‹’œ‘Ž›ȱŠžœû‘›•’Œ‘ȱŽ›•Ž‹ǯȱȱ ’•ȱŚǯŗȱ•§œœȱŠœȱŠžŒ‘ȱŽ›”Ž——Ž—DZȱ’ŽœŽȱ›Ž’—’œ™›˜£Žž›Ž—ȱ‘˜•Ž—ȱ—’Œ‘œȱŠžœȱŠȬ Ž—”Ž›—Ž—ȱ ž—ȱ •’ŽŽ›—ȱ —’Œ‘œȱ ’—ȱ ŠŽ—”Ž›—Žǯȱ ’Žȱ œ˜›Ž—ȱ Ž‹Ž—ȱ —ž›ȱ û›ȱ Ž’—ȱ ’Ž’Ȭ •ž—œŽ—œŽ›ǯȱŽ‘›ȱ—’Œ‘ǯȱ

4.2

Passiver Zugriff auf Datenkerne ’—Žȱ™›˜™Ž›¢ȱǻ’Ž—œŒ‘ŠǼȱ’œȱŽ’—ȱ’›Ž”Ž›ȱž›’œ–ŽŒ‘Š—’œ–žœǰȱ–’ȱŽœœŽ—ȱ ’•Žȱ œŒ‘—Ž••ȱŠ”’Ÿȱž—ȱ™Šœœ’ŸȱŠžȱŽ’—£Ž•—ŽȱŽœŠ—Ž’•ŽȱŽœȱŠŽ—”Ž›—œȱ£žŽ›’Ž—ȱ Ž›Ȭ Ž—ȱ”Š——ǯȱ’Žȱ”Š——ȱ’—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱŸŽ› Ž—Žȱ Ž›Ž—ǯȱ Ž›—Ž—ȱ ’›ȱ£žŽ›œȱ”Ž——Ž—ǰȱ ’ŽȱŽ’—Žȱ›Ž’—’œ™›˜£Žž›ȱ™Šœœ’Ÿȱ–’ȱŽ–ȱŽ’Ž—Ž—ȱŠȬ Ž—”Ž›—ȱž–Ž‘Ž—ȱ”Š——ǯȱȱ ȱȱ

ŜŖ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

ȱȱ ’•ȱŚǯŗDZȱ›Ž’—’œ™›˜£Žž›Ž—ȱŽ’—ŠŒ‘œŽ›ȱ›ȱ

4.2.1

Eigener Datenkern ŠœȱŽ’œŽ›‹•Šȱ  ȱŽœȱ‹“Ž”’—œ™Ž”˜›œȱ’—˜›–’Ž›ȱž—œȱû›ȱ“ŽŽœȱŸ’Ȭ œžŽ••Žȱ‹“Ž”ȱû‹Ž›ȱ’ŽȱŠ–Ž—ȱŽ›ȱ ’Œ‘’œŽ—ȱ™›˜™Ž›’ŽœDZȱŽ——ȱŠœȱœ’—ȱŽ—Šžȱ’Žȱ Ž£Ž’Œ‘—ž—Ž—ȱŽ›ȱŽ—œ™›ŽŒ‘Ž—Ž—ȱŽ’•Ž—ǯȱŽ’œ™’Ž•œ Ž’œŽȱ ’œœŽ—ȱ ’›ȱŠžœȱŽ–ȱ–Ȭ Š—ȱ–’ȱŽ–ȱ‹“Ž”’—œ™Ž”˜›ǰȱŠœœȱŽ›ȱ—‘Š•ȱŽ’—ŽœȱŽ¡Ž—œŽ›œȱǻ’•ȱŚǯŘǼȱ–’ȱ Ž›ȱ™›˜™Ž›¢ȱTextȱŸ˜›‹Ž›Ž’Žȱ Ž›Ž—ȱ”Š——ǯȱȱ

ȱȱ ’•ȱŚǯŘDZȱŠ–ŽȱŽ›ȱ™›˜™Ž›¢ǰȱŠžœȱŽ–ȱ‹“Ž”’—œ™Ž”˜›ȱ£žȱŽ›Š‘›Ž—ȱȱ Ž›ȱ—‘Š•ȱŽœȱŽ¡Ž—œŽ›œȱ‹Ž’—Žȱœ’Œ‘ȱ’›Ž— ˜ȱ’–ȱŠŽ—”Ž›—ǯȱ‹Ž›ȱ Ž’•ȱ ’›ȱ  ’œœŽ—ǰȱŠœœȱŽ’—Žȱ™›˜™Ž›¢ȱœŽœȱ£ Ž’œŽ’’ȱ ’›”ǰȱ”ã——Ž—ȱ ’›ȱ–’ȱ TextȱŽ—Šžȱœ˜ȱ žȱŠžŒ‘ȱŽ—ȱŽ—œŽ›’—‘Š•ȱŠžœȱŽ–ȱŠŽ—”Ž›—ȱ‘Ž›Šžœ‘˜•Ž—ȱž—ȱŸŽ›Š›‹Ž’Ž—ǯȱȱ ŽœŠȱȮȱŽŠ—ǯȱŒ‘—Ž••ȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ–Ž’œ‹Ž‘Š—Ž•Žȱž£Ž›Ž’— ’›”ž—ȱŠ—ȱ Ž–ȱŽ¡Ž—œŽ›ǰȱǯȱ‘ǯȱû›ȱŠœȱŠ—Š›Ȭ›Ž’—’œǰȱž›Œ‘ȱ˜™™Ž•”•’Œ”ȱ‹ŽœŒ‘Šȱǻœ’ŽȬ ‘Žȱ‹œŒ‘—’ȱŘǯŘǼǯȱȱ

ŚǯŘȱȱŠœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

Ŝŗ

ž—ȱ  ’›ȱ ŸŽ›•Š—ǰȱ Šžœȱ Ž–ȱ ŠŽ—”Ž›—ȱ Žœȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”œȱ Edit1ȱ –’ȱ ’•Žȱ Ž›ȱ™ŠœœŽ—Ž—ȱ™›˜™Ž›¢ǰȱŽ›Ž—ȱŠ–Ž—ȱ ’›ȱŠ•œȱ’Ž—œŒ‘Šȱ Textȱ—˜Œ‘ȱŠžœȱŽ›ȱ˜›Ȭ Ž’—œŽ••ž—ȱ’—ȱ›’——Ž›ž—ȱ‘Š‹Ž—ǰȱŽ—ȱŠ”žŽ••Ž—ȱ—‘Š•ȱ£žȱŽ›Š‘›Ž—ǯȱŽ‘Ž—ȱ ’›ȱž—œȱ Š—ǰȱ ’ŽȱŠœȱŽœŒ‘›’Ž‹Ž—ȱ ’›DZȱ procedure TForm1.Edit1Change(Sender: TObject); begin ShowMessage('Inhalt aktuell: '+ Edit1.Text)

ȱ

end; ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_421.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_421.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž’•ȱ Šœȱ ž—”’˜—’Ž›ǰȱ ”ã——Ž—ȱ  ’›ȱ –’ȱ ’•ȱ Śǯřȱ ž—œŽ›ȱ Œ‘Ž–Šȱ Ž›§—£Ž—DZȱ ’—Žȱ Ž›‹’—ž—ȱŠžœȱŽ–ȱŠŽ—”Ž›—ȱ’—ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ’œȱ‘’—£žŽ”˜––Ž—ǯȱ

ȱȱ ’•ȱŚǯřDZȱŠœœ’ŸŽ›ȱž›’ȱŠžȱŽ—ȱŽ’Ž—Ž—ȱŠŽ—”Ž›—ȱ

ŜŘ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

Ž‘Ž—ȱ ’›ȱž—œȱ’Žȱ’›”ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱŠ—DZȱŽ’ȱ“ŽŽ›ȱ —Ž›ž—ǰȱ’ŽȱŽ›ȱ ž£Ž›ȱ Š–ȱ —‘Š•ȱ Žœȱ Ž¡Ž—œŽ›œȱ –’ȱ Ž–ȱ Š–Ž—ȱ Edit1ȱ Ÿ˜›—’––ǰȱ  ’›ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱž›Œ‘ȱŽ—ȱ›Ž’—’œ‘§—•Ž›ȱŽœŠ›Žǯȱȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ ‘˜•ȱ Š——ȱ Šžœȱ Ž–ȱ ŠŽ—”Ž›—ȱ –’ȱ ’•Žȱ Ž›ȱ ’Ž—œŒ‘Šȱ ǻ™›˜™Ž›¢Ǽȱ TextȱŽ—ȱŠ”žŽ••Ž—ȱ—‘Š•ȱŽœȱŽ¡Ž—œŽ›œȱž—ȱ”ŽŽȱ’‘—ȱ›ŽŒ‘œȱŠ—ȱŽ—ȱ œŠ’œŒ‘Ž—ȱŽ¡ȱȇ—‘Š•ȱŠ”žŽ••DZȱȇȱŽœȱ’Ž’•ž—œŽ—œŽ›œȱŠ—ǯȱȱ ’•ȱŚǯŚȱ’œȱœ˜–’ȱŽ—œŠ—Ž—ǰȱŠ•œȱŽ›ȱž£Ž›ȱŽ›ŠŽȱŽ—ȱ•Ž£Ž—ȱžŒ‘œŠ‹Ž—ȱŸ˜–ȱ Š–Ž—ȱ ’ŽœŽȱ —ŽŽ—ȱ •–Š›”Ȭ˜›Žœȱ Ž•ãœŒ‘ȱ ‘ŠŽȱ Ȯȱ ŠžŒ‘ȱ Šœȱ  Š›ȱ Ž’—Žȱ —ŽȬ ›ž—ǯȱȱ

ȱȱȱ ’•ȱŚǯŚDZȱžœû‘›ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱȱ ’—ȱ£ Ž’ŽœȱŽ’œ™’Ž•DZȱŽ›ȱ‹“Ž”’—œ™Ž”˜›ȱ’—˜›–’Ž›ȱž—œǰȱŠœœȱ’Ž“Ž—’Žȱ™›˜™Ž›¢ǰȱ –’ȱŽ›Ž—ȱ ’•ŽȱŠžȱŽ—ȱŽ’•ȱŽœŒ‘›’ž—ȱŽœȱŠŽ—”Ž›—œȱŽ’—Žœȱž˜—Ȭ‹“Ž”œȱ£žȬ Ž›’Ž—ȱ  Ž›Ž—ȱ ”Š——ǰȱ Ž—ȱ Š–Ž—ȱ Captionȱ ›§ȱ Ȯȱ Ž——ȱ ’ŽœŽȱ Ž’•Žȱ Žœȱ ‹Ȭ “Ž”’—œ™Ž”˜›œȱ ‹Ž—ž£Ž—ȱ  ’›ȱ ‹Ž›Ž’œȱ ‹Ž’ȱ Ž—ȱ ˜›Ž’—œŽ••ž—Ž—ǯȱ ’ŽœŽȱ —˜›–ŠȬ ’˜—ȱ’œȱŠžœ›Ž’Œ‘Ž—ǯȱȱ

ȱȱȱ ’•ȱŚǯśDZȱ—˜›–Š’˜—ȱû‹Ž›ȱ’Žȱž˜—ȬŽœŒ‘›’ž—ȱȱ t‹Ž›£ŽžŽ—ȱ  ’›ȱ ž—œDZȱ •Š£’Ž›Ž—ȱ  ’›ȱ £ž›ȱ — Ž—ž—ȱ £žœ§£•’Œ‘ȱ £žȱ Ž–ȱ Ž¡Ȭ Ž—œŽ›ȱ Edit1ȱŽ’—Ž—ȱž˜—ȱǻŽ›ȱ‹Ž”˜––ȱŸ˜—ȱŽ•™‘’ȱŽ—ȱŠ–Ž—ȱButton1Ǽȱ–’ȱŽ›ȱ ŽœŒ‘›’ž—ȱŽ—•’—Ž—ȱŠžȱŽ–ȱ˜›–ž•Š›ǯȱž—ȱ”ã——Ž—ȱ ’›ȱŠû›ȱœ˜›Ž—ǰȱŠœœȱ ‹Ž’ȱ •’Œ”ȱŽœȱž£Ž›œȱŠžȱŽ—ȱž˜—ȱǻŠ—Š›Ȭ›Ž’—’œǼȱ’—ȱŽ’—Ž–ȱ’Ž’•ž—œŽ—œȬ Ž›ȱû‹Ž›ȱ’ŽȱŽœŒ‘›’ž—ȱŽœȱž˜—œȱ’—˜›–’Ž›ȱ ’›DZȱȱ

ŚǯŘȱȱŠœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

Ŝř

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Beschriftung:'+ Button1.Caption) end;

’•ȱŚǯśȱ•§œœȱŽ›”Ž——Ž—ǰȱŠœœȱŠ••ŽœȱŠžŒ‘ȱœ˜ȱž—”’˜—’Ž›ǰȱ ’Žȱ ’›ȱž—œȱŠœȱŸ˜›ŽȬ œŽ••ȱ‘Š‹Ž—ǯȱȱ

˜––Ž—ȱ ’›ȱ£ž–ȱŽŽ• Ž›”DZȱȱ  žŽ›œȱ–ûœœŽ—ȱ ’›ȱŽ—ȱŠ–Ž—ȱŽœ“Ž—’Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱŠ—Ž‹Ž—ǰȱŠžœȱŽœȬ œŽ—ȱŠŽ—”Ž›—ȱ ’›ȱŽ ŠœȱŽ›Š‘›Ž—ȱ ˜••Ž—ǯȱȱ ’ȱŽ—ȱ㐕’Œ‘”Ž’Ž—ȱŽ›ȱ Š–Ž—œ Š‘•ȱŽ›ȱŸ’œžŽ••Ž—ȱ‹“Ž”ŽȱǻŽ’Ž—ŽȱŠ‘•ȱ˜Ž›ȱ ”£Ž™’Ž›Ž—ȱŽœȱŸ˜—ȱŽ•™‘’ȱŸ˜›ŽœŒ‘•ŠŽ—Ž—ȱŠ–Ž—œǼȱ‘ŠŽȱœ’Œ‘ȱœŒ‘˜—ȱŽ›ȱ‹Ȭ œŒ‘—’ȱ ŗǯŚǯŘȱ ‹ŽœŒ‘§’ǯȱ ’œ‘Ž›ȱ Š›‹Ž’ŽŽ—ȱ  ’›ȱ ”˜—œŽšžŽ—ȱ –’ȱ Ž—ȱ Ÿ˜—ȱ Ž•™‘’ȱ Ÿ˜›ŽœŒ‘•ŠŽ—Ž—ȱŠ–Ž—ǯȱȱ

ȱȱ ’•ȱŚǯŜDZȱŠ–ŽȱŽ’—ŽœȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱȱ Ž›ȱŠ–ŽȱŽ’—ŽœȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱ’œȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱœ˜ ˜‘•ȱ’—ȱŽ›ȱ ˜™£Ž’•Žȱ ž—ȱ£žœ§£•’Œ‘ȱ —˜Œ‘ȱ —Ž‹Ž—ȱ Ž›ȱ ’Ž—œŒ‘Šȱ ǻ™›˜™Ž›¢Ǽȱ Nameǰȱ ǯȱ ‘ǯȱ’—ȱŽ›ȱ Ž’•Žȱ –’ȱ Ž›ȱŽœŒ‘›’ž—ȱNameǰȱŠ‹£ž•ŽœŽ—ȱǻ’•ȱŚǯŜǼǯȱ  ŠŒ‘ȱŽ–ȱŠ–Ž—ȱ”˜––ȱ’––Ž›ȱŽ’—ȱž—”ǯȱŠœȱŽ‘㛝ȱ£ž–ȱŽŽ• Ž›”ǯȱȱ  ŽŒ‘œȱŸ˜–ȱž—”ȱ”˜––ȱŠ——ȱŽ›ȱŠ–ŽȱŽ›“Ž—’Ž—ȱ™›˜™Ž›¢ȱǻ’Ž—œŒ‘ŠǼǰȱ’Žȱ Ž—ȱ›Š—œ™˜›Ÿ˜›Š—ȱŠžœȱŽ–ȱŠŽ—”Ž›—ȱŸ˜›—’––ǯȱȱ Ž—ȱ Š–Ž—ȱ Ž›ȱ ™›˜™Ž›¢ȱ Ž›ž‘›Ž—ȱ  ’›ȱ ‹’œ‘Ž›ȱ œŽœȱ Šžœȱ Ž›ȱ Ž’œŽ›”Š›Žȱ Ȭ  ȱŽœȱ‹“Ž”’—œ™Ž”˜›œǰȱ’—œ‹Žœ˜—Ž›ŽȱŸ˜—ȱŽ—ȱ˜›ȱŸ˜›Ž—˜––Ž—Ž—ȱ ˜›Ž’—œŽ••ž—Ž—ǯȱȱ ‹Ž›ȱ—’Œ‘ȱŠ••Žȱ™›˜™Ž›’Žœǰȱ’Žȱ’—ȱŽ•™‘’ȱŽ—ȱ’›Ž”Ž—ȱŠ”’ŸŽ—ȱž—ȱ™Šœœ’ŸŽ—ȱž›’ȱ Šžȱ Ž—ȱ ŠŽ—”Ž›—ȱ Ž’—Žœȱ ‹“Ž”Žœȱ Ž›•Šž‹Ž—ǰȱ œ’—ȱ ’–ȱ ‹“Ž”’—œ™Ž”˜›ȱ ž—Ž›ȱ Ȭ  ȱŠžŽ•’œŽǯȱ˜›ȱœŽ‘Ž—ȱ—ž›ȱ’Žȱ ’Œ‘’œŽ—ǯȱȱ –ȱ‹œŒ‘—’ȱŚǯŝǯřȱŽ›Š‘›Ž—ȱ ’›ǰȱ ’Žȱ–Š—ȱ’ŽȱŠ–Ž—ȱ Ž’Ž›Ž›ȱ™›˜™Ž›’Žœȱ’—Ž—ȱ ”Š——ǯȱ ’ŽŽ›ȱ ’Žȱ ™›˜™Ž›¢ȱ Ž’—Žȱ Ž’Œ‘Ž—˜•Žȱ ǻŽ’—Ž—ȱ Ž¡Ǽǰȱ ”Š——ȱ ’ŽœŽȱ ’—ȱ Ž’—Ž›ȱ ShowMessageȬ›˜£Žž›ȱœ˜˜›ȱŸŽ› Ž—Žȱ Ž›Ž—ǰȱŽŽ‹Ž—Ž—Š••œȱ’—ȱŽ›‹’—ž—ȱ–’ȱŽ’Ȭ —Ž–ȱŽ›•§žŽ›—Ž—ȱœŠ’œŒ‘Ž—ȱŽ¡ȱȮȱœ’Ž‘Žȱž—œŽ›Žȱ‹Ž’Ž—ȱŽ’œ™’Ž•Žǯȱȱ •œȱŽ›”Žž—œ£Ž’Œ‘Ž—ȱ’Ž—ȱŠ‹Ž’ȱŠœȱ‹Ž”Š——Žȱ•žœ£Ž’Œ‘Ž—ǯȱ

ŜŚ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

4.2.2

Datenkerne fremder Objekte Ž›ȱ œŠȱ Ž——ȱ Ž’Ž—•’Œ‘ǰȱ Šœœȱ Ž’—Žȱ ›Ž’—’œ™›˜£Žž›ȱ —’Œ‘ȱ ŠžŒ‘ȱ ’—ȱ ’Žȱ ŠŽ—Ȭ ”Ž›—Žȱ›Ž–Ž›ȱŸ’œžŽ••Ž›ȱ‹“Ž”Žȱ‘’—Ž’—›Ž’Ž—ȱŠ›ǵȱ™›’Œ‘ȱ’›Ž—ȱŽ ŠœȱŠŽŽ—ǵȱ Šœȱ ’•ȱŚǯŝȱœ”’££’Ž›ȱ ž—œȱŽ—ȱ ŽŒ‘Š—’œ–žœǰȱž—ȱŠ—ȱ Ž’—Ž–ȱ Ž’—ŠŒ‘Ž—ȱ Ž’œ™’Ž•ȱ  Ž›Ž—ȱ ’›ȱž—œȱû‹Ž›£ŽžŽ—ǰȱŠœœȱ ’›ȱŠû›ȱŠ‹œ˜•žȱ—’Œ‘œȱ‘’—£ž•Ž›—Ž—ȱ–ûœœŽ—ǯȱȱ

ȱ ’•ȱŚǯŝDZȱ›’—£’™DZȱŠœœ’ŸŽ›ȱž›’ȱŠžȱŽ’—Ž—ȱ›Ž–Ž—ȱŠŽ—”Ž›—ȱ Ž›ŠŒ‘Ž—ȱ  ’›ȱ ˜•Ž—Žȱ Ž’—ŠŒ‘Žȱ žŠ‹ŽDZȱ žȱ Ž’—Ž–ȱ ˜›–ž•Š›ȱ œ’—ȱ ›’—œȱ ž–ȱ Ž’—Ž—ȱž˜—ȱŽ’—ȱŠ‹Ž•ǰȱŽ’—ȱŽ¡Ž—œŽ›ǰȱŽ’—Žȱ‘ŽŒ”‹˜¡ȱž—ȱŽ’—ȱŠ’˜‹ž˜—ȱ–’ȱ’‘Ȭ ›Ž—ȱ—‘Š•Ž—ȱ‹£ ǯȱŽœŒ‘›’ž—Ž—ȱŠ—Ž˜›—Žȱǻ’•ȱŚǯŞǼǯȱȱ Ž’ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱœ˜••Ž—ȱ’—ȱŽ’—Ž›ȱ’Ž’•ž—ȱŽ›ȱ—‘Š•ȱŽ›ȱŽ¡‹˜¡ȱœ˜ ’Žȱ’Žȱ ›Ž’ȱ ŽœŒ‘›’ž—Ž—ȱ Ÿ˜—ȱ Š‹Ž•ǰȱ ‘ŽŒ”‹˜¡ȱ ž—ȱ Š’˜‹ž˜—ȱ £žœŠ––Ž—ŽŠœœȱ  Ž›Ȭ Ž—ǯȱȱ

ȱȱȱ ’•ȱŚǯŞDZȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱ

ŚǯŘȱȱŠœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

Ŝś

’Žȱ œ’Ž‘ȱ Ž›ȱ £žŽ‘ã›’Žȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ ›Ž’—’œȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱŠžœǵȱŽ—‹Š›ȱ–ûœœŽ—ȱ’—ȱ’‘›ȱ–’ȱ ’•ŽȱŽ›ȱŸ’Ž›ȱ™ŠœœŽ—Ž—ȱ›Š—œ™˜›Ȭ™›˜™Ž›Ȭ ’Žœȱ’Žȱ“Ž Ž’•’Ž—ȱŽœŒ‘›’ž—Ž—ȱ‹£ ǯȱŽ›ȱ—‘Š•ȱŽœȱŽ¡Ž—œŽ›œȱŠžœȱŽ—ȱŠŽ—Ȭ ”Ž›—Ž—ȱŽ‘˜•ȱ Ž›Ž—DZȱȱ procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Label1.Caption

+ Edit1.Text +

Checkbox1.Caption + RadioButton1.Caption) end;

˜—›˜••’Ž›Ž—ȱ ’›ȱŠœȱ›Ž‹—’œȱȮȱ’—ȱ’•ȱŚǯşȱœŽ‘Ž—ȱ ’›ȱŽœǯȱ

ȱȱȱ ’•ȱŚǯşDZȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ

ȱ

—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ ž›Žȱž›Œ‘ȱŽ›Ž’•ž—ȱŠžȱ–Ž‘›Ž›ŽȱŽ’•Ž—ȱû‹Ž›œ’Œ‘Ȭ •’Œ‘ȱŽœŒ‘›’Ž‹Ž—ǰȱŠœȱ’œȱŠžŒ‘ȱŽ›•Šž‹ǯȱȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4!ȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_422.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_422.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ’ŽȱŸ’Ž›ȱŽ’Œ‘Ž—˜•Ž—ǰȱ’ŽȱŠžœȱŽ—ȱŸ’Ž›ȱŠŽ—”Ž›—Ž—ȱŽ‘˜•ȱ ž›Ž—ǰȱ Ž›Ž—ȱ’—ȱ ’•ȱ Śǯşȱ ž—–’Ž•‹Š›ȱ Š—Ž’—Š—Ž›ȱ ŽœŒ‘›’Ž‹Ž—ǯȱ ˜’œŒ‘ȱ Ȯȱ  ’›ȱ ‘Š‹Ž—ȱ ŠžŒ‘ȱ —’Œ‘œȱ —Ž›Žœȱ™›˜›Š––’Ž›ǯȱȱ

› Ž’Ž›—ȱ  ’›ȱ Š‹Ž›ȱ Ž—ȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ ›Ž’–Š•ȱ ž›Œ‘ȱ Ž—ȱ œŠ’Ȭ œŒ‘Ž—ȱ Ž¡ȱ '>>',ȱ Ž›‘Š•Ž—ȱ  ’›ȱ ‹Ž’–ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ —Šû›•’Œ‘ȱ Ž’—Žȱ Š—Ž›Žǰȱ ‹ŽœœŽ›ŽȱžœŠ‹Žǰȱ ’Žȱ’—ȱ’•ȱŚǯŗŖȱ”˜—›˜••’Ž›ȱ Ž›Ž—ȱ”Š——ǯȱȱ

ŜŜ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

ȱprocedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Label1.Caption+'>>'+ Edit1.Text+'>>'+ Checkbox1.Caption+'>>'+ RadioButton1.Caption ) end;

t‹›’Ž—œȱȮȱ Ž–ȱŽ›ȱŠ–Žȱ˜Ž›ȱ£ž–’—Žœȱ’ŽȱŒ‘›Ž’‹ Ž’œŽȱŽœȱŽ’—Ž—ȱ˜Ž›ȱŠ—Ȭ Ž›Ž—ȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”œȱ Ž—Š••Ž—ȱ œ˜••ŽDZȱ –ȱ ˜™ȱ Žœȱ ‹“Ž”’—œ™Ž”˜›œȱ ‹Ž’—Žȱ œ’Œ‘ȱ Ž’—Žȱ ˜–‹˜‹˜¡ȱ –’ȱ Š••Ž—ȱ Š–Ž—ȱ Š••Ž›ȱ ‹“Ž”Žǰȱ ’Žȱ œ’Œ‘ȱ Ž›£Ž’ȱ Šžȱ Ž–ȱ ˜›Ȭ –ž•Š›ȱ‹Ž’—Ž—ǰȱŽ’—œŒ‘•’Žđ•’Œ‘ȱŽœȱ˜›–ž•Š›—Š–Ž—œȱǻ’•ȱŚǯŗŗǼǯȱȱ

ȱȱ ’•ȱŚǯŗŖDZȱŽ›‹ŽœœŽ›ŽȱžœŠ‹Žȱž›Œ‘ȱ’—ûŽ—ȱœŠ’œŒ‘Ž›ȱŽ¡Žȱȱ

ȱȱȱ ’•ȱŚǯŗŗDZȱŠ–Ž—œû‹Ž›œ’Œ‘ȱû‹Ž›ȱŠ••ŽȱŸ’œžŽ••Ž—ȱ‹“Ž”Žȱ

ȱȱ

4.3

Aktiver Zugriff auf Datenkerne

4.3.1

Eigener Datenkern ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_431.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_431.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

Śǯřȱȱ”’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

Ŝŝ

’—ŽȱŠ—£ȱŽ’—ŠŒ‘ŽȱžŠ‹Ž—œŽ••ž—ȱœ˜••ȱž—œȱŽ—ȱžŠ—ȱ£ž›ȱ㜞—ȱŽ›Š›’Ȭ Ž›ȱ ›˜‹•Ž–Žȱ ㏏—Ž—DZȱ žȱ Ž’—Ž–ȱ ˜›–ž•Š›ȱ ‹Ž’—Žȱ œ’Œ‘ȱ Ž’—ȱ ž˜—ǰȱ Š—Š—œȱ ›§ȱŽ›ȱ’ŽȱŽœŒ‘›’ž—ȱȱStart ǯȱȱ Ž’–ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ œ˜••ȱ œ’Œ‘ȱ œŽ’—Žȱ Ž’Ž—Žȱ ŽœŒ‘›’ž—ȱ ’—ȱ Stop ȱ §—Ž›—ǯȱ Ž›ŠŒ‘Ž—ȱ ’›ȱŠ£žȱ•Ž’Œ‘ȱ’Žȱ›Ž’—’œ™›˜£Žž›ǯȱȱ procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption:='Stop' end;

Ž›ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ‹ŽœŽ‘ȱŠžœȱŽ–ȱŽŽ‘•ȱȱ Button1.Caption:='Stop'

Šœȱ’œȱŽ’—ȱž Ž’œž—œ‹ŽŽ‘•ǯȱŽŒ‘œȱœŽ‘ȱ’ŽȱžŽ••Žǰȱ•’—”œȱœŽ‘ȱŠœȱ’Ž•ǯȱŠœȱŽ’Ȭ Œ‘Ž—ȱDZƽȱ ’›ȱŽ›’‹ȱœ’Œ‘ȱŠžœȱŽœ™›˜Œ‘Ž—ǯȱ ’ŽœŽ›ȱ ž Ž’œž—œ‹ŽŽ‘•ȱ œ˜›ȱ Šû›ǰȱ Šœœȱ Ž›ȱ œŠ’œŒ‘Žȱ Ž¡ȱ ‘Stop‘ȱ –’Ž•œȱ Ž›ȱ ’Ž—œŒ‘Šȱ ǻ™›˜™Ž›¢Ǽȱ Captionȱ ’—ȱ Ž—ȱ ŠŽ—”Ž›—ȱ Žœȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”œȱ Button1ȱ ‘’—Ž’—ȱ›Š—œ™˜›’Ž›ȱ ’›ǯȱ ˜––ȱŽ›ȱ—ŽžŽȱŽ¡ȱ˜›ȱŠ—ǰȱ ’›ȱœ˜˜›ȱŽ›ȱœ’Œ‘Ȭ ‹Š›ŽȱŽ’•ȱŸŽ›§—Ž›ȱȮȱ’ŽȱŽœŒ‘›’ž—ȱ ŽŒ‘œŽ•ȱǻ’•ȱŚǯŗŘǼǯȱ ’›ȱ Š—œŒ‘•’ŽđŽ—ȱ —˜Œ‘ȱ Ž’—–Š•ȱ Šžȱ Ž—ȱ ž˜—ȱ Ž”•’Œ”ǰȱ ™Šœœ’Ž›ȱ —Šû›•’Œ‘ȱ —’Œ‘œȱ–Ž‘›ǯȱŽ›ȱ˜Œ‘ǵȱt‹Ž›•ŽŽ—ȱ ’›DZȱŽ’–ȱ£ Ž’Ž—ȱ •’Œ”ȱ ’›ȱ ’ŽŽ›ž–ȱŽ›ȱ œŠ’œŒ‘ŽȱŽ¡ȱ ‘Stop‘ȱŸ’ŠȱŠŽ—”Ž›—ȱ£ž›ȱŽœŒ‘›’ž—ȱŽœȱž˜—œȱŽœŒ‘’Œ”ǯȱ’›ȱ ‹Ž–Ž›”Ž—ȱŠœȱ—ž›ȱ—’Œ‘ǰȱ Ž’•ȱœ’Œ‘ȱŠ——ȱ’ŽȱŽœŒ‘›’ž—ȱ—’Œ‘ȱ–Ž‘›ȱ§—Ž›ǯȱŠœȬ œŽ•‹Žȱ‹Ž’–ȱ›’Ž—ǰȱŸ’Ž›Ž—ǰȱû—Ž—ȱ •’Œ”ȱžœ ǯȱ˜••’Œ‘ȱ™Šœœ’Ž›ȱ˜Œ‘ȱ“ŽŽœȱŠ•ȱ Ž Šœǰȱ ’›ȱ‹Ž–Ž›”Ž—ȱŽœȱ—ž›ȱ—’Œ‘ǯȱ

ȱȱȱ ’•ȱŚǯŗŘDZȱ˜›ȱž—ȱ—ŠŒ‘ȱŽ–ȱŽ›œŽ—ȱ •’Œ”ȱȱȱȱ

4.3.2

Datenkerne fremder Objekte Ž£ȱ  ’›ȱ Žœȱ•Š—œŠ–ȱ ’—Ž›ŽœœŠ—ǯȱ ‹Ž—ȱ ‘Š‹Ž—ȱ  ’›ȱ Ž›•Ž‹ǰȱ  ’Žȱ –’Ž•œȱ Ž’—Ž›ȱ ›Ȭ Ž’—’œ™›˜£Žž›ȱŽ’—Žȱ‹Žœ’––ŽȱŽ•Žž—ȱ’—ȱŽ’—Ž—ȱŠŽ—”Ž›—ȱ‘’—Ž’—Ž‹›ŠŒ‘ȱ Ž›Ž—ȱ ”Š——ȱ ž—ȱ ˜••’Œ‘ȱ Š–ȱ “Ž Ž’•’Ž—ȱ Ž’Ž—Ž•Ž–Ž—ȱ œ’Œ‘‹Š›Žȱ Ž›§—Ž›ž—Ž—ȱ Ž›£ŽžȬ Ž—ȱ ”Š——ǯȱ Šû›•’Œ‘ȱ ž—”’˜—’Ž›ȱ Šœȱ ŠžŒ‘ȱ ’—ȱ ›Ž–Ž—ȱ ŠŽ—”Ž›—Ž—ȱ Ȯȱ  ’›ȱ ‹›ŠžȬ Œ‘Ž—ȱž—œȱŠ£žȱ—ž›ȱ—˜Œ‘ȱŽ’—–Š•ȱ’Žȱ”’££Žȱ’—ȱ’•ȱŚǯŝȱŠ—£žœŽ‘Ž—ǯȱȱ ’—ȱ™ŠŠ›ȱŽ’œ™’Ž•ŽȱŠ£žDZȱžŽ›œȱ™•Š£’Ž›Ž—ȱ ’›ȱŠžȱŽ–ȱ˜›–ž•Š›ȱŽ’—Ž—ȱ ž˜—ȱ ž—ȱŽ’—ȱŠ‹Ž•ǯȱŠœȱŠ‹Ž•ȱ˜‘—ŽȱŠ›‹ŽœŒ‘›’ž—ǯȱȱ

ŜŞ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

ȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_432.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_432.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž’–ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ ǻŠ—Š›Ž›Ž’—’œǼȱ œ˜••ȱ Šœȱ Š‹Ž•ȱ ‹ŽœŒ‘›’Žȱ  Ž›Ž—ȱ –’ȱŽ›ȱœŒ‘ã—Ž—ȱŽ’Œ‘Ž—˜•ŽȱŽ—•’—Ž—ǯȱ’Žȱ㜞—DZȱ procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:='Uenglingen' end;

§Œ‘œŽœȱŽ’œ™’Ž•DZȱžȱŽ–ȱ˜›–ž•Š›ȱ Ž›Ž—ȱ£žœ§£•’Œ‘ȱŽ’—ȱ£ Ž’Ž›ȱž˜—ȱž—ȱ Ž’—Žȱ  ŠŠŽ›ŽŒ‘Žȱ Œ›˜••‹Š›ȱ Š—Ž˜›—Žǯȱ Š›Ž’—œŽ••ž—ȱ Ž›ȱ Œ›˜••‹Š›DZȱ Š¡’Ȭ –ž–ƽŗŖŖǰȱ ’—’–ž–ƽŖǰȱ ˜œ’’˜—ƽŖȱǻ ’Žȱ ’—ȱ ’‘›Ž–ȱ ‹“Ž”’—œ™Ž”˜›ȱ —Ž‹Ž—ȱ Ž—ȱ’Ȭ Ž—œŒ‘ŠŽ—ȱ Maxǰȱ Minȱž—ȱ PositionȱŠ—Ž‹˜Ž—ǼǯȱžŠ‹ŽDZȱŽ’–ȱ •’Œ”ȱŠžȱŽ—ȱžȬ ˜—ȱœ˜••ȱ’Žȱ˜œ’’˜—ȱŽœȱŽ•Ž›œȱŠžȱŝśȱ ŽŒ‘œŽ•—ǯȱ›Ž’—’œ™›˜£Žž›DZȱȱ procedure TForm1.Button2Click(Sender: TObject); begin ScrollBar1.Position:=75 end;

ž—ȱ œŽ‘ȱ Šžȱ Ž›ȱ ›ŽŒ‘Ž—ȱ ǻžŽ••ȬǼȱŽ’Žȱ Žœȱ ž Ž’œž—œ‹ŽŽ‘•œȱ Ž’—Žȱ Š‘•Dzȱ Šœȱ ’œȱ ŠžŒ‘ȱ ”˜››Ž”ǰȱ  Ž’•ȱ ’Žȱ ˜œ’’˜—ȱ Žœȱ Ž•Ž›œȱ ’—ȱ Ž›ȱ Œ›˜••‹Š›ȱ Ž‹Ž—ȱ ž›Œ‘ȱ Ž’—Ž—ȱ Š‘•Ž— Ž›ȱ‹ŽœŒ‘›’Ž‹Ž—ȱ ’›ǯȱ

ȱȱ ’•ȱŚǯŗřDZȱ˜›ȱž—ȱ—ŠŒ‘ȱŽ–ȱ •’Œ”ȱ –ȱ—§Œ‘œŽ—ȱŽ’œ™’Ž•ȱ ˜••Ž—ȱ ’›ȱ’ŽȱžŠ‹ŽȱŠžœȱ’•ȱŚǯŞȱž–Ž”Ž‘›ȱ•ãœŽ—ǯȱžȱ Ž–ȱ˜›–ž•Š›ȱœ’—ȱ›’—œȱž–ȱŽ’—Ž—ȱ Ž’Ž›Ž—ȱž˜—ȱŽ’—ȱŠ‹Ž•ǰȱŽ’—Žȱ‘ŽŒ”‹˜¡ǰȱŽ’—ȱ Š’˜‹ž˜—ȱ –’ȱ ’‘›Ž—ȱ ŽœŒ‘›’ž—Ž—ȱ ž—ȱ Ž’—ȱ Ž¡Ž—œŽ›ȱ –’ȱ œŽ’—Ž–ȱ Š›’—‘Š•ȱ Š—Ž˜›—Žȱǻ’•ȱŚǯŞǼǯȱ

Śǯřȱȱ”’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

Ŝş

’Žȱ ŽœŒ‘›’ž—Ž—ȱ •ŠžŽ—ȱ Nordenǰȱ Westenǰȱ Ostenǰȱ Šœȱ Ž¡Ž—œŽ›ȱ ‘Šȱ Š—Š—œȱ Ž—ȱ —‘Š•ȱ SüdenǯȱŽ’–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱǻŠ—Š›Ȭ›Ž’—’œǼȱœ˜••Ž—ȱœ’ŽȱœŠŽœœŽ—ȱ ’ŽȱŽœŒ‘›’ž—Ž—ȱNordǰȱWestǰȱOstȱ‹£ ǯȱŽ—ȱ—‘Š•ȱSüdȱŽ›‘Š•Ž—ȱǻ’•ȱŚǯŗŚǼǯȱ

ȱȱȱ ’•ȱŚǯŗŚDZȱ˜›ȱž—ȱ—ŠŒ‘ȱŽ–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ —ȱ Ž›ȱ £žŽ‘ã›’Ž—ȱ ›Ž’—’œ™›˜£Žž›ȱ œŽ‘Ž—ȱ  ’›ȱ Ž›œ–Š•’ȱ Šœȱ Ž–’”˜•˜—ȱ Š•œȱ ›Ž——£Ž’Œ‘Ž—ȱ£ ’œŒ‘Ž—ȱŽ—ȱž Ž’œž—œ‹ŽŽ‘•Ž—ǯȱžŒ‘ȱ Ž——ȱ’ŽȱŽŽ‘•Žȱž—Ž›Ȭ Ž’—Š—Ž›ȱœŽ‘Ž—ȱœ˜••Ž—ȱȮȱŠœȱŽ’•Ž—Ž—Žȱ”Š——ȱ—’Ž–Š•œȱŠœȱ›Ž——Ž—ŽȱŽ–’”˜•˜—ȱŽ›Ȭ œŽ£Ž—ǯȱȱ procedure TForm1.Button3Click(Sender: TObject); begin Label2.Caption:='Nord';

//Trennzeichen nötig

RadioButton1.Caption:='Ost';

//Trennzeichen nötig

Edit1.Text:='Süd';

//Trennzeichen nötig

CheckBox1.Caption:='West' end;

› Ž’Ž›—ȱ ’›ȱ’ŽȱžŠ‹Ž—œŽ••ž—DZȱž—ȱœ˜••ȱ£žœ§£•’Œ‘ȱ‹Ž’–ȱ •’Œ”ȱŠžȱŽ—ȱžȬ ˜—ȱǻǯȱ‘ǯȱ‹Ž’ȱŽ–œŽ•‹Ž—ȱ›Ž’—’œǼȱ’Žȱ‘ŽŒ”‹˜¡ȱŽ—ȱ Š”Ž—ȱž—ȱŽ›ȱŠ’˜‹ž˜—ȱ’Žȱ Š›”’Ž›ž—ȱ‹Ž”˜––Ž—ȱǻ’•ȱŚǯŗśǼǯȱȱ

ȱȱ ’•ȱŚǯŗśDZȱŠŒ‘ȱŽ–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ǰȱŽ› Ž’Ž›ŽȱžŠ‹Ž—œŽ••ž—ȱ

ŝŖ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

Ž•Œ‘Žȱ ž Ž’œž—œ‹ŽŽ‘•Žȱ –ûœœŽ—ȱ  ’›ȱ û›ȱ ’ŽœŽȱ Ž› Ž’Ž›Žȱ žŠ‹Ž—œŽ••ž—ȱ £žœ§£•’Œ‘ȱ’—ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱŠž—Ž‘–Ž—ǵȱȱ Ž‘Ž—ȱ ’›ȱž—œȱ£žŽ›œȱ’Žȱ㜞—ȱŠ—ǯȱȱ procedure TForm1.Button3Click(Sender: TObject); begin Label2.Caption:='Nord';

//Trennzeichen nötig

RadioButton1.Caption:='Ost';

//Trennzeichen nötig

Edit1.Text:='Süd';

//Trennzeichen nötig

CheckBox1.Caption:='West';

//Trennzeichen nötig

Checkbox1.Checked:=True;

//Trennzeichen nötig

RadioButton1.Checked:=True end;

Š›ž–ȱ–žœœŽ—ȱ ’›ȱ’Žȱ˜”Š‹Ž•ȱ TrueȱŠžȱ’Žȱ›ŽŒ‘Ž—ȱŽ’Ž—ȱŽ›ȱ‹Ž’Ž—ȱ‘’—£žȬ Ž”˜––Ž—Ž—ȱž Ž’œž—Ž—ȱœŒ‘›Ž’‹Ž—ǵȱȱ ’Žȱ— ˜›ȱŠ›Šžȱ’—Ž—ȱ ’›ǰȱ ’ŽŽ›ȱŽ’—–Š•ǰȱ’–ȱŽ’œŽ›‹•Šȱ  ȱ Ž›ȱ‹“Ž”’—œ™Ž”˜›Ž—ȱû›ȱ‘ŽŒ”‹˜¡ȱž—ȱŠ’˜‹ž˜—ǯȱ˜›ȱ’—Ž—ȱ ’›ȱ£žŽ›œǰȱŠœœȱ ’Žȱ ‹Ž’Ž—ȱ ’Ž—œŒ‘ŠŽ—ȱ ǻ™›˜™Ž›’ŽœǼǰȱ ’Žȱ ’Žȱ Ž•Žž—Ž—ȱ ’–ȱ ŠŽ—”Ž›—ȱ ŸŽ›Š—Ȭ •ŠœœŽ—ȱ ǻ˜Ž›ȱ •’ŽŽ›—Ǽǰȱ ‹Ž’Žȱ Š•ŽȱŠžȱ Ž—ȱ Š–Ž—ȱ Checkedȱ ‘㛎—ȱ ǻ’•ȱ ŚǯŗŜDzȱ ŸŽ›Ȭ •Ž’Œ‘ŽȱŠžŒ‘ȱŽ—ȱ‹œŒ‘—’ȱŘǯŚǯřǼǯȱȱȱ

ȱȱȱ ’•ȱŚǯŗŜDZȱŽ•Žž—œ™›˜™Ž›¢ȱŸ˜—ȱ‘ŽŒ”‹˜¡ȱž—ȱŠ’˜‹ž˜—ȱ Šœȱ’œȱ˜›ȱ£žȱŽ›”Ž——Ž—ǵȱ’Žȱ™›˜™Ž›¢ȱ Checkedȱ–žœœȱ‹Ž’ȱ‹Ž’Ž—ȱŽ’Ž—Ž•Ž–Ž—Ȭ Ž—ȱ–’ȱŽ’—Ž–ȱŽ›ȱ‹Ž’Ž—ȱ •˜’œŒ‘Ž—ȱŽ›Žȱ FalseȱǻŠ•œŒ‘Ǽȱ˜Ž›ȱ Trueȱǻ Š‘›Ǽȱ‹Ž•Žȱ  Ž›Ž—ǯȱȱ ˜›•Ž£ŽœȱŽ’œ™’Ž•ȱ’—ȱ’ŽœŽ–ȱ‹œŒ‘—’DZȱžȱŽ–ȱ˜›–ž•Š›ȱ‹Ž’—Žȱœ’Œ‘ȱ Ž’Ž›ȱ Ž’—ŽȱŠ’˜›ž™™ŽȱǻŸ•ǯȱ‹œŒ‘—’ȱřǯřǼǰȱ‹Ž•Žȱ–’ȱŽ—ȱŠ–Ž—ȱŽ›ȱœŽŒ‘£Ž‘—ȱŽžȬ œŒ‘Ž—ȱŠ—Žœ‘Šž™œ§ŽǯȱžȱŽ’——ȱŽ›ȱŠž£Ž’ȱœ˜••ȱ”Ž’—ŽȱŠ—Žœ‘Šž™œŠȱ ’ŽȱŠ›”’Ž›ž—ȱ‹Žœ’£Ž—ǯȱȱ

Śǯřȱȱ”’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

ŝŗ

ž—ȱ ’Žȱ žŠ‹ŽDZȱ Ž’ȱ “ŽŽ–ȱ •’Œ”ȱ ’—ȱ Ž›ȱ Š’˜›ž™™Žȱ ǻŠ—Š›Ȭ›Ž’—’œǼȱ œ˜••ȱ —’Œ‘ȱŽ Šȱ’ŽȱŠžœŽ §‘•ŽȱŠ—Žœ‘Šž™œŠȱ’ŽȱŠ›”’Ž›ž—ȱ‹Ž”˜––Ž—ǰȱœ˜—Ȭ Ž›—ȱœŽœȱ’ŽȱŽ—›Š•ŽǰȱŽ›•’—ǯȱŠœȱŠžŒ‘ȱŽ›ȱž£Ž›ȱ’––Ž›ȱŠ—”•’Œ”Ž—ȱ–Šǰȱ‹Ž’ȱ “ŽŽ–ȱ •’Œ”ȱœ˜••ȱ’––Ž›ȱǻ˜‹ȱŽ›ȱž£Ž›ȱ ’••ȱ˜Ž›ȱ—’Œ‘Ǽȱ’ŽȱŠ›”’Ž›ž—ȱ£ž›ȱž—ŽœȬ ‘Šž™œŠȱœ™›’—Ž—ȱǻ’•ȱŚǯŗŝǼǯȱȱ

ȱȱȱ ’•ȱŚǯŗŝDZȱŠ›ȱž—ȱ’žŠ’˜—ȱ—ŠŒ‘ȱ’›Ž—Ž’—Ž›ȱŠ‘•ȱ Ž›ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ’œȱœŒ‘—Ž••ȱ‹ŽœŒ‘ŠǰȱŠȱŽœȱœ’Œ‘ȱž–ȱŠœȱŠ—Ȭ Š›Ȭ›Ž’—’œȱŽ›ȱŠ’˜›ž™™Žȱ‘Š—Ž•ǯȱ˜Œ‘ȱ Ž•Œ‘Ž—ȱž Ž’œž—œ‹ŽŽ‘•ȱ–žœœȱ–Š—ȱ Ž’—›ŠŽ—ǵȱ’Žȱ‘Ž’đȱ’Žȱ™ŠœœŽ—Žȱ’Ž—œŒ‘Šȱǻ™›˜™Ž›¢Ǽǵȱȱ žŒ‘Ž—ȱ ’›ȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱŽ›ȱŠ’˜›ž™™Žȱ—ŠŒ‘ȱŽ›“Ž—’Ž—ȱ’Ž—œŒ‘Šǰȱ’Žȱ ’ŽȱŠ›”’Ž›ž—ȱŠžȱŽ’—Žȱ‹Žœ’––ŽȱŽ’•ŽȱœŽ£ǯȱ’•ȱŚǯŗŞȱ£Ž’ȱŽœȱȮȱŽœȱ’œȱ’Žȱ’Ž—Ȭ œŒ‘ŠȱItemIndexǯȱ

ȱȱ ’•ȱŚǯŗŞDZȱžœ£žȱŠžœȱŽ—ȱ’Ž—œŒ‘ŠŽ—ȱŽ’—Ž›ȱŠ’˜›ž™™Žȱȱȱȱ ’›ȱ•ŽœŽ—ȱŠ‹DZȱŽŒ‘œȱ—Ž‹Ž—ȱ ItemIndexȱœŽ‘ȱŽ’—ŽȱŠ—£ŽȱŠ‘•ǯȱ˜••’Œ‘ȱ–žœœȱ’ŽœŽ›ȱ ’Ž—œŒ‘Šǰȱ  Ž——ȱ œ’Žȱ Š•œȱ ™›˜™Ž›¢ȱ ’—ȱ Ž’—Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ ŸŽ› Ž—Žȱ  ’›ǰȱ œŽœȱŽ’—ŽȱŠ‘•ȱ£žŽ ’ŽœŽ—ȱ Ž›Ž—ǯȱ ’Ž›ȱ’œȱŽœȱ’Žȱž••ǯȱȱ

ŝŘ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

Š›ž–ȱŽ›ŠŽȱ’Žȱž••ǵȱž—ǰȱ Ž’•ȱŽ›•’—ȱŽ›ȱŽ›œŽȱ’—›Šȱ’œǰȱž—ȱ–’ȱž••ȱ’Žȱ §‘•ž—ȱ‹Ž’——ǯȱȱȱȱ procedure TForm1.RadioGroup1Click(Sender: TObject); begin RadioGroup1.ItemIndex:=0 end;

ŠœœŽ—ȱ ’›ȱ£žœŠ––Ž—DZȱȱ  Ž›•Š—ȱ Ž’—Žȱ ™›˜™Ž›¢ȱ Ž’—Ž—ȱ Ž¡ȱ ǻŽ’—Žȱ Ž’Œ‘Ž—˜•ŽǼǰȱ –žœœȱ Šžȱ Ž›ȱ ›ŽŒ‘Ž—ȱ ǻžŽ••ȬǼȱŽ’ŽȱŽ›ȱž Ž’œž—ȱŽ’—ȱœŠ’œŒ‘Ž›ȱŽ¡ȱœŽ‘Ž—ǰȱ”Ž——•’Œ‘ȱŠ—ȱŽ—ȱ‹Ž’Ȭ Ž—ȱ ˜Œ‘”˜––Šœȱ‘ȱž—ȱ‘ȱǯȱ  Ž›•Š—ȱŽ’—Žȱ™›˜™Ž›¢ȱŽ’—ŽȱŠ—£ŽȱŠ‘•ǰȱ–žœœȱŠžȱŽ›ȱ›ŽŒ‘Ž—ȱŽ’ŽȱŽ›ȱž Ž’Ȭ œž—ȱŽ’—ŽȱŠ—£ŽȱŠ‘•ȱœŽ‘Ž—ǯȱ  Ž›•Š—ȱŽ’—Žȱ™›˜™Ž›¢ȱŽ’—Ž—ȱŠ‘›‘Ž’œ Ž›ǰȱ–žœœȱŠžȱŽ›ȱ›ŽŒ‘Ž—ȱŽ’ŽȱŽ›ȱžȬ  Ž’œž—ȱŽ— ŽŽ›ȱTrueȱ˜Ž›ȱFalseȱœŽ‘Ž—ǯȱȱ ž—ȱ £ž–ȱ •Ž£Ž—ȱ Ž’œ™’Ž•ǯȱ žȱ ž—œŽ›Ž–ȱ ˜›–ž•Š›ȱ  Ž›Ž—ȱ  Ž’Ž›Žȱ Ÿ’Ž›ȱ ž˜—œȱ –’ȱŽ—ȱŽœŒ‘›’ž—Ž—ȱȱFlensburgȱǰȱȱGarmischȱǰȱȱGörlitzȱȱž—ȱȱAachenȱȱ™•Š£’Ž›Dzȱœ’Žȱ Ž›‘Š•Ž—ȱ’ŽȱŠ–Ž—ȱButton4ȱ‹’œȱButton8ǯȱ—ȱŽ›ȱ’Žȱ‹Ž’—Žȱœ’Œ‘ȱŠ£žȱŽ’—ȱ Ž’ŽȬ ›ŽœȱŠ‹Ž•ǰȱŠœȱœ˜••ȱŠ—Š—œȱ•ŽŽ›ȱœŽ’—ǯȱœȱ‹Ž”˜––ȱŸ˜—ȱŽ•™‘’ȱŽ—ȱŠ–Ž—ȱLabel3ǯȱȱ ž—ȱ’ŽȱžŠ‹ŽDZȱ’›ȱŽ›ȱŠžœ£Ž’Ž›ȱû‹Ž›ȱŽ’—Ž–ȱŽ›ȱž˜—œȱ‹Ž Žǰȱœ˜••ȱ’–ȱŠȬ ‹Ž•ȱ ’Žȱ ŽœŒ‘›’ž—ȱ Žœȱ Ž›ŠŽȱ Ǯû‹Ž›•˜Ž—Ž—ȃȱ ž˜—œȱ Ž›œŒ‘Ž’—Ž—Dzȱ  ’›ȱ Ž›ȱ Šžœ£Ž’Ž›ȱŠŽŽ—ȱû‹Ž›ȱŽ–ȱ ’œŒ‘Ž—›Šž–ȱ‹Ž Žǰȱœ˜••ȱǮŽžœŒ‘•Š—ȃȱ’–ȱŠȬ ‹Ž•ȱŽ›œŒ‘Ž’—Ž—ǯȱ ’—Žȱ§‘—•’Œ‘ŽȱžŠ‹Žȱ ž›ŽȱœŒ‘˜—ȱ’—ȱ‹œŒ‘—’ȱŘǯřǯŗȱŽ•ãœǰȱ˜›ȱ“Ž˜Œ‘ȱ’—ȱ Žœȱ—ž›ȱž–ȱŽ’—ŽȱŽ’—ŠŒ‘Žȱ’Ž’•ž—ǯȱ’›ȱŽ›’——Ž›—ȱž—œȱ“Ž˜Œ‘ǰȱŠœœȱ’ŽȱŠžœ£Ž’Ȭ Ž›ȬŽ Žž—ȱ”Ž’—ȱŠ—Š›Ȭ›Ž’—’œȱ’œǯȱ ˜••’Œ‘ȱ‹ŽœŒ‘ŠŽ—ȱ ’›ȱž—œȱ–’ȱ ’•ŽȱŽœȱŽ’œŽ›‹•ŠŽœȱ ȱŽ›ȱ‹“Ž”’—Ȭ œ™Ž”˜›Ž—ȱ’Žȱû—ȱŠ‘–Ž—ȱû›ȱ’Žȱû—ȱ›Ž’—’œ™›˜£Žž›Ž—ǯȱȱ Š——ȱ Ž›’——Ž›—ȱ  ’›ȱ ž—œȱ Š›Š—ǰȱ Šœœȱ ’Žȱ ŽœŒ‘›’ž—ȱ Ž’—Žœȱ Š‹Ž•œȱ –’ȱ ’•Žȱ Ž›ȱ ™›˜™Ž›¢ȱ CaptionǰȱŽ›Ž—ȱŠ–Žȱ ’›ȱŠžœȱŽ–ȱŽ’œŽ›‹•Šȱ  ȱŽœȱŠȬ ‹Ž•Ȭ‹“Ž”’—œ™Ž”˜›œȱ ”Ž——Ž—ǰȱ ŸŽ›§—Ž›ȱ  Ž›Ž—ȱ ”Š——ǯȱ Šœȱ ’œȱ œŒ‘˜—ȱ Š••Žœǰȱ ž—ȱ —ž—ȱ”ã——Ž—ȱ ’›ȱž—œȱ’Žȱû—ȱŽ›’Ž—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱŠ—œŽ‘Ž—DZȱȱ procedure TForm1.Button4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label3.caption:='Flensburg' end;

ŚǯŚȱȱ”’ŸŽ›ȱž—ȱ™Šœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

ŝř

procedure TForm1.Button5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label3.caption:='Görlitz' end; procedure TForm1.Button6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label3.caption:='Garmisch' end; procedure TForm1.Button7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label3.caption:='Aachen' end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label3.Caption:='Deutschland' end;

œȱŽœȱ—’Œ‘ȱŽ’—ŽȱœŒ‘ã—Žȱ ŽœŽȱŸ˜—ȱŽ•™‘’ǰȱŠœœȱž—œȱ’ŽȱŠ‘–Ž—ȱŽ›ȱ›Ž’—’œ™›˜£ŽȬ ž›Ž—ȱ ’––Ž›ȱ ŽœŒ‘Ž—”ȱ  Ž›Ž—ǵȱ Š—£Žȱ û—ȱ ž Ž’œž—œ‹ŽŽ‘•Žȱ –žœœŽ—ȱ  ’›ȱ “ŽȬ  Ž’•œȱ£ ’œŒ‘Ž—ȱ beginȱž—ȱ end;ȱœŒ‘›Ž’‹Ž—ǰȱž—ȱœŒ‘˜—ȱ‘Šȱ’ŽȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱ Ž—Šžȱ ’Žȱ ž—”’˜—Š•’§ǰȱ ’Žȱ ž›Œ‘ȱ ’Žȱ žŠ‹Žȱ Ÿ˜›ŽŽ‹Ž—ȱ  Š›ǯȱ t‹›’Ž—œȱ Ȯȱ  Šœȱ ’›ȱŽ——ȱ’–ȱŠ‹Ž•ȱŠ—Ž£Ž’ǰȱ Ž——ȱŽ›ȱž£Ž›ȱŽ—ȱŠžœ£Ž’Ž›ȱû‹Ž›ȱŽ‹Ž—ȱ ’ŽœŽ–ȱŠ‹Ž•ȱ‹Ž ŽŽ—ȱ ’›ǵȱŠû›•’Œ‘DZȱǮŽžœŒ‘•Š—ȃǯȱȱ

4.4

Aktiver und passiver Zugriff auf Datenkerne ’›ȱ ‘Š‹Ž—ȱ Ž•Ž›—ǰȱ  ’Žȱ –Š—ȱ ’Ž—œŒ‘ŠŽ—ȱ ǻ™›˜™Ž›’ŽœǼȱ ‹Ž—ž£ǰȱ ž–ȱ Šžœȱ Ž—ȱ ŠȬ Ž—”Ž›—Ž—ȱŽœȱŽ’Ž—Ž—ȱ˜Ž›ȱ›Ž–Ž›ȱ‹“Ž”ŽȱŽ ŠœȱǮ‘Ž›Šžœ£ž‘˜•Ž—ȃǰȱ ’›ȱ‘Š‹Ž—ȱ Ž•Ž›—ǰȱ ’Žȱ–Š—ȱ™›˜™Ž›’Žœȱ‹Ž—ž£ǰȱž–ȱ’—ȱ’ŽȱŠŽ—”Ž›—ŽȱŽœȱŽ’Ž—Ž—ȱ˜Ž›ȱ›Ž–Ȭ Ž›ȱ ‹“Ž”Žȱ Ž Šœȱ Ǯ‘’—Ž’—£ž‹›’—Ž—ȃȱ Ȯȱ  Šœȱ œ˜••ȱ ž—œȱ Š›Š—ȱ ‘’—Ž›—ǰȱ ‹Ž’Žœȱ £žȱ ž—ǵȱȱ •§Ž›—ȱ  ’›ȱ —˜Œ‘ȱ Ž’—–Š•ȱ £ž›ûŒ”ȱ £žȱ ’•ȱ Śǯŝȱ ’–ȱ ‹œŒ‘—’ȱ ŚǯŘǯŘǯȱ ’Ž—•’Œ‘ȱ ‹ŽȬ œŒ‘›Ž’‹ȱ’ŽœŽœȱ’•ȱŽ—Šžȱ’Žȱ’žŠ’˜—ǰȱž–ȱ’ŽȱŽœȱ—ž—ȱŽ‘ǯȱ  —ȱ Ž’—Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ ”Š——ȱ Žœȱ Š”’ŸŽȱ ž—ȱ ™Šœœ’ŸŽȱ ž›’Žȱ Šžȱ ’Žȱ ŠŽ—Ȭ ”Ž›—ŽȱŽœȱŽ’Ž—Ž—ȱ‹“Ž”œȱž—ȱ›Ž–Ž›ȱ‹“Ž”ŽȱŽ‹Ž—Ƿȱȱ

ȱ

Š—Ž—ȱ  ’›ȱ Š—£ȱ Ž’—ŠŒ‘ȱ Š—ǯȱ ’—ȱ ˜›–ž•Š›ȱ ‹Žœ’£Žȱ £ Ž’ȱ û‹Ž›Ž’—Š—Ž›ȱ •’ŽŽ—Žȱ Œ›˜••‹Š›œǯȱȱ

ŝŚ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_44.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ   ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_44.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž——ȱŽ›ȱž£Ž›ȱ’—ȱŽ›ȱ˜‹Ž›Ž—ȱŒ›˜••‹Š›ȱ’Žȱ˜œ’’˜—ȱŽœȱŽ•Ž›œȱ§—Ž›ȱǻŠ—Š›Ȭ ›Ž’—’œǼǰȱ œ˜••ȱ œ’Œ‘ȱ ’Žȱ ˜œ’’˜—ȱ Žœȱ Ž•Ž›œȱ ’—ȱ Ž›ȱ ž—Ž›Ž—ȱ Œ›˜••‹Š›ȱ Šž˜–Š’œŒ‘ȱ Š—™ŠœœŽ—ǯȱȱ —Ž›ȱŽ›ȱž£Ž›ȱ’—ȱŽ›ȱž—Ž›Ž—ȱŒ›˜••‹Š›ǰȱœ˜ȱœ˜••ȱœ’Œ‘ȱ’Žȱ˜‹Ž›ŽȱŠž˜–Š’œŒ‘ȱŠ—Ȭ ™ŠœœŽ—ǯȱȱ Ž‘Ž—ȱ ’›ȱž—œȱ•Ž’Œ‘ȱ’Žȱ‹Ž’Ž—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱŠ—ǯȱžŽ›œȱ’Žȱ›Ž’—’œ™›˜Ȭ £Žž›ȱû›ȱ’ŽȱŽ›œŒ‘’Ž‹ž—ȱŽœȱŽ•Ž›œȱ’—ȱŽ›ȱ˜‹Ž›Ž—ȱŒ›˜••‹Š›ǰȱǯȱ‘ǯȱŽ›ȱ —Ž›ž—ȱ Š–ȱ‹“Ž”ȱ–’ȱŽ–ȱŠ–Ž—ȱScrollBar1DZȱȱ procedure TForm1.ScrollBar1Change(Sender: TObject); begin Scrollbar2.Position:=Scrollbar1.Position end;

Š——ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ û›ȱ ’Žȱ —Ž›ž—ȱ ’–ȱ ž—Ž›Ž—ȱ ‹“Ž”ȱ –’ȱ Ž–ȱ Ÿ˜—ȱ Ž•™‘’ȱŸŽ›Ž‹Ž—Ž—ȱŠ–Ž—ȱScrollBar2DZȱȱ procedure TForm1.ScrollBar2Change(Sender: TObject); begin Scrollbar1.Position:=Scrollbar2.Position end;

’•ȱŚǯŗşȱ‹ŽœŒ‘›Ž’‹ȱ“Ž Ž’•œȱ’Žȱ’žŠ’˜—DZȱ Ž‘˜•ȱ ’›ȱ’—ȱ‹Ž’Ž—ȱ§••Ž—ȱŠžœȱŽ–ȱ Ž’Ž—Ž—ȱŠŽ—”Ž›—ǰȱ›Š—œ™˜›’Ž›ȱ ’›ȱ’—ȱŽ—ȱ›Ž–Ž—ȱŠŽ—”Ž›—ǯȱ Ž›ŠŒ‘Ž—ȱ  ’›ȱ Ž’—ȱ —§Œ‘œŽœȱ Ž’œ™’Ž•DZȱ žȱ Ž›ȱ Ž—ž£Ž›˜‹Ž›•§Œ‘Žȱ ‹Ž’—Žȱ œ’Œ‘ȱ £žœ§£•’Œ‘ȱŽ’—ȱŽ¡Ž—œŽ›ȱ–’ȱŽ–ȱŠ–Ž—ȱEdit1ǰȱŠ›ž—Ž›ȱœŽ’ȱŽ’—ȱLabelȱŠ—Ž˜›Ȭ —ŽǰȱŠœȱŸ˜—ȱŽ•™‘’ȱŽ—ȱŠ–Ž—ȱLabel1ȱ‹Ž”˜––ǯȱȱ Ž’ȱ“ŽŽ›ȱ —Ž›ž—ǰȱ’ŽȱŽ›ȱž£Ž›ȱ’–ȱŽ¡Ž—œŽ›ȱŸ˜›—’––ȱǻŠ—Š›Ȭ›Ž’—’œǼǰȱ œ˜••ȱŠž˜–Š’œŒ‘ȱŽ›ȱŠ”žŽ••Žȱ—‘Š•ȱŽœȱŽ¡Ž—œŽ›œȱŠ•œȱŽœŒ‘›’ž—ȱŽœȱŠ‹Ž•œȱŠ—Ȭ Ž£Ž’ȱ Ž›Ž—ǯȱȱ t‹Ž›•ŽŽ—ȱ ’›ȱž—œȱŽ—ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ›Ž’—’œȱ —Ž›ž—ȱ’–ȱ Ž¡Ž—œŽ›DZȱȱ’ŽȱžŽ••Žȱ’œȱ‘’Ž›ȱŽ›ȱŠŽ—”Ž›—ȱŽœȱŽ¡Ž—œŽ›œȱ Edit1ǰȱǻŽ›ȱŽ’Ž—Žȱ ŠŽ—”Ž›—ǼǰȱŠœȱ’Ž•ȱ’œȱŽ›ȱŠŽ—”Ž›—ȱŸ˜—ȱLabel1ǯȱȱ

ŚǯŚȱȱ”’ŸŽ›ȱž—ȱ™Šœœ’ŸŽ›ȱž›’ȱŠžȱŠŽ—”Ž›—Žȱ

ŝś

ȱȱ ’•ȱŚǯŗşDZȱžœȱŽ–ȱŽ’Ž—Ž—ȱ’—ȱŽ—ȱ›Ž–Ž—ȱŠŽ—”Ž›—ȱ ž—ȱ ‹›ŠžŒ‘Ž—ȱ  ’›ȱ —ž›ȱ —˜Œ‘ȱ ’Žȱ ›’Œ‘’Ž—ȱ ’Ž—œŒ‘ŠŽ—ȱ ǻ™›˜™Ž›’ŽœǼȱ Šžœ£ž §‘Ȭ •Ž—DZȱ procedure TForm1.Edit1Change(Sender: TObject); begin Label1.Caption:=Edit1.Text end;

’Žȱ’–ȱ’•ȱŚǯŗşȱŽœŒ‘’•Ž›Žȱ’žŠ’˜—ȱǮŠžœȱŽ–ȱŽ’Ž—Ž—ȱ’—ȱŽ—ȱ›Ž–Ž—ȱŠŽ—Ȭ ”Ž›—ȃȱ•’ŽȱŠžŒ‘ȱ‹Ž’ȱŽ–ȱ—§Œ‘œŽ—ȱŽ’œ™’Ž•ȱŸ˜›ǰȱ˜›ȱœ˜Š›ȱ£ Ž’–Š•DZȱȱ › Ž’Ž›—ȱ  ’›ȱ ž—œŽ›Žȱ Ž—ž£Ž›˜‹Ž›•§Œ‘Žȱ Ž’—ȱ ›’Žœȱ Š•ǯȱ Ž‹Ž—Ž’—Š—Ž›ȱ  Ž›Ȭ Ž—ȱ £ Ž’ȱ ‘ŽŒ”‹˜¡Ž—ȱ ™•Š£’Ž›DZȱ ’—”œȱ ‹Ž’—Žȱ œ’Œ‘ȱ Ž’—Žȱ ‘ŽŒ”‹˜¡ȱ –’ȱ Ž–ȱ ŠȬ –Ž—ȱ CheckBox1ǰȱ ›ŽŒ‘œȱ Š—Ž‹Ž—ȱ Ž’—Žȱ Š—Ž›Žȱ ‘ŽŒ”‹˜¡ȱ –’ȱ Ž–ȱ Š–Ž—ȱ CheckBox2ǯȱȱ ’›ȱŸ˜–ȱž£Ž›ȱ’—ȱŽ›ȱ•’—”Ž—ȱ‘ŽŒ”‹˜¡ȱŽ”•’Œ”ȱǻŽ’—ȱ˜Ž›ȱŠžœǼǰȱœ˜••ȱŠž˜–Š’œŒ‘ȱ ’Žȱ›ŽŒ‘Žȱ‘ŽŒ”‹˜¡ȱ’ŽœŽ•‹ŽȱŽ•Žž—ȱŠ——Ž‘–Ž—ǯȱȱ ’›ȱ Ÿ˜–ȱ ž£Ž›ȱ ’—ȱ Ž›ȱ ›ŽŒ‘Ž—ȱ ‘ŽŒ”‹˜¡ȱ Ž”•’Œ”ȱ ǻŽ’—ȱ ˜Ž›ȱ ŠžœǼǰȱ œ˜••ȱ Šž˜–ŠȬ ’œŒ‘ȱ’Žȱ•’—”Žȱ‘ŽŒ”‹˜¡ȱ’ŽœŽ•‹ŽȱŽ•Žž—ȱŠ——Ž‘–Ž—ǯȱȱ Ž’Žȱ›Ž’—’œ™›˜£Žž›Ž—ȱ”ã——Ž—ȱ ’›ȱœ˜˜›ȱœŒ‘›Ž’‹Ž—ǰȱŠȱ ’›ȱŽ—ȱŠ–Ž—ȱŽ›ȱ ™ŠœœŽ—Ž—ȱ ™›˜™Ž›¢ȱ Checkedȱ Šžœȱ Ž–ȱ Ž’œŽ›‹•Šȱ   ȱ Ž›ȱ ‹“Ž”’—Ȭ œ™Ž”˜›Ž—ȱŽ›ȱ‘ŽŒ”‹˜¡Ž—ȱ”Ž——Ž—DZȱȱ

ŝŜ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

procedure TForm1.CheckBox1Click(Sender: TObject); begin Checkbox2.Checked:=Checkbox1.Checked end; procedure TForm1.CheckBox2Click(Sender: TObject); begin Checkbox1.Checked:=Checkbox2.Checked end;

ž—ȱ—˜Œ‘ȱŽ’—ȱ•Ž£ŽœȱŽ’œ™’Ž•ǰȱŽ——ȱŽœȱ’œȱ ’›”•’Œ‘ȱ—’Œ‘ȱœŒ‘ Ž›DZȱ’ŽȱŽ—ž£Ž›Ȭ ˜‹Ž›•§Œ‘Žȱ ’›ȱŽ›§—£ȱž›Œ‘ȱŽ’—Ž—ȱž˜—ȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱ Weiter ǰȱŠ›Ȭ ž—Ž›ȱ  ’›ȱ Ž’—Žȱ  Ž’Ž›Žȱ Œ›˜••‹Š›ȱ –’ȱ Š—Š›ȬŠ›Ž’—œŽ••ž—ȱ ™•Š£’Ž›DZȱ ’Ȭ —’–ž–ȱž••ǰȱŠ¡’–ž–ȱŗŖŖǰȱ ˜œ’’˜—ȱ ž••ǯȱ ’ŽœŽȱ Œ›˜••‹Š›ȱ ‹Ž”˜––ȱ Ÿ˜—ȱ Ž•™‘’ȱ ˜••’Œ‘ȱŽ—ȱŠ–Ž—ȱScrollbar3ǯȱ Ž’ȱ “ŽŽ–ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ œ˜••ȱ œ’Œ‘ȱ ’Žȱ ˜œ’’˜—ȱ Žœȱ Ž•Ž›œȱ ž–ȱ ŗŖȱ ’—‘Ž’Ž—ȱ —ŠŒ‘ȱ›ŽŒ‘œȱŸŽ›œŒ‘’Ž‹Ž—ǯȱȱ procedure TForm1.Button1Click(Sender: TObject); begin ScrollBar3.Position:=ScrollBar3.Position+10 end;

ŠœȱŒ‘Ž–Šȱ’—ȱ’•ȱŚǯŘŖȱŸŽ›Žž•’Œ‘ȱ’Žœ–Š•ȱŠœȱŽ ŠœȱŠ—Ž›Žȱ˜›Ž‘Ž—DZȱȱ  ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ‘˜•ȱ–’Ž•œȱŽ›ȱ™›˜™Ž›¢ȱ Positionȱ£žŽ›œȱ’ŽȱŽ û—œŒ‘Žȱ—Š‹Žȱ ŠžœȱŽ–ȱŠŽ—”Ž›—ȱŽ›ȱŒ›˜••‹Š›ȱǻ›Ž–Ȭ Žœȱ‹“Ž”Ǽǯȱȱ  Š——ȱŸŽ›Š›‹Ž’Žȱœ’Žȱ’ŽœŽȱ—Š‹Žǰȱ’—Ž–ȱœ’Žȱ’ŽȱŠ‘•ȱŗŖȱ‘’—£žȱŠ’Ž›ǯȱ  Œ‘•’Žđ•’Œ‘ȱ›Š—œ™˜›’Ž›ȱœ’ŽȱŽ—ȱ—ŽžŽ—ȱŽ›ȱ ’ŽŽ›ȱ–’ȱŽ’—Ž›ȱ™›˜™Ž›¢ȱŽœœŽ•Ȭ ‹Ž—ȱ Š–Ž—œȱ £ž›ûŒ”ȱ ’—ȱ Ž—ȱ ŠŽ—”Ž›—ȱ Ž›ȱ Œ›˜••‹Š›ȱ ǻ›Ž–Žœȱ ‹“Ž”Ǽǰȱ  ˜–’ȱ œ˜˜›ȱ’Žȱ—ŽžŽȱ˜œ’’˜—ȱŽœȱŽ•Ž›œȱœ’Œ‘‹Š›ȱ ’›ǯȱȱ

4.5

Aktivierung und Deaktivierung von Bedienelementen ’›ȱ Š••Žȱ ”Ž——Ž—ȱ Žœȱ Ÿ˜—ȱ ’—˜ œDZȱ Ž’—ŽœŠ••œȱ ’––Ž›ȱ ’œȱ Žœȱ œ’——Ÿ˜••ǰȱ Šœœȱ Ž›ȱ ž£Ž›ȱ“ŽŽœȱŽ’Ž—Ž•Ž–Ž—ǰȱŠœȱœ’Œ‘ȱŠžȱŽ’—Ž–ȱ˜›–ž•Š›ȱ‹Ž’—ŽǰȱŠžŒ‘ȱ“ŽŽ›Ȭ £Ž’ȱ‹Ž’Ž—Ž—ȱ”ã——Ž—ȱœ˜••Žǯȱȱ ’—ȱ —ŽžŽœȱ Ž’œ™’Ž•ȱ Š£žDZȱ žȱ Ž’—Ž–ȱ ˜›–ž•Š›ȱ ‹Ž’—Ž—ȱ œ’Œ‘ȱ Ž’—ȱ Š—Š—œȱ •ŽŽ›Žœȱ Ž¡Ž—œŽ›ǰȱ Ž’—ȱ ž˜—ȱ –’ȱ Ž›ȱ ŽœŒ‘›’ž—ȱ Übernehmen ȱ ž—ȱ Ž’—ȱŠ—Š—œȱ Ž‹Ž—Ȭ Š••œȱž—‹ŽœŒ‘›’ŽŽœȱŠ‹Ž•ǯȱȱ Ž’–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱœ˜••ȱŽ›ȱŠ”žŽ••Žȱ—‘Š•ȱŽœȱŽ¡Ž—œŽ›œȱ£ž›ȱŽœŒ‘›’ž—ȱ ŽœȱŠ‹Ž•œȱ Ž›Ž—ǯȱȱ

Śǯśȱȱ”’Ÿ’Ž›ž—ȱž—ȱŽŠ”’Ÿ’Ž›ž—ȱŸ˜—ȱŽ’Ž—Ž•Ž–Ž—Ž—ȱ

ŝŝ

ȱȱ ’•ȱŚǯŘŖDZȱ”’ŸŽ›ȱž—ȱ™Šœœ’ŸŽ›ȱž›’ȱŠžȱ›Ž–Ž—ȱŠŽ—”Ž›—ȱ Ž£ȱœ˜••ȱž—œȱŠ‹Ž›ȱ—’Œ‘ȱŸ˜›Ž››û—’ȱŽ›ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱû›ȱŠœȱ Š—Š›Ȭ›Ž’—’œȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ ‹ŽœŒ‘§’Ž—ȱ Ȯȱ ’ŽœŽ›ȱ ’œȱ ’—£ ’œŒ‘Ž—ȱ ‹ŽȬ ”Š——ȱǻœ’Ž‘Žȱ‹œŒ‘—’ȱŚǯŚǼǯȱŽ’—ǰȱŸ’Ž•–Ž‘›ȱ ˜••Ž—ȱ ’›ȱ”Ž——Ž—ȱ•Ž›—Ž—ǰȱ ’Žȱ–Š—ȱ Šû›ȱœ˜›ǰȱŠœœȱŽ›ȱž£Ž›ȱ‹Ž’ȱ•ŽŽ›Ž–ȱŽ¡Ž—œŽ›ȱŽ—ȱž˜—ȱû‹Ž›‘Šž™ȱ—’Œ‘ȱ‹ŽȬ ’Ž—Ž—ȱ”Š——ǯȱȱ Š£žȱ’‹ȱŽœȱ£ Ž’ȱ㐕’Œ‘”Ž’Ž—DZȱŽ›ȱž˜—ȱ ’›ȱŸã••’ȱž—œ’Œ‘‹Š›ȱŽ–ŠŒ‘ǰȱœ˜Ȭ •Š—Žȱ Šœȱ Ž¡Ž—œŽ›ȱ •ŽŽ›ȱ ’œȱ Ȯȱ ˜Ž›ȱ Ž›ȱ  ’›ȱ ’—Š”’Ÿȱ ŽœŒ‘Š•Žǯȱ Šœȱ •Ž£Ž›Žȱ ‹ŽȬ ŽžŽǰȱ Šœœȱ Ž›ȱ £ Š›ȱ œ’Œ‘‹Š›ȱ ‹•Ž’‹ǰȱ Š‹Ž›ȱ ”Ž’—Ž—ȱ •’Œ”ȱ Ž—ŽŽ——’––ǯȱ Š–’ȱ  ˜••Ž—ȱ ’›ȱž—œȱ£žŽ›œȱ‹ŽœŒ‘§’Ž—ǯȱ

4.5.1

property Enabled Š£žȱ’‹ȱŽœȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱ’ŽȱŽ’•Žȱ–’ȱŽ›ȱ’Ž—œŒ‘ŠȱEnabledǯȱȱ

ȱȱ ’•ȱŚǯŘŗDZȱ’Ž—œŒ‘ŠȱEnabledȱ

ŝŞ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

’Žȱ’—ȱ’•ȱŚǯŘŗȱ£žȱŽ›”Ž——Ž—ȱ’œǰȱ–žœœȱ’ŽœŽ›ȱ™›˜™Ž›¢ȱŽ’—Ž›ȱŽ›ȱ‹Ž’Ž—ȱ•˜’œŒ‘Ž—ȱ Ž›Žȱ Falseȱ ˜Ž›ȱ Trueȱ £žŽ ’ŽœŽ—ȱ  Ž›Ž—ǯȱ Ž‘Ž—ȱ  ’›ȱ ž—œȱ Ž—ȱ —Ž›œŒ‘’Žȱ ’—ȱ ’•ȱŚǯŘŘȱŠ—DZȱ

ȱȱȱ ’•ȱŚǯŘŘDZȱ—Š”’ŸŽ›ȱž—ȱŠ”’ŸŽ›ȱž˜—ȱ Ž——ȱ£žȱŽ’——ȱŽ›ȱŠž£Ž’ȱŠœȱŽ¡Ž—œŽ›ȱ•ŽŽ›ȱ’œǰȱœ˜••Žȱ£žȱŽ’——ȱŽ›ȱŠžȬ £Ž’ȱŽ›ȱž˜—ȱ’—Š”’ŸȱœŽ’—DZȱ’—ŽȱŽ’Ž—ž—ȱž›Œ‘ȱŽ—ȱž£Ž›ȱ §›Žȱ£žȱ’ŽœŽ–ȱ Ž’™ž—”ȱœ’——•˜œǯȱ–ȱ‹“Ž”’—œ™Ž”˜›ȱ ’›ȱ˜••’Œ‘ȱ’ŽȱŽ’•ŽȱEnabledȱû›ȱŽ—ȱŠ›ȱ Ž›ȱŠž£Ž’ȱŠžȱFalseȱŽœŽ£ǯȱȱ ȱ

4.5.2

Aktivierung des Bedienelements ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_452.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_452.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Š——ȱŠ‹Ž›ȱ ’›ȱ’ŽȱŽ’Ž—ž—ȱŽœȱž˜—ȱœ’——Ÿ˜••ǵȱ— ˜›DZȱŽ——ȱŽ›ȱž£Ž›ȱ ’—ȱŠœȱŽ¡Ž—œŽ›ȱŽ ŠœȱŽ’—’‹ǯȱȱ

Šœȱ‘Ž’đǰȱ ’›ȱ‹ŽœŒ‘ŠŽ—ȱž—œȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ›Ž’—’œȱȱ —Ž›ž—ȱ’–ȱŽ¡Ž—œŽ›ȱǻŠ—Š›Ȭ›Ž’—’œǼȱž—ȱ›ŠŽ—ȱ˜›ȱŽ—ȱž Ž’œž—œ‹ŽȬ Ž‘•ȱ£ž›ȱ”’Ÿ’Ž›ž—ȱŽœȱž˜—œȱŽ’—ǯȱȱ Ž—ȱ Š–Ž—ȱ Ž›ȱ ™ŠœœŽ—Ž—ȱ ™›˜™Ž›¢ȱ ”Ž——Ž—ȱ  ’›ȱ Šžœȱ Ž›ȱ ’Ž—œŒ‘Šǰȱ –’ȱ Ž›Ž—ȱ

’•Žȱ ’›ȱ’Žȱ˜›Ž’—œŽ••ž—ȱŸ˜›—Š‘–Ž—ǯȱ’Žȱ‘Ž’œœȱEnabledǯȱȱȱȱȱ procedure TForm1.Edit1Change(Sender: TObject); begin Button1.Enabled:=True end;

’•ȱŚǯŘřȱ£Ž’ȱž—œȱ’Žȱ’›”ž—DZȱ˜‹Š•ȱž›Œ‘ȱŽ—ȱž£Ž›ȱ’ŽȱŽ›œŽȱ’—Š‹Žȱ’—ȱ ŠœȱŽ¡Ž—œŽ›ȱŽ›˜•ǰȱ ’›ȱŽ›ȱž˜—ȱŠž˜–Š’œŒ‘ȱŠ”’Ÿȱž—ȱŠ–’ȱ‹Ž’Ž—‹Š›ǯȱ

ŚǯŜȱȱŽ›œŽŒ”Ž—ȱŸ˜—ȱŽ’Ž—Ž•Ž–Ž—Ž—ȱ

ŝş

Šû›•’Œ‘ȱ–ûœœŽ—ȱ ’›ȱ—˜Œ‘ȱŠû›ȱœ˜›Ž—ǰȱŠœœȱŽ›ȱž˜—ȱ ’ŽŽ›ȱ’—Š”’Ÿȱ ’›ǰȱ  Ž——ȱŽ›ȱž£Ž›ȱŽ—ȱ—‘Š•ȱŽœȱŽ¡Ž—œŽ›œȱ•ãœŒ‘ǯȱȱ

ȱȱ ’•ȱŚǯŘřDZȱ”’Ÿ’Ž›ž—ȱŽœȱž˜—œȱ‹Ž’ȱ’—Š‹Žȱ’—ȱŠœȱŽ¡Ž—œŽ›ȱ  Šœȱ Žž•ȱ‹’ŽȱȮȱŠ£žȱ”˜––Ž—ȱ ’›ȱ’–ȱ Š™’Ž•ȱśǯŗǯŘǯȱ

4.5.3

Inaktive Menü-Einträge –ȱ’•ȱŚǯŘŚȱ’œȱ£žȱœŽ‘Ž—ǰȱŠœœȱ–Š—ȱȮȱ ’Žȱ’—ȱŠ••Ž—ȱ’—˜ œȬ— Ž—ž—Ž—ȱ˜ȱ ™›Š”’£’Ž›ȱȮȱŠžŒ‘ȱ’—›§Žȱ’—ȱŽ—ûœȱŠ”’Ÿȱž—ȱ’—Š”’ŸȱŽ’—œŽ••Ž—ȱ”Š——ǯȱȱ

’Ž›ȱ œ˜••ȱ Ž›ȱ ž£Ž›ȱ ’——•Š—ȱ ž—ȱ —Š›—ȱ £ Š›ȱ œŽ‘Ž—ǰȱ Š‹Ž›ȱ —’Œ‘ȱ Šžœ §‘•Ž—ȱ û›Ž—ǯȱ

ȱȱȱ ’•ȱŚǯŘŚDZȱ—Š”’ŸŽȱ’—›§Žȱ’—ȱŽ’—Ž–ȱŽ—ûȱ

4.6

Verstecken von Bedienelementen

4.6.1

property Visible ’ȱŽ›ȱ’Ž—œŒ‘Šȱ Visibleȱǻ’•ȱŚǯŘśǼǰȱ’Žȱœ’Œ‘ȱŠ•œȱ•Ž’Œ‘—Š–’Žȱ™›˜™Ž›¢ȱ’—ȱ›Ȭ Ž’—’œ™›˜£Žž›Ž—ȱ ŸŽ› Ž—Ž—ȱ •§œœǰȱ ”ã——Ž—ȱ Ÿ’œžŽ••Žȱ ‹“Ž”Žȱ œ˜Š›ȱ œ’Œ‘‹Š›ȱ ž—ȱ ž—œ’Œ‘‹Š›ȱŽ–ŠŒ‘ȱ Ž›Ž—ǯȱȱ

ȱȱȱ ’•ȱŚǯŘśDZȱ’Ž—œŒ‘ŠȱVisibleȱ

ŞŖ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

Ž——ȱ ’›ȱŽ–ȱž£Ž›ȱŽ—ȱž˜—ȱû‹Ž›‘Šž™ȱŽ›œȱŠ——ȱ£Ž’Ž—ȱ ˜••Ž—ǰȱ Ž——ȱŽ›ȱ ’–ȱŽ¡Ž—œŽ›ȱŽ ŠœȱŽ’—Ž›ŠŽ—ȱ‘Šǰȱ–ûœœŽ—ȱ ’›ȱ’Žȱ’Ž—œŒ‘ŠȱVisibleȱ’–ȱ‹Ȭ “Ž”’—œ™Ž”˜›ȱŽœȱž˜—œȱû›ȱŽ—ȱŠ›ȱŽ›ȱŠž£Ž’ȱŠžȱFalseȱœŽ£Ž—ǯȱȱ ȱ

4.6.2

Bedienelement sichtbar machen ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_462.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_462.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ›œȱ ‹Ž’–ȱ ’—›ŽŽ—ȱ Žœȱ ›Ž’—’œœŽœȱ —Ž›ž—ȱ ’—ȱ Ž›ȱ Ž¡‹˜¡ȱ œ˜›Ž—ȱ  ’›ȱ Š——ȱ –’Ž•œȱŽ›ȱ™›˜™Ž›¢ȱ VisibleȱŠû›ǰȱŠœœȱŽ›ȱž˜—ȱœ’Œ‘‹Š›ȱ ’›ǯȱ’•ȱŚǯŘŜȱ£Ž’ȱ ’Žȱ’žŠ’˜—ȱ‹Ž’ȱŽ’——ȱŽ›ȱŠž£Ž’ȱž—ȱ—ŠŒ‘ȱŽ›ȱŽ›œŽ—ȱ’—Š‹Žȱ’—ȱŠœȱŽ¡Ȭ Ž—œŽ›ǯȱȱ procedure TForm1.Edit1Change(Sender: TObject); begin Button1.Visible:=True end;

ȱȱȱ ’•ȱŚǯŘŜDZȱ—œ’Œ‘‹Š›Ž›ȱž—ȱœ’Œ‘‹Š›Ž›ȱž˜—ȱ Šœȱ ŽŒ‘œŽ•œŽ’’ŽȱŽ›œŽŒ”Ž—ȱž—ȱ—£Ž’Ž—ȱŸ˜—ȱŽ’Ž—Ž•Ž–Ž—Ž—ȱ–’ȱ ’•ŽȱŽ›ȱ ™›˜™Ž›¢ȱ Visibleȱ ’›ȱ’—œŽœŠ–ȱŸ’Ž•ȱœŽ•Ž—Ž›ȱŸŽ› Ž—ŽȱŠ•œȱ’Žȱ ”’Ÿ’Ž›ž—ȱ‹£ ǯȱ ŽŠ”’Ÿ’Ž›ž—ȱŸ˜—ȱŽ’Ž—ž—œŽ•Ž–Ž—Ž—ǯȱŠœȱ’œȱŠžŒ‘ȱŠ’›ȱŽŽ—û‹Ž›ȱŽ–ȱž£Ž›DZȱȱ ›ȱ œ˜••ȱ œŒ‘•’Žđ•’Œ‘ȱ  ’œœŽ—ǰȱ  Šœȱ ’Žȱ Ž—ž£Ž›˜‹Ž›•§Œ‘Žȱ û›ȱ ’‘—ȱ ‹Ž›Ž’‘§•ǰȱ ŠžŒ‘ȱ  Ž——ȱŽ›ȱŠœȱ’—Š”’ŸŽȱŽ’Ž—Ž•Ž–Ž—ȱ’–ȱ˜–Ž—ȱ—’Œ‘ȱ‹Ž’Ž—Ž—ȱŠ›ȱž—ȱ”Š——ǯȱȱ

4.7

Namensbeschaffung für passende property Ž›ŠŒ‘Ž—ȱ ’›ȱŠœȱ’•ȱŚǯŘŝǰȱŠœȱž—œȱŽ—ȱ‹’œ‘Ž›’Ž—ȱŽŒ‘Š—’œ–žœȱ—˜Œ‘ȱŽ’—–Š•ȱ Ž›”•§›ǰȱ  ’Žȱ Ž’—Žȱ ›Ž’—’œ™›˜£Žž›ȱ ™Šœœ’Ÿȱ ž—Ȧ˜Ž›ȱ Š”’Ÿȱ –’Ž•œȱ Ž’—Ž›ȱ ™ŠœœŽ—Ž—ȱ ™›˜™Ž›¢ȱŠžȱŽ—ȱŽ’Ž—Ž—ȱ˜Ž›ȱŽ’—Ž—ȱ›Ž–Ž—ȱŠŽ—”Ž›—ȱ£ž›Ž’Ž—ȱ”Š——ǰȱž–ȱŠ–’ȱ Ÿ˜–ȱŽ’Ž—Ž•Ž–Ž—ȱŽ Šœȱ£žȱŽ›Š‘›Ž—ȱ‹£ ǯȱŠ–ȱ˜Ž›ȱ’–ȱŽ’Ž—Ž•Ž–Ž—ȱŽ Šœȱ£žȱ ŸŽ›§—Ž›—ǯȱȱ

ŚǯŝȱȱŠ–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ȱ

Şŗ

ȱȱȱ ’•ȱŚǯŘŝDZȱžŽ••Žȱž—ȱ’Ž•ȱŽ’—Ž›ȱ›Ž’—’œ™›˜£Žž›ȱ ’ŽœŽ›ȱŽŒ‘Š—’œ–žœȱž—”’˜—’Ž›ȱŠ‹Ž›ȱ—ž›ǰȱ Ž——ȱ–Š—ȱŽ—Šžȱ Ž’đǰȱ ’Žȱ’ŽȱŽ—Ȭ œ™›ŽŒ‘Ž—Žȱ ’Ž—œŒ‘Šȱ ǻ™›˜™Ž›¢Ǽȱ ‘Ž’đǰȱ–’ȱ Ž›ȱ Šžȱ Ž—ȱ ŠŽ—”Ž›—ȱ £žŽ›’Ž—ȱ  ’›ǯȱȱ ȱ

4.7.1

property-Namen im Objektinspektor finden ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_471.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_471.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž‘Ž—ȱ ’›ȱž—œȱŠœȱ˜›Ž‘Ž—ȱ—˜Œ‘ȱŽ’—–Š•ȱŠ—ȱŽ’—Ž–ȱŽ’œ™’Ž•ȱŠ—ǯȱ—ȱ£ Ž’ȱŠ’˜Ȭ ›ž™™Ž—ȱǻœǯȱ‹œŒ‘—’ȱřǯřǼȱ–’ȱŽ—ȱŠ–Ž—ȱ RadioGroup1ȱž—ȱ RadioGroup2ȱ‹Ž’—Ž—ȱ œ’Œ‘ȱ—Ž‹Ž—Ž’—Š—Ž›ȱ’ŽȱŠ–Ž—ȱŽ›ȱŽžœŒ‘Ž—ȱž—Žœ•§—Ž›ȱž—ȱŽ›Ž—ȱ Šž™Ȭ œ§Žȱǻ’•ȱŚǯŘŞǼǯȱȱ ’ŽȱžŠ‹Žȱ’œȱŽ’—ŠŒ‘DZȱ’›ȱ•’—”œȱŽ’—ȱž—Žœ•Š—ȱŠžœŽ §‘•ǰȱœ˜ȱœ˜••ȱŠž˜–ŠȬ ’œŒ‘ȱ›ŽŒ‘œȱ’Žȱ£žŽ‘ã›’Žȱ Šž™œŠȱ’ŽȱŠ›”’Ž›ž—ȱŽ›‘Š•Ž—ǯȱ’›ȱŠŽŽ—ȱ ›ŽŒ‘œȱŽ’—ŽȱŠ—Žœ‘Šž™œŠȱž›Œ‘ȱŽ—ȱž£Ž›ȱŠžœŽ §‘•ǰȱœ˜ȱœ˜••ȱŠœȱ£žŽ‘ãȬ ›’Žȱž—Žœ•Š—ȱ’ŽȱŠ›”’Ž›ž—ȱ‹Ž”˜––Ž—ǯȱȱ

ŞŘ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

’Žȱ Š‘–Ž—ȱ Ž›ȱ ‹Ž’Ž—ȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ œ’—ȱ ž›Œ‘ȱ ˜™™Ž•”•’Œ”ȱ œŒ‘—Ž••ȱ ‹ŽȬ œŒ‘Šǰȱ Ž’•ȱŽœȱœ’Œ‘ȱ’—ȱ‹Ž’Ž—ȱ§••Ž—ȱž–ȱŠœȱ“Ž Ž’•’ŽȱŠ—Š›Ȭ›Ž’—’œȱ‘Š—Ž•ǯȱ û›ȱŽ—ȱ—‘Š•ȱ’œȱŠœȱŽœŽ—•’Œ‘ŽȱŠžŒ‘ȱ”•Š›DZȱȱ

ȱȱ ’•ȱŚǯŘŞDZȱŽ’——ȱŽ›ȱŠž£Ž’ȱž—ȱ—ŠŒ‘ȱŽ’—Ž›ȱžœ Š‘•ȱȱ ’›ȱ’—ȱŽ›ȱ§—Ž››ž™™ŽȱŽ §‘•ǰȱ–žœœȱ˜Ž—‹Š›ȱ˜•Ž—Žœȱ™›˜›Š––’Ž›ȱ Ž›Ȭ Ž—DZȱȱ Städte-Gruppe.Positionsproperty := Länder-Gruppe.Positionsproperty

’›ȱ’—ȱŽ›ȱ§Ž›ž™™ŽȱŽ §‘•ǰȱ’œȱŠŽŽ—ȱ˜•Ž—Ž›ȱž Ž’œž—œ‹ŽŽ‘•ȱŠžȬ £žœŒ‘›Ž’‹Ž—DZȱȱ Länder-Gruppe.Positionsproperty:= Städte-Gruppe.Positionsproperty

’Žȱ§—Ž›Ȭ ›ž™™Žȱ‘Ž’đȱ RadioGroup1ǰȱ’Žȱ§ŽȬ ›ž™™Žȱ‘Ž’đȱ RadioGroup2ǰȱŠœȱ œŠȱž—œȱŽ›ȱ‹“Ž”’—œ™Ž”˜›ǯȱ˜Œ‘ȱ ’Žȱ‘Ž’đȱ’Žȱ™›˜™Ž›¢ǰȱ’Žȱ’Žȱ˜œ’’˜—ȱ‘˜•ȱž—ȱ ‹›’—ǵȱ

ȱȱȱȱ ’•ȱŚǯŘşDZȱItemIndexȱŠžȱȮŗȱŸ˜›Ž’—ŽœŽ••DZȱ Ž’—ŽȱŠ›Šžœ Š‘•ȱ ›’——Ž›—ȱ ’›ȱž—œȱŠ—ȱŽ—ȱ‹œŒ‘—’ȱřǯřDZȱ’ŽȱŽœžŒ‘Žȱ™›˜™Ž›¢ȱ‘Ž’đȱItemIndexǯȱ

ŚǯŝȱȱŠ–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ȱ

Şř

’Žȱ‘ŠȱȮȱ ’ŽȱŠ••Žȱ™›˜™Ž›’Žœǰȱ–’ȱŽ—Ž—ȱ ’›ȱ‹’œ‘Ž›ȱŠ›‹Ž’ŽŽ—ȱȮȱŠœȱ›’Ÿ’•ŽǰȱŠœœȱ œ’Žȱœ˜Š›ȱ’–ȱŽ’œŽ›‹•Šȱ  ȱŽœȱ‹“Ž”’—œ™Ž”˜›œȱǻ’•ȱŚǯŘşǼȱ£žȱ’—Ȭ Ž—ȱ’œǯȱ’›ȱ’—ȱŽ›ȱŽ’•Žȱ ItemIndexȱŽ›ȱŽ›ȱ–’—žœȱ’—œȱŽ’—Ž›ŠŽ—ȱ’‹ȱŽœȱŠ—Ȭ Š—œȱ”Ž’—ŽȱŠ›”’Ž›ž—ȱ’—ȱŽ›ȱŠ’˜›ž™™Žǯȱȱ —œ˜—œŽ—ȱ ‹Ž’——ȱ ’Žȱ §‘•ž—ȱ Ž›ȱ ˜œ’’˜—ȱ ’––Ž›ȱ –’ȱ ž••ǯȱ ǻû›ȱ ’Žȱ Š›”’ŽȬ ›ž—ȱ Ÿ˜—ȱ ŠŒ‘œŽ—Ȭ—‘Š•ȱ ‹£ ǯȱ ŠŽ‹ž›ȱ –ûœœŽȱ Ž–—ŠŒ‘ȱ ’Žȱ Žž—ȱ Ž’—ŽȬ ›ŠŽ—ȱ Ž›Ž—Ǽǯȱ ž—ȱ œ’—ȱ Š••Žȱ —˜›–Š’˜—Ž—ȱ ŸŽ›û‹Š›ǰȱ Ž›ȱ Š–Žȱ Ž›ȱ ™ŠœœŽ—Ž—ȱ ™›˜™Ž›¢ȱ ’œȱ ‹Ž”Š——ǰȱž—ȱ’Žȱ—‘Š•ŽȱŽ›ȱ‹Ž’Ž—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ”ã——Ž—ȱ™›˜›Š––’Ž›ȱ  Ž›Ž—DZȱȱ procedure TForm1.RadioGroup1Click(Sender: TObject); begin RadioGroup2.ItemIndex:=RadioGroup1.ItemIndex end; procedure TForm1.RadioGroup2Click(Sender: TObject); begin RadioGroup1.ItemIndex:=RadioGroup2.ItemIndex end;ȱ

ȱ

4.7.2

Eigenschaft fehlt im Objektinspektor ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ !D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_472.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_472.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž›ŠŒ‘Ž—ȱ ’›ȱŽ’—ȱœŒ‘Ž’—‹Š›ȱ•Ž’Œ‘ Ž›’Žœȱ›˜‹•Ž–DZȱ’Žȱ§—Ž›ȱž—ȱŠ—ŽœȬ ‘Šž™œ§Žȱ ‹Ž’—Ž—ȱ œ’Œ‘ȱ £ Ž’ȱ ’œŽ—ǰȱ ǯȱ ‘ǯȱ ’—ȱ £ Ž’ȱ Ž’Ž—Ž•Ž–Ž—Ž—ȱ –’ȱ Ž—ȱ Ÿ˜—ȱŽ•™‘’ȱŸŽ›Ž‹Ž—Ž—ȱŠ–Ž—ȱListBox1ȱž—ȱListBox2ȱǻ’•ȱŚǯřŖǼǯȱȱ ’ŽŽ›ž–ȱœ˜••ȱ£žȱŽ’——ȱŽ›ȱŠž£Ž’ȱ”Ž’—ŽȱŠ›”’Ž›ž—ȱŽœŽ£ȱœŽ’—ǰȱž—ȱ ’ŽȬ Ž›ž–ȱœ˜••ȱœ’Œ‘ȱ‹Ž’ȱŠ‘•ȱ’—ȱŽ›ȱ•’—”Ž—ȱ’œŽȱ’ŽȱŠ›”’Ž›ž—ȱ›ŽŒ‘œȱŠž˜–Š’œŒ‘ȱŠ—Ȭ ™ŠœœŽ—ȱž—ȱž–Ž”Ž‘›ǯȱȱ ’ŽȱŠ‘–Ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ‹Ž”˜––Ž—ȱ ’›ȱœ˜˜›ȱž›Œ‘ȱŽ—ȱ˜™™Ž•”•’Œ”ǰȱ œŒ‘•’Žđ•’Œ‘ȱ  ˜••Ž—ȱ  ’›ȱ ŠžŒ‘ȱ ‘’Ž›ȱ ŽŠ”’˜—Ž—ȱ Šžȱ ’Žȱ Š—Š›Ȭ›Ž’—’œœŽȱ ǻœ’Ž‘Žȱ ‹œŒ‘—’ȱřǯŗǼȱ™›˜›Š––’Ž›Ž—ǯȱ û›ȱŽ—ȱ—‘Š•ȱ’œȱŠžŒ‘ȱŸ˜–ȱ›’—£’™ȱ‘Ž›ȱ ’ŽŽ›ȱŠ••Žœȱ”•Š›ǯȱ’›ȱ’—ȱŽ›ȱ§—Ž›Ȭ •’œŽȱŽ §‘•ǰȱ–žœœȱ˜•Ž—Žœȱ™›˜›Š––’Ž›ȱ Ž›Ž—DZȱȱ

ŞŚ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

Städte-Liste.Positionsproperty:=Länder-Liste.Positionsproperty

’›ȱ ’—ȱ Ž›ȱ §Ž•’œŽȱ Ž §‘•ǰȱ ’œȱ ˜•Ž—Ž›ȱ ž Ž’œž—œ‹ŽŽ‘•ȱ Šž£žœŒ‘›Ž’Ȭ ‹Ž—DZȱȱ Länder-Liste.Positionsproperty:=Städte-Liste.Positionsproperty

˜Œ‘ȱ—ž—ȱ”˜––ȱŽ’—ȱ›˜‹•Ž–ǰȱŠœȱ ’›ȱ‹’œ‘Ž›ȱ—’Œ‘ȱ”Š——Ž—DZȱȱ ’›ȱ ”ã——Ž—ȱ Šœȱ Ž’œŽ›‹•Šȱ   ȱ ’–ȱ ‹“Ž”’—œ™Ž”˜›ȱ £ž–ȱ ‹“Ž”ȱ –’ȱŽ–ȱŠ–Ž—ȱ ListBox1ȱ’––Ž›ȱž—ȱ’––Ž›ȱ ’ŽŽ›ȱœž’Ž›Ž—ǯȱ’›ȱ”ã——Ž—ȱŠȬ ‹Ž’ȱŠžŒ‘ȱŠ••ŽȱŽ—•’œŒ‘Ž—ȱ˜”Š‹Ž•—ȱ•Ž’đ’ȱ’—œȱŽžœŒ‘Žȱû‹Ž›œŽ£Ž—ǰȱ Š—‹ûŒ‘Ž›ȱ £žȱ ’•Žȱ—Ž‘–Ž—DZȱȱ œȱ ’›ȱž—œȱ—’Œ‘ȱŽ•’—Ž—ǰȱ˜›ȱŽ’—ŽȱŽ’•Žȱ£žȱ’—Ž—ǰȱ–’ȱŽ›Ž—ȱ ’•Žȱ’Žȱ˜œ’Ȭ ’˜—ȱŽ›ȱŠ›”’Ž›ž—ȱ’—ȱŽ’—Ž›ȱ’œ‹˜¡ȱŸ˜›Ž’—ŽœŽ••ȱ Ž›Ž—ȱ”Š——ǯȱ’—ŽȱŽ›Š›’Žȱ ™›˜™Ž›¢ȱœŒ‘Ž’—ȱ£žȱŽ‘•Ž—ǯȱȱ Ž›ȱ  ž›Žȱ œ’Žȱ —ž›ȱ —’Œ‘ȱ ’—ȱ Šœȱ Ž’œŽ›‹•Šȱ   ȱ Žœȱ ‹“Ž”’—Ȭ œ™Ž”˜›œȱŠžŽ—˜––Ž—ǵȱȱ

ȱȱȱ ’•ȱŚǯřŖDZȱ Ž’ȱ’œŽ—ȱ‹Ž’–ȱŠ›ȱž—ȱ—ŠŒ‘ȱŽ’—Ž›ȱžœ Š‘•ȱȱ Š–’ȱ œŽ‘Ž—ȱ  ’›ȱ Ÿ˜›ȱ Ž–ȱ ›˜‹•Ž–ȱ Ž›ȱ žŒ‘Žȱ —ŠŒ‘ȱŽ–ȱ Š–Ž—ȱ Ž›“Ž—’Ž—ȱ ™›˜Ȭ ™Ž›¢ǰȱ ’Žȱ ’Žȱ ˜œ’’˜—ȱ Ž›ȱ Š›”’Ž›ž—ȱ Šžœȱ Ž’—Ž–ȱ ’œŽ—ȬŠŽ—”Ž›—ȱ ‘Ž›Šžœ‘˜•ȱ ž—Ȧ˜Ž›ȱ’—ȱŽ’—Ž—ȱ’œŽ—ȬŠŽ—”Ž›—ȱ‘’—Ž’—‹›’—ǯȱ ’‹ȱŽœȱœ’Žȱû‹Ž›‘Šž™ǵȱȱ ’Žȱ㜞—ȱ•ŠžŽDZȱ’ŽȱŽœžŒ‘Žȱ™›˜™Ž›¢ȱ’‹ȱŽœǰȱŠ‹Ž›ȱœ’Žȱ–žœœȱŠ—ȱŠ—Ž›Ž›ȱŽ••Žȱ ŽœžŒ‘ȱž—ȱŽž—Ž—ȱ Ž›Ž—ǯȱȱ

4.7.3

Information durch die Punktliste ’•ȱŚǯřŗȱ£Ž’ȱŽœDZȱŽ——ȱ–Š—ȱ‹Ž’–ȱŒ‘›Ž’‹Ž—ȱŸ˜–ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ǰȱ —ŠŒ‘ȱ Ž–ȱ Š–Ž—ȱ Žœȱ ‹“Ž”œǰȱ ‹Ž’–ȱ ’—’™™Ž—ȱ Žœȱ ž—”Žœǰȱ ”—Š™™ȱ Ž’—Žȱ ŽȬ ”ž—Žȱ Š›ŽǰȱŽ›•Ž‹ȱ–Š—ȱŠœȱž”•Š™™Ž—ȱŽ’—Žœȱ‹Žœ˜—Ž›Ž—ȱŽ—ûœǯȱ œȱŽ›œŒ‘Ž’—ȱŽ’—Žȱ—£Ž’Žǰȱ’Žȱ ’›ȱ ŽŽ—ȱŽœȱ˜›Ž‘Ž—œȱ£žȱ’‘›Ž›ȱŽœŒ‘Šž—ȱ Š‹ȱ“Ž£ȱ’Žȱž—”•’œŽȱ—Ž——Ž—ȱ ˜••Ž—ǯȱ

ŚǯŝȱȱŠ–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ȱ

Şś

—ȱŽ›ȱž—”•’œŽȱ‹Ž’—Ž—ȱœ’Œ‘ȱœ˜ ˜‘•ȱ’Ž“Ž—’Ž—ȱ™›˜™Ž›’Žœǰȱ’Žȱ‹Ž›Ž’œȱŠ•œȱ’Ž—Ȭ œŒ‘ŠŽ—ȱŠžœȱŽ–ȱ‹“Ž”’—œ™Ž”˜›ȱŽ›ȱ’œŽȱ‹Ž”Š——ȱœ’—ǰȱ Š•œȱŠžŒ‘ȱŸ’Ž•Žȱ Ž’Ž›Žǰȱ ‹’œ‘Ž›ȱž—‹Ž”Š——Žǰȱ£žœ§£•’Œ‘Žȱ™›˜™Ž›’Žœǯȱȱ

ȱȱ ’•ȱŚǯřŗDZȱž—”•’œŽȱ Š—ȱ Ž›”Ž——ȱ œ’Žȱ Š••Žȱ Š—ȱ Ž–ȱ Œ‘•ûœœŽ• ˜›ȱ ™›˜™Ž›¢ǯȱ ••Ž›’—œDZȱ ‘›ȱ Š–Žȱ Š›ȱ —’Œ‘ȱ–’ȱOnȱ‹Ž’——Ž—ǯȱȱ  ••Žȱ ™›˜™Ž›’Žœǰȱ ǯȱ ‘ǯȱŠ••ŽȱŽŒ‘Š—’œ–Ž—ȱ £ž–ȱ Š”’ŸŽ—ȱ ž—Ȧ˜Ž›ȱ ™Šœœ’ŸŽ—ȱ ž›’ȱ Šžȱ ŠŽ—”Ž›—Žȱ Ÿ˜—ȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”Ž—ǰȱ Ž›”Ž——ȱ –Š—ȱ ’—ȱ Ž›ȱ ž—”•’œŽȱ Š›Š—ǰȱ Šœœȱ œ’Žȱ –’ȱ Ž›ȱ ¢™Ȭ›”•§›ž—ȱ propertyȱ ŸŽ›œŽ‘Ž—ȱ œ’—ȱ ž—ȱ Šœœȱ ’‘›ȱ Š–Žȱ —’Œ‘ȱ–’ȱŽ—ȱ‹Ž’Ž—ȱžŒ‘œŠ‹Ž—ȱOnȱ‹Ž’——ǯȱ

4.7.4

Information über die Art der Zuweisung ›’——Ž›—ȱ  ’›ȱ ž—œȱ Š—ȱ Šœȱ ’•ȱ ŚǯŘŞDZȱ œȱ Ž’—Žȱ ™›˜™Ž›¢ȱ ’–ȱ Ž’œŽ›‹•Šȱ  Ȭ  ȱŽœȱ‹“Ž”’—œ™Ž”˜›œȱŠžŽ•’œŽǰȱŽ›”Ž——ȱ–Š—ȱ›ŽŒ‘œȱŠ—Ž‹Ž—ǰȱ Šœȱ’ŽȬ œŽȱ™›˜™Ž›¢ȱ•’ŽŽ›ȱž—ȱ‹›ŠžŒ‘ǯȱȱ ˜Œ‘ȱ ’ŽȱŽ›§‘›ȱ–Š—ǰȱ ŠœȱŽ’—Žȱ™›˜™Ž›¢ȱ•’ŽŽ›ȱž—ȱ‹›ŠžŒ‘ǰȱ Ž——ȱœ’Žȱ—’Œ‘ȱœ˜ȱ ™›’Ÿ’•Ž’Ž›ȱ’œǰȱŠœœȱœ’Žȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱŠžŽ•’œŽȱ’œǵȱȱȱȱ Ž‘Ž—ȱ ’›ȱž—œȱŠ•œȱ— ˜›ȱŠžȱ’ŽœŽȱ›ŠŽȱ’—ȱ’•ȱŚǯřŗȱ’Žȱ‘Ž›Ÿ˜›Ž‘˜‹Ž—ŽȱŽ’Ȭ •ŽȱŠžœȱŽ›ȱž—”•’œŽȱŠ—DZȱ property ItemIndex: Integer

ŽŒ‘œȱŸ˜–ȱ˜™™Ž•™ž—”ȱ”ã——Ž—ȱ ’›ȱ’Žȱ•Ž’Œ‘ Ž›’Žȱ—˜›–Š’˜—ȱŠ‹•ŽœŽ—ǯȱ  ’Žȱ™›˜™Ž›¢ȱ ItemIndexǰȱ–’ȱŽ›ȱ’Žȱ˜œ’’˜—ȱŽ›ȱŠ›”’Ž›ž—ȱ’—ȱŽ’—Ž›ȱ’œŽȱŠžœȱ Ž–ȱ ŠŽ—”Ž›—ȱ Ž‘˜•ȱ ‹£ ǯȱ ’—ȱ Ž—ȱ ŠŽ—”Ž›—ȱ Ž‹›ŠŒ‘ȱ  Ž›Ž—ȱ ”Š——ǰȱ •’ŽŽ›ȱ ‹£ ǯȱ‹Ž—㝒ȱŽ’—ŽȱŠ—£ŽȱŠ‘•ȱǻIntegerǼǯȱȱ Ž£ȱœ’—ȱŠ••Žȱ—˜›–Š’˜—Ž—ȱŸ˜›‘Š—Ž—ǰȱ’Žȱ ’›ȱ£ž›ȱ㜞—ȱŽ›ȱžŠ‹Žȱ‹Ž—㝒Ȭ Ž—DZȱȱ ’Žȱ‹Ž’Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”Žȱ‘Ž’đŽ—ȱ ListBox1ȱž—ȱ ListBox2ǰȱ’Žȱ™›˜™Ž›¢ȱû›ȱ’Žȱ ˜œ’’˜—ȱŽ›ȱŠ›”’Ž›ž—ȱ‘Ž’đȱItemIndexǯȱȱ ˜–’ȱ”ã——Ž—ȱ ’›ȱ’ŽȱŠ‘–Ž—ȱŽ›ȱ‹Ž’Ž—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱŠ—˜›Ž›—ȱž—ȱŽ›Ž—ȱ —‘Š•ŽȱœŒ‘›Ž’‹Ž—DZȱȱ

ŞŜ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

procedure TForm1.ListBox1Click(Sender: TObject); begin Listbox2.ItemIndex:=Listbox1.ItemIndex end; procedure TForm1.ListBox2Click(Sender: TObject); begin Listbox1.ItemIndex:=Listbox2.ItemIndex end;

4.7.5

Start-Markierung in Listen setzen –ȱ ‹“Ž”’—œ™Ž”˜›ȱ Ÿ˜—ȱ ’œŽ—ȱ ’‹ȱ Žœǰȱ Šœȱ Ž›ž‘›Ž—ȱ  ’›ȱ Ž‹Ž—ǰȱ ”Ž’—Žȱ ™›˜™Ž›¢ȱ £ž›ȱ ˜›Ž’—œŽ••ž—ȱ Ž›ȱ Š›ȬŠ›”’Ž›ž—ȱ ’—ȱ Ž’—Ž›ȱ ’œŽǯȱ œȱ Š–’ȱ œ˜•Œ‘ȱ Ž’—Žȱ ˜›Ž’—Ȭ œŽ••ž—ȱŽ—Ž›Ž••ȱž—–㐕’Œ‘ǵȱ Ž’—ǯȱ ’ȱ ’•Žȱ Ž›ȱ Žž—Ž—Ž—ȱ ™›˜™Ž›¢ȱ ItemIndexȱ •§œœȱ œ’Œ‘ȱ ž›Œ‘ȱ Ž’—Žȱ ‹ŽȬ œ’––Žȱ ›Ž’—’œ™›˜£Žž›ȱ Šû›ȱ œ˜›Ž—ǰȱ Šœœȱ ‹Ž’ȱ Ž’——ȱ Ž›ȱ Šž£Ž’ȱ ’Žȱ Ž’•Žȱ ŠŒ‘œŽ—Ȭ—‘Š•ȱ –’ȱ Ž›ȱ Šž™œŠȱ ŠŽ‹ž›ȱ ‹Ž›Ž’œȱ ’Žȱ Š›”’Ž›ž—ȱ ›§ȱ ǻ’•ȱŚǯřŘǼǯȱ ’—ȱ˜™™Ž•”•’Œ”ȱŠžȱŠœȱ˜›–ž•Š›ȱǻœ’Ž‘Žȱ‹œŒ‘—’ȱŘǯŘǯŝǼȱ•’ŽŽ›ȱž—œȱ‹Ž”Š——•’Œ‘ȱ Ž—ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ›Ž’—’œȱCreateDZȱŠœȱ˜›–ž•Š›ȱ ’›ȱŽ›Ȭ £Žžǯȱ ˜••’Œ‘ȱ‹›ŠžŒ‘Ž—ȱ ’›ȱŠ•œȱ—‘Š•ȱ’ŽœŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ—ž›ȱ’ŽȱŠ›ȬŠ›”’Ž›ž—ȱ £žȱ ™›˜›Š––’Ž›Ž—ǰȱ  ˜‹Ž’ȱ  ŽŽ—ȱ Ž›ȱ £ Ž’ȱ ž Ž’œž—Ž—ȱ Šœȱ Ž–’”˜•˜—ȱ Š•œȱ ›Ž——£Ž’Œ‘Ž—ȱ£žȱ‹ŽŠŒ‘Ž—ȱ’œDZȱȱ procedure TForm1.FormCreate(Sender: TObject); begin Listbox1.ItemIndex:=9; Listbox2.ItemIndex:=9 end;

ȱȱȱ ’•ȱŚǯřŘDZȱŠ›ȬŽ•Žž—ȱ’—ȱŽ—ȱ‹Ž’Ž—ȱ’œ‹˜¡Ž—ȱȱ

4.7.6

Passiver und aktiver Zugriff auf Zeilen in einer Listbox Ž›ŠŒ‘Ž—ȱ ’›ȱŽ’—ȱ Ž’Ž›ŽœȱŽ’œ™’Ž•ǰȱŠœȱž—œȱŠžŒ‘ȱ ’ŽŽ›ȱ£ ’—Ž—ȱ ’›ǰȱ’—ȱŽ›ȱ ž—”•’œŽȱ—ŠŒ‘ȱŽ’—Ž›ȱ™ŠœœŽ—Ž—ȱ™›˜™Ž›¢ȱ£žȱœžŒ‘Ž—ǯȱȱ

ȱ

žȱŽ›ȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱœ˜••Ž—ȱœ’Œ‘ȱ ’ŽŽ›ȱ’Žȱ’œŽȱŽ›ȱž—Žœ•§—Ž›ȱž—ȱ ’Žœ–Š•ȱ ›ŽŒ‘œȱ Š—Ž‹Ž—ȱ Ž’—ȱ Ž¡Ž—œŽ›ȱ ‹Ž’—Ž—ǯȱ ’Žȱ Ž˜›Ž›Žȱ Š›‹Ž•Žž—ȱ £Ž’ȱ’•ȱŚǯřřǯȱ

ŚǯŝȱȱŠ–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ȱ

Şŝ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_476.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_476.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ’•ȱŚǯřřȱŠ›ȬŽ•Žž—ȱ’—ȱ’œŽȱž—ȱŽ¡Ž—œŽ›ȱ û›ȱ ’Žȱ Š›‹Ž•Žž—ȱ ›Ž’Œ‘Ž—ȱ £ Ž’ȱ ž Ž’œž—œ‹ŽŽ‘•Žȱ ’—ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱŠ—Š›Ȭ›Ž’—’œȱCreateȱȮȱ Ž›œŽ••ž—ȱŽœȱ˜›–ž•Š›œȱŠžœDZȱ procedure TForm1.FormCreate(Sender: TObject); begin Listbox1.ItemIndex:=9; Edit1.Text:='Sachsen-Anhalt' end;

Ž›ŠŒ‘Ž—ȱ ’›ȱ£žŽ›œȱ’Žȱ˜•Ž—ŽȱžŠ‹ŽDZȱŽ——ȱŽ›ȱž£Ž›ȱ’—ȱŽ›ȱ’œŽȱ–’ȱ Ž—ȱ §—Ž›—Š–Ž—ȱ Ž’—Žȱ žœ Š‘•ȱ ›’ǰȱ œ˜••ȱ Šž˜–Š’œŒ‘ȱ ’ŽœŽ›ȱ §—Ž›—Š–Žȱ ’—ȱ Ž–ȱŽ¡Ž—œŽ›ȱŽ›œŒ‘Ž’—Ž—ǯȱȱ Ž—ȱ Š‘–Ž—ȱû›ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ ‹Ž”˜––Ž—ȱ  ’›ȱ œ˜˜›ǰȱ Ž——ȱ £žȱ ‹Ž‘Š—Ž•—ȱ ’œȱŠœȱ’œŽ—ȬŠ—Š›Ȭ›Ž’—’œȱǻœǯȱ‹œŒ‘—’ȱřǯŗǼDZȱȱ procedure TForm1.ListBox1Click(Sender: TObject); begin Edit1.Text:=...???........ end;

’Žȱ•’—”ŽȱŽ’Žǰȱǯȱ‘ǯȱ’Žȱ’Ž•ȬŽ’ŽȱŽœȱŽŽ‘•œǰȱ’œȱŸã••’ȱ”•Š›DZȱŽ—ȱŠ–Ž—ȱ Textȱ Ž›ȱ™ŠœœŽ—Ž—ȱ™›˜™Ž›¢ȱ£ž–ȱ›Š—œ™˜›ȱ’—ȱ’Žȱ—‘Š•œȬ ˜–™˜—Ž—ŽȱŽœȱŠŽ—”Ž›—œȱ Ž’—ŽœȱŽ¡Ž—œŽ›Ȭ‹“Ž”œȱ”Ž——Ž—ȱ ’›ȱŠžœȱŽ–ȱ‹“Ž”’—œ™Ž”˜›ǯȱȱ

ŞŞ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

‹Ž›ȱ’Žȱ›ŽŒ‘ŽȱŽ’Žǵȱ˜›ȱ–žœœȱ’ŽȱŽœŒ‘›’ž—ȱŽ›“Ž—’Ž—ȱŽ’•ŽȱœŽ‘Ž—ǰȱŠžȱ’Žȱ Ž›ȱž£Ž›ȱŽ›ŠŽȱ’ŽȱŠ›”’Ž›ž—ȱŽœŽ£ȱ‘Šǯȱȱ ’Žȱ˜œ’’˜—ȱŽ›ȱŠ”žŽ••Ž—ȱŠ›”’Ž›ž—ȱ’—Žȱ–Š—ȱ–’ȱŽ›ȱ™›˜™Ž›¢ȱItemIndexǯȱȱ ‹Ž›ȱ ’Žȱ’—Žȱ–Š—ȱ’ŽȱŽœŒ‘›’ž—ȱŠ—ȱŽ’—Ž›ȱ‹Žœ’––Ž—ȱ˜œ’’˜—ȱŽ›ȱ’œŽǵȱȱ ’—Žœȱ û›Žȱ –’•Ž› Ž’•Žȱ ‹Ž”Š——ȱ œŽ’—DZȱ ’—Žȱ Ž’•Žȱ ’—ȱ Ž’—Ž›ȱ ’œŽȱ ‘Ž’đȱ Ž–ȱ Šžȱ —•’œŒ‘ǯȱ˜••’Œ‘ȱ’™™Ž—ȱ ’›ȱ—ŠŒ‘ȱ Listbox1ȱŽ—ȱž—”ȱŽ’—ǰȱ Š›Ž—ȱŽ’—ŽȱŽ”ž—Žȱ ž—ȱœžŒ‘Ž—ȱŠ——ȱ’—ȱŽ›ȱž—”•’œŽȱǻ’•ȱŚǯřŚǼǯȱ

ȱȱȱ ’•ȱŚǯřŚDZȱžŒ‘Žȱ—ŠŒ‘ȱ™ŠœœŽ—Ž›ȱ™›˜™Ž›¢ȱ Ž›œžŒ‘Ž—ȱ  ’›ȱ ŽœDZȱ ’™™Ž—ȱ  ’›ȱ Edit1.Text:=Listbox1.Itemsȱ Ž’—ǯȱ Ž‘ȱ —’Œ‘ȱ Ȯȱ Žœȱ ’‹ȱŽ’—ŽȱŽ‘•Ž›–Ž•ž—ǯȱȱȱ ˜••’Œ‘ȱŸŽ›œžŒ‘Ž—ȱ ’›ȱŽœȱ Ž’Ž›ȱ’—ȱŽ›ȱž—”•’œŽǰȱ›ŠŽ—ȱ‘’—Ž›ȱItemsȱŽ’—Ž—ȱ Ž’Ȭ Ž›Ž—ȱž—”ȱŽ’—ǰȱ Š›Ž—ȱŠ‹Ž›–Š•œǰȱž—ȱœžŒ‘Ž—ȱŠ——ȱ£’Ž•Ž›’Œ‘Žȱ’—ȱŽ›ȱ—§Œ‘œŽ—ȱ ž—”•’œŽȱǻ’•ȱŚǯřśǼǯȱ

ȱȱȱ ’•ȱŚǯřśDZȱžŒ‘Žȱ’—ȱŽ›ȱ—§Œ‘œŽ—ȱž—”•’œŽȱ ž—ȱœ’—ȱ ’›ȱŠ–ȱ’Ž•DZȱ’ŽȱŽž—Ž—Žȱ™›˜™Ž›¢ȱ Items.Stringsȱ•’ŽŽ›ȱ‹£ ǯȱ‹Ž—ãȬ ’ȱŽ’—ŽȱŽ’Œ‘Ž—˜•Žǰȱœ˜Ž›—ȱœ’Žȱ’—ȱŽ—ȱŽŒ”’Ž—ȱ •Š––Ž›—ȱ’Žȱ‹Ž›ŽŽ—Žȱ˜œ’’˜—ȱ Ž›§‘›ǯȱŽ‘Ž—ȱ ’›ȱž—œȱ’ŽȱŽ›’Žȱ›Ž’—’œ™›˜£Žž›ȱŠ—DZȱ procedure TForm1.ListBox1Click(Sender: TObject); begin Edit1.Text:=Listbox1.Items.Strings[Listbox1.ItemIndex] end;

Ž›ȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›ȱ œ˜••Žȱ Ÿ˜—ȱ ›ŽŒ‘œȱ —ŠŒ‘ȱ •’—”œȱ ž—ȱ Ÿ˜—ȱ ’——Ž—ȱ —ŠŒ‘ȱ ŠžđŽ—ȱŽ•ŽœŽ—ȱ Ž›Ž—ǯȱȱ ŠœȱŒ‘Ž–Šȱ’—ȱ’•ȱŚǯřŜȱŽ›”•§›ȱŠ£žȱŠœȱ˜›Ž‘Ž—DZȱȱ ȱȱ

ŚǯŝȱȱŠ–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ȱ

Şş

ȱ ’•ȱŚǯřŜDZȱŒ‘Ž–ŠȱŽ›ȱ›‹Ž’ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ  Ž’ȱ ž£Ž›Ž’— ’›”ž—ȱ Šžȱ ’Žȱ ’œŽȱ ‘˜•ȱ œ’Œ‘ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ £žŽ›œȱ Šžœȱ Ž–ȱ Ž’Ž—Ž—ȱ ’œŽ—ȬŠŽ—”Ž›—ȱ ’Žȱ ˜œ’’˜—ȱ Ž›ȱ Š›”’Ž›ž—ȱ –’ȱ ’•Žȱ Ž›ȱ ™›˜Ȭ ™Ž›¢ȱItemIndexǯȱȱ  Š—ŠŒ‘ȱ‘˜•ȱœ’Žȱ Ž’Ž›ȱŠžœȱŽ–ȱŽ’Ž—Ž—ȱ’œŽ—ȬŠŽ—”Ž›—ȱ–’ȱ ’•ŽȱŽ›ȱ’—ȱŽ›ȱ ž—”•’œŽȱŽž—Ž—Ž—ȱ™›˜™Ž›¢ȱItems.String[..]ȱŽ—ȱ—‘Š•ȱǻ’ŽȱŽœŒ‘›’ž—Ǽȱ Ž›ȱŽ’•Žȱû›ȱ’ŽœŽȱ˜œ’’˜—ǯȱȱ  —œŒ‘•’ŽđŽ—ȱ  ’›ȱ –’ȱ Ž›ȱ ™›˜™Ž›¢ȱ Textȱ ’—ȱ Ž—ȱ ŠŽ—”Ž›—ȱ Žœȱ Ž¡Ž—œŽ›œȱ ǻ›Ž–Žœȱ‹“Ž”Ǽȱ›Š—œ™˜›’Ž›ǯȱȱ ž›ȱ Ž’Ž›Ž—ȱt‹ž—ȱ ˜••Ž—ȱ ’›ȱž—œȱŸ˜›œŽ••Ž—ǰȱŠœœȱŽ›ȱž£Ž›ȱ’Žȱ Ž•ŽŽ—‘Ž’ȱ ‹Ž”˜––Ž—ȱœ˜••ǰȱ’–ȱŽ¡Ž—œŽ›ȱŠ—ȱŽ–ȱ§—Ž›—Š–Ž—ȱŽ Šœȱ§—Ž›—ȱ£žȱû›Ž—DZȱ ’ȱ ’•ŽȱŽ’—Žœȱž˜—œȱ–’ȱŽ›ȱžœŒ‘›’ȱ Änderung eintragen ȱœ˜••ȱŽ›ȱ’ŽœŽȱ —Ȭ Ž›ž—ȱŠ——ȱŠžŒ‘ȱ’—ȱ’Žȱ’œŽȱû‹Ž››ŠŽ—ȱ”ã——Ž—ȱǻ’•ȱŚǯřŝǼǯȱȱ Ž›ȱŠ‘–Ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ’œȱœ˜˜›ȱ‹ŽœŒ‘ŠǰȱŽœȱ ‘Š—Ž•ȱœ’Œ‘ȱž–ȱŠœȱŠ—Š›Ȭ›Ž’—’œǯȱû›ȱŽ—ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ’œȱ•ŽȬ ’•’Œ‘ȱŽ’—ȱŽ’—£’Ž›ȱž Ž’œž—œ‹ŽŽ‘•ȱ£žȱ™›˜›Š––’Ž›Ž—ǯȱȱ ŽŒ‘œǰȱŠžȱŽ›ȱžŽ••œŽ’ŽǰȱœŽ‘ȱ‹Ž’ȱ’ŽœŽ›ȱžŠ‹Ž—œŽ••ž—ȱŽ›ȱ—‘Š•ȱŽœȱŽ¡Ȭ Ž—œŽ›œǰȱ–’ȱŽ›ȱ™›˜™Ž›¢ȱTextȱŠžœȱŽ–ȱŽ’Ž—Ž—ȱŠŽ—”Ž›—ȱŽ‘˜•ǯȱ ’—”œȱŠžȱŽ›ȱ ’Ž•œŽ’ŽȱœŽ‘ȱ’Žȱ™›˜™Ž›¢ȱ Items.Strings[...]ȱ£ž›ȱŽ›§—Ž›ž—ȱŽ›ȱ ŽœŒ‘›’ž—Dzȱ œ’Žȱ ŸŽ› Ž—Žȱ ’Žȱ ž›Œ‘ȱ ’Žȱ ™›˜™Ž›¢ȱ ItemIndexȱ Ž•’ŽŽ›Žȱ ˜œ’’˜—ȱ Ž›ȱŠ›”’Ž›ž—ǯȱ

şŖ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

procedure TForm1.Button1Click(Sender: TObject); begin Listbox1.Items.Strings[Listbox1.ItemIndex]:=Edit1.Text end;

’•ȱ Śǯřŝȱ £Ž’ȱ Ž’—Žȱ –㐕’Œ‘Žȱ ’›”ž—DZȱ ’—ȱ ž£Ž›ȱ  Š›ȱ Ž›ȱ Ž’—ž—ǰȱ Šœœȱ ’–ȱ ”•Ž’—œŽ—ȱ ž—Žœ•Š—ȱ ž—‹Ž’—ȱ ’Žȱ £ Ž’Žȱ Šȱ Ž› §‘—ȱ  Ž›Ž—ȱ œ˜••Žǯȱ •œ˜ȱ œŽ£ŽȱŽ›ȱ’—ȱŽ›ȱ’œŽȱ’ŽȱŠ›”’Ž›ž—ȱŠžȱ›Ž–Ž—ǰȱŽ›§—£Žȱ’–ȱŽ¡Ž—œŽ›ǰȱž—ȱ œŒ‘’Œ”ŽȱŽ—ȱ”˜››’’Ž›Ž—ȱ’—›Šȱ™Ž›ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ’—ȱ’Žȱ’œŽȱ£ž›ûŒ”ǯȱȱ

ȱȱȱ ’•ȱŚǯřŝDZȱ —Ž›ž—Ž—ȱ’—ȱ’Žȱ’œŽȱœŒ‘›Ž’‹Ž—ȱ

4.7.7

Vereinfachungen durch verkürzte property Items[...] Ž•™‘’ȱ‘Šȱœ’Œ‘ȱ’–ȱŠžŽȱŽ›ȱŽ’ȱŽ— ’Œ”Ž•ǰȱŠ‹Ž’ȱ ž›Ž—ȱû›ȱ’ŽȱŽšžŽ–•’Œ‘Ȭ ”Ž’ȱ Ž›ȱ ›˜›Š––’Ž›Ž›ȱ ŸŽ›œŒ‘’ŽŽ—Žȱ Ž›Ž’—ŠŒ‘ž—Ž—ȱ £žŽ•ŠœœŽ—ǯȱ ’—Žȱ Ž›œŽȱ Ž›Ž’—ŠŒ‘ž—ȱ ˜••Ž—ȱ ’›ȱ”Ž——Ž—ȱ•Ž›—Ž—ǯȱȱ œȱ’œȱŽ›•Šž‹ǰȱŠ—œŽ••ŽȱŽ›ȱŠžœû‘›•’Œ‘Ž—ȱž Ž’œž—œ‹ŽŽ‘•Žȱ Listbox1.Items.Strings[Listbox1.ItemIndex]:=Edit1.Text

ž—ȱȱ Edit1.Text:=Listbox1.Items.Strings[Listbox1.ItemIndex];

’Žȱ‹Ž’Ž—ȱŽ›”û›£ž—Ž—ȱ£žȱŸŽ› Ž—Ž—ǰȱ’Žȱž›Œ‘ȱŽ•ŠœœŽ—ȱŽ›ȱ—Ž›Ȭ™›˜™Ž›¢ȱ StringsȱŽ—œŽ‘Ž—DZȱ Listbox1.Items[Listbox1.ItemIndex]:=Edit1.Text

ž—ȱȱ Edit1.Text:=Listbox1.Items[Listbox1.ItemIndex];

ȱ

Ž—Ž—ȱ ’›ȱ’ŽœŽȱŸŽ›”û›£ŽȱŒ‘›Ž’‹ Ž’œŽȱŠžȱŽ’—ȱ•Ž£ŽœȱŽ’œ™’Ž•ȱ’—ȱ’ŽœŽ–ȱ ŠȬ ™’Ž•ȱŠ—ǰȱ–’ȱŽ–ȱ ’›ȱ•Ž’Œ‘£Ž’’ȱŽ’—œ’––Ž—ȱ ˜••Ž—ȱŠžȱ’ŽȱŽ› Š•ž—ȱŸ˜—ȱŠȬ Ž—‹Žœ§—Ž—ǰȱ’Žȱ’—ȱ’œŽ—ȱŽ›Šœœȱœ’—ǯȱȱȱ

ŚǯŝȱȱŠ–Ž—œ‹ŽœŒ‘Šž—ȱû›ȱ™ŠœœŽ—Žȱ™›˜™Ž›¢ȱ

şŗ

ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 4ȱȱ’ŽȱzipȬŠŽ’ȱ DKap04.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap04 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_477.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap04 ȱ’ŽȱŠŽ’ȱproj_477.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ —Ž›ȱ Ž—ȱ ›Ž’ȱ ’œŽ—ȱ –’ȱ ž—Žœ•§—Ž›—ǰȱ ’‘›Ž—ȱ Šž™œ§Ž—ȱ ž—ȱ ž˜”Ž——Ȭ £Ž’Œ‘Ž—ȱŽ›ȱ Šž™œ§Žȱœ˜••Ž—ȱœ’Œ‘ȱ£ Ž’ȱž˜—œȱ–’ȱŽ—ȱžœŒ‘›’Ž—ȱ Voriger!! ȱ ž—ȱ Nächster ȱ‹Ž’—Ž—ǯȱȱ

žȱŽ’——ȱŽ›ȱŠž£Ž’ȱœ˜••ȱ’ŽȱŽ’•ŽȱŸ˜—ȱŠŒ‘œŽ—Ȭ—‘Š•ȱŠžœŽ §‘•ȱœŽ’—DZȱŠ£žȱ œŒ‘›Ž’‹Ž—ȱ ’›ȱ ’ŽŽ›ȱŽ—ȱ’—£ ’œŒ‘Ž—ȱ‹Ž”Š——Ž—ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ Š—Š›Ȭ›Ž’—’œȱCreateȱŽœȱ˜›–ž•Š›œǯȱȱ Ž’ȱ •’Œ”ȱŠžȱŽ’—Ž—ȱž˜—ȱœ˜••ȱ’ŽȱŠ›”’Ž›ž—ȱ—ŠŒ‘ȱ˜‹Ž—ȱ‹£ ǯȱž—Ž—ȱ’—ȱŽ›ȱ›’Œ‘’Ȭ Ž—ȱŽ’œŽȱ Š—Ž›—ǯȱ’ŽȱŽœŒ‘›’ž—Ž—ȱœ˜••Ž—ȱ£žœ§£•’Œ‘ȱ’—ȱ›Ž’ȱŠ‹Ž•œȱǻ’•ȱŚǯřŞǼȱ Š—Ž£Ž’ȱ Ž›Ž—ǯȱȱ

ȱȱȱ ’•ȱŚǯřŞDZȱŽ› Š•ž—ȱŽ’—ŽœȱŠŽ—‹ŽœŠ—Žœȱ û›ȱ›Ž’ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ–ûœœŽ—ȱ’ŽȱŠ‘–Ž—ȱ‹ŽœŒ‘Šȱž—ȱ’Žȱ—‘Š•Žȱ™›˜›Š–Ȭ –’Ž›ȱ Ž›Ž—DZȱû›ȱŠœȱ›Ž’—’œȱ›£Žžž—ȱŽœȱ˜›–ž•Š›œȱœ˜ ’Žȱ ’Žȱû›ȱ’Žȱ‹Ž’Ž—ȱ

•’Œ”Ȭ›Ž’—’œœŽȱŽ›ȱž˜—œǯȱȱ

şŘ

Śȱȱ›Ž’—’œ™›˜£Žž›Ž—DZȱŽ› Ž—ž—ȱŸ˜—ȱ™›˜™Ž›’Žœȱ

’Žȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ £žȱ Ž—ȱ ›Ž’—’œœŽ—ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ –’ȱ Ž›ȱ ŽȬ œŒ‘›’ž—ȱ!!Voriger!ȱœ˜ ’Žȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱ!!Nächster!ȱž—Ȭ Ž›œŒ‘Ž’Ž—ȱœ’Œ‘ȱ—ž›ȱ’—ȱŽ—ȱ›Ž’ȱŽ›œŽ—ȱž Ž’œž—œ‹ŽŽ‘•Ž—ǯȱȱ Ž’–ȱ•’—”Ž—ȱž˜—ȱ ’›ȱ’Žȱ˜œ’’˜—ǰȱ—ŠŒ‘Ž–ȱœ’Žȱ–’Ž•œȱŽ›ȱ™›˜™Ž›¢ȱ ItemIndexȱ ŠžœȱŽ–ȱŠŽ—”Ž›—ȱŽ‘˜•ȱ ž›Žǰȱž–ȱŽ’—œȱ›Žž£’Ž›ȱž—ȱ£ž›ûŒ”ŽœŒ‘’Œ”ǯȱȱ Šž›Œ‘ȱ Š—Ž›ȱ’ŽȱŠ›”’Ž›ž—ȱ—ŠŒ‘ȱ˜‹Ž—ǯȱȱȱ procedure TForm1.Button1Click(Sender: TObject); begin Listbox1.ItemIndex:=Listbox1.ItemIndex-1; Listbox2.ItemIndex:=Listbox2.ItemIndex-1; Listbox3.ItemIndex:=Listbox3.ItemIndex-1; Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]; Label2.Caption:=Listbox2.Items[Listbox2.ItemIndex]; Label3.Caption:=Listbox3.Items[Listbox3.ItemIndex] end;

Ž’–ȱ›ŽŒ‘Ž—ȱž˜—ȱ ’›ȱ’Žȱ˜œ’’˜—ǰȱ—ŠŒ‘Ž–ȱœ’Žȱ–’ȱ ’•ŽȱŽ›ȱ™›˜™Ž›¢ȱ ItemIndexȱŠžœȱŽ–ȱŠŽ—”Ž›—ȱŽ‘˜•ȱ ž›Žǰȱž–ȱŽ’—œȱŽ›‘㑝ȱž—ȱ£ž›ûŒ”ŽœŒ‘’Œ”ǯȱȱ Šž›Œ‘ȱ Š—Ž›ȱ’ŽȱŠ›”’Ž›ž—ȱ—ŠŒ‘ȱž—Ž—ǯȱ procedure TForm1.Button2Click(Sender: TObject); begin Listbox1.ItemIndex:=Listbox1.ItemIndex+1; Listbox2.ItemIndex:=Listbox2.ItemIndex+1; Listbox3.ItemIndex:=Listbox3.ItemIndex+1; Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]; Label2.Caption:=Listbox2.Items[Listbox2.ItemIndex]; Label3.Caption:=Listbox3.Items[Listbox3.ItemIndex] end;

ȱ

5

Einfache Tests und Alternativen Šœȱ Ÿ˜›’Žȱ Š™’Ž•ȱ ‹›ŠŒ‘Žȱ Ž—ȱ ž›Œ‘‹›žŒ‘ǯȱ ’›ȱ •Ž›—Ž—ȱ ’—ȱ ’‘–ȱ Šžœû‘›•’Œ‘ȱ ”Ž——Ž—ǰȱ  ’Žȱ  ’›ȱ ’—ȱ —‘Š•Ž—ȱ Ÿ˜—ȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ –’ȱ ’•Žȱ Ÿ˜—ȱ ™›˜™Ž›’Žœȱ ǻ’Ȭ Ž—œŒ‘ŠŽ—ǼȱŠžȱŽ—ȱŠŽ—”Ž›—ȱŽœȱŽ’Ž—Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱ˜Ž›ȱ›Ž–Ž›ȱŸ’œžȬ Ž••Ž›ȱ‹“Ž”Žȱ£ž›Ž’Ž—ȱ•ŠœœŽ—ȱ”ã——Ž—ǯȱȱ ŠȱŠ••ŽȱŽ›”–Š•ŽȱŽœȱœ’Œ‘‹Š›Ž—ȱŽ’•œȱ“ŽŽœȱŸ’œžŽ••Ž—ȱ‹“Ž”œȱ’—ȱœŽ’—Ž–ȱŠŽ—Ȭ ”Ž›—ȱŽœ™Ž’Œ‘Ž›ȱœ’—ǰȱ”ã——Ž—ȱ ’›ȱŠžȱ’ŽœŽȱŽ’œŽȱž—–’Ž•‹Š›ȱŠžȱ’ŽȱŽœŒ‘›’Ȭ ž—ȱ Ž’—Žœȱ Š‹Ž•œȱ ˜Ž›ȱ Ž—ȱ —‘Š•ȱ Ž’—Žœȱ Ž¡Ž—œŽ›œȱ £ž›Ž’Ž—ȱ •ŠœœŽ—ǰȱ Šžȱ ’Žȱ ŽȬ œŒ‘›’ž—ȱŽ’—Žœȱž˜—œǰȱŠžȱ’Žȱ˜œ’’˜—ȱŽœȱŽ•Ž›œȱ’—ȱŽ’—Ž›ȱŒ›˜••‹Š›ǰȱŠžȱŽœŒ‘›’Ȭ ž—Ž—ȱž—ȱŽ•Žž—œŽ’Ž—œŒ‘ŠŽ—ȱŸ˜—ȱ‘ŽŒ”‹˜¡Ž—ȱž—ȱŠ’˜‹ž˜—œǰȱŠžȱ’Žȱ˜œ’Ȭ ’˜—ȱŽ›ȱŠ›”’Ž›ž—ȱ’—ȱŽ’—Ž›ȱŠ’˜›ž™™Žȱž—ȱ’œŽǯȱȱ Œ‘•’Žđ•’Œ‘ȱ’œȱŠžŒ‘ȱŽ›ȱž›’ȱŠžȱŽ’—ŽȱŽ’•Žȱ’—ȱŽ’—Ž›ȱ’œŽȱ–㐕’Œ‘ǯȱȱ Š‹Ž’ȱ ’œȱ ’Žȱ ˜”Š‹Ž•ȱ £ž›Ž’Ž—ȱ “Ž Ž’•œȱ ™Šœœ’Ÿȱ ˜Ž›ȱ Š”’Ÿȱ ˜Ž›ȱ ŠžŒ‘ȱ ’—ȱ ‹Ž’Ž›•Ž’ȱ

’—œ’Œ‘ȱ–㐕’Œ‘DZȱ’›ȱ”ã——Ž—ȱ™›˜›Š––’Ž›Ž—ǰȱŠœœȱŽ’—Žȱ›Ž’—’œ™›˜£Žž›ȱ–’ȱ

’•ŽȱŽ’—Ž›ȱ™›˜™Ž›¢ȱ—ž›ȱŽ ŠœȱŽ›§‘›ȱž—ȱŽŽ’—ŽȱŸŽ›Š›‹Ž’Žǰȱ ’›ȱ”ã——Ž—ȱŠ‹Ž›ȱ ŠžŒ‘ȱ™›˜›Š––’Ž›Ž—ǰȱŠœœȱŽ’—Žȱ›Ž’—’œ™›˜£Žž›ȱŽ Šœȱ ‹Ž ’›”ȱž—ȱŠ–’ȱŠ–ȱ Ž’Ž—Ž—ȱ˜Ž›ȱ›Ž–Ž—ȱ‹“Ž”ȱŽ›§—Ž›ž—Ž—ȱŸ˜›—’––ǯȱȱ ’›ȱ”ã——Ž—ȱœ˜Š›ȱ–’ȱŽ–ȱ’—Ž›ŽœœŠ—Ž—ȱž Ž’œž—œ‹ŽŽ‘•ȱŠžœȱ‹œŒ‘—’ȱŚǯŚȱ ScrollBar1.Position:=ScrollBar1.Position+10

Šû›ȱ œ˜›Ž—ǰȱ Šœœȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ £žŽ›œȱ –’ȱ ’•Žȱ Ž›ȱ ™›˜™Ž›¢ȱ Positionȱ ’ŽȱŽ••ž—ȱŽœȱŽ•Ž›œȱŠžœȱŽ–ȱŠŽ—”Ž›—ȱ‘˜•ȱž—ȱŠ—œŒ‘•’ŽđŽ—ǰȱŸŽ››ãđŽ›ȱ ž–ȱ £Ž‘—ȱ ’—‘Ž’Ž—ǰȱ  ’ŽŽ›ȱ ™Ž›ȱ ™›˜™Ž›¢ȱ Positionȱ ’Žȱ Ž••ž—ȱ Žœȱ Ž•Ž›œȱ —Žžȱ Žœ•Žǯȱȱ ›Ž‹—’œDZȱŽ›ȱŽ•Ž›ȱœ™›’—ȱž–ȱŗŖȱ’—‘Ž’Ž—ȱ—ŠŒ‘ȱ›ŽŒ‘œǯȱ ŠǰȱŠœȱ Š›ȱœŒ‘˜—ȱ›˜›Š––’Ž›Ž—ǰȱ ŠœȱŠȱ’–ȱ Š™’Ž•ȱŚȱ’—ȱŸ’Ž•Ž—ȱŽ’œ™’Ž•Ž—ȱŸ˜›Ȭ Žû‘›ȱ ž›Žǯȱ—ǰȱ Š›ȱŽœȱœ˜ȱœŒ‘•’––ǵȱȱ ›Ž’ȱ ˜›ŠžœœŽ£ž—Ž—ȱ –ûœœŽ—ȱ Ž›û••ȱ œŽ’—ǰȱ Š–’ȱ  ’›ȱ ž—œŽ›ȱ Ž—”ŸŽ›–㐎—ȱ Š—Ȭ  Ž›Ž—ȱž—ȱ—‘Š•ŽȱŸ˜—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱœŒ‘›Ž’‹Ž—ȱ”ã——Ž—DZȱ  ‘—Žȱ’ŽȱŠ–Ž—ȱŽ›ȱŸ’œžŽ••Ž—ȱ‹“Ž”ŽȱŽ‘ȱ—’Œ‘œǯȱŽ›ȱž˜›ȱœŒ‘•§ȱŠ£žȱ“ŽȬ Ž–ȱ—§—Ž›ȱŸ˜›ǰȱ›ž—œ§£•’Œ‘ȱ’ŽȱŸ˜—ȱŽ•™‘’ȱŠž˜–Š’œŒ‘ȱŸŽ›Ž‹Ž—Ž—ȱŠȬ –Ž—ȱ £žȱ ŸŽ› Ž—Ž—ǯȱ ’—œŒ‘•’Žđ•’Œ‘ȱ Ž›ȱ ›˜đȬȱ ž—ȱ •Ž’—œŒ‘›Ž’‹ž—ǰȱ Šœȱ –ŠŒ‘ȱŠœȱ Š—£Žȱ£’Ž–•’Œ‘ȱû‹Ž›œ’Œ‘•’Œ‘ǯȱ  Ž’Ž›ȱ ‹›ŠžŒ‘Ž—ȱ  ’›ȱ ’Žȱ Ž—ŠžŽ—ȱ Š–Ž—ȱ Ž›ȱ ‹Ž—㝒Ž—ȱ ™›˜™Ž›’Žœǰȱ ž–ȱ ™›˜Ȭ ›Š––’Ž›Ž—ȱ£žȱ”ã——Ž—ǰȱ Ž——ȱŠžȱŠŽ—”Ž›—Žȱ£žŽ›’Ž—ȱ Ž›Ž—ȱœ˜••ǯȱȱ

şŚ

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

 û›ȱ’Žȱ ’Œ‘’œŽ—ȱ™›˜™Ž›’Žœȱ’—Ž—ȱ ’›ȱŽ›Ž—ȱŠ–Ž—ȱû‹Ž›ȱ’ŽȱŽ’œŽ›”Š›Žȱ   ȱŽœȱ‹“Ž”’—œ™Ž”˜›œǯȱȱ  Ž——ȱ ž—œȱ Ž›ȱ ‹“Ž”’—œ™Ž”˜›ȱ Š‹Ž›ȱ ’–ȱ ’Œ‘ȱ •§œœǰȱ  Ž’•ȱ Ž›ȱ ’—ȱ œŽ’—Ž—ȱ Ž’•Ž—ȱ —ž›ȱ  Ž—’Žǰȱ ŠžœŽ §‘•Žȱ ’Ž—œŒ‘ŠŽ—ȱ ǻ™›˜™Ž›’ŽœǼȱ ™›§œŽ—’Ž›ȱ –ûœœŽ—ȱ  ’›ȱ —ŠŒ‘ȱ Ž–ȱ ’—’™™Ž—ȱ Žœȱ ž—”Žœȱ ‘’—Ž›ȱ Ž–ȱ ‹“Ž”—Š–Ž—ȱ Šžȱ ’Žȱ ž—”•’œŽȱ  Š›Ž—ȱ ž—ȱ ž—Ž›ȱ Ž—ȱ Š——ȱ Ž›œŒ‘Ž’—Ž—Ž—ȱ ’—›§Ž—ȱ –’ȱ Ž›ȱ Ž£Ž’Œ‘—ž—ȱ propertyȱŽ£’Ž•ȱœžŒ‘Ž—ǯȱȱ  û›ȱŽ—ȱŠ••ǰȱŠœœȱ–’Ž•œȱŽ’—Ž›ȱ™›˜™Ž›¢ȱŽ’—ȱ‹Žœ’––Ž›ȱŽ›ȱ˜Ž›ȱŽ’—ŽȱŽœŽȱ Ž•Žž—ȱ ’—ȱ Ž’—Ž—ȱ ŠŽ—”Ž›—ȱ Ž‹›ŠŒ‘ȱ  Ž›Ž—ȱ œ˜••ǰȱ –ûœœŽ—ȱ  ’›ȱ œŒ‘•’Žđ•’Œ‘ȱ —˜Œ‘ȱ ’œœŽ—ǰȱ Šœȱ’Žȱ™›˜™Ž›¢ȱŸŽ›Š›‹Ž’ŽȱȮȱŽ’—ŽȱŠ‘•ǰȱŽ’—Ž—ȱŽ›ȱ‹Ž’Ž—ȱŠ‘›Ȭ ‘Ž’œ Ž›Žȱ Trueȱ˜Ž›ȱ FalseǰȱŽ’—Ž—ȱŽ¡ǯȱ’›ȱŽ›Š‘›Ž—ȱŽœȱŽ— ŽŽ›ȱŠžœȱŽ–ȱ‹Ȭ “Ž”’—œ™Ž”˜›ȱ˜Ž›ȱ•ŽœŽ—ȱŽœȱ‘’—Ž›ȱŽ–ȱ˜™™Ž•™ž—”ȱ’—ȱŽ›ȱž—”•’œŽǯȱ Šœȱ”˜––ȱ—ž—ǵȱž—ȱ ˜••Ž—ȱ ’›ȱž—œȱ Ž’Ž›ȱ–’ȱŽ›ȱ›˜›Š––’Ž›ž—ȱŸ˜—ȱ—‘Š•Ȭ Ž—ȱŸ˜—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ‹ŽœŒ‘§’Ž—ǯȱȱ ’›ȱ Ž›Ž—ȱŽ—ȱŠ••ȱ‹Ž‘Š—Ž•—ǰȱŠœœȱŽ’—ȱŽŽ‘•ȱ˜Ž›ȱŽ’—ŽȱŽ—ŽȱŸ˜—ȱŽŽ‘•Ž—ȱ —’Œ‘ȱ’––Ž›ǰȱœ˜—Ž›—ȱ—ž›ȱ–Š—Œ‘–Š•ȱŠžœŽû‘›ȱ Ž›Ž—ȱœ˜••ǯȱ’Žȱ‹’œ‘Ž›ǰȱ Ž›Ž—ȱ  ’›ȱž—œȱŽ›ȱŠŒ‘Žȱ–’ȱŸ’Ž•Ž—ȱŽ’œ™’Ž•Ž—ȱ—§‘Ž›—ǯȱȱ

5.1

Einfacher Test

5.1.1

Bedingtes Aktivieren/Deaktivieren von Buttons ’›ȱ ˜••Ž—ȱ•Ž’Œ‘ȱŠœȱ•Ž£ŽȱŽ’œ™’Ž•ȱŽœȱŸ˜›’Ž—ȱ Š™’Ž•œȱ˜›œŽ£Ž—ȱǻ’•ȱśǯŗǼDZȱ —ȱŽ’—Ž–ȱŸ’œžŽ••Ž—ȱ‹“Ž”ȱ’œŽȱ–’ȱŽ–ȱŠ–Ž—ȱListBox1ȱ’œȱŽ’—ȱŠŽ—‹ŽœŠ—ȱŽȬ œ™Ž’Œ‘Ž›ȱȮȱ‹Ž’ȱž—œȱœ’—ȱŽœȱ ’ŽŽ›ȱ’ŽȱŠ–Ž—ȱŽ›ȱž—Žœ•§—Ž›ǯȱȱ

ȱ

’ŽȱListbox1ȱ ’›ȱœ™§Ž›ȱž—œ’Œ‘‹Š›ȱŽ–ŠŒ‘ȱǻŠ‹Ž›ȱŽ›œǰȱ Ž——ȱŠ••Žœȱž—”’˜—’Ž›Ǽǯȱœȱ ’œȱ—§–•’Œ‘ȱ›ž—œ§£•’Œ‘ȱ—’Œ‘ȱû‹•’Œ‘ǰȱŠŽ—‹Žœ§—Žȱ㏏Ž—•’Œ‘ȱ£žȱ™›§œŽ—’Ž›Ž—ǯȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 5ȱȱ’ŽȱzipȬŠŽ’ȱ DKap05.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap05 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_511.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap05 ȱ’ŽȱŠŽ’ȱproj_511.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ’ŽȱŠ›Ž’—œŽ••ž—ȱŠŒ‘œŽ—Ȭ—‘Š•ȱ ’›ȱû‹Ž›ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱŠ—Š›Ȭ ›Ž’—’œȱCreateȱȮȱ Ž›œŽ••ž—ȱŽœȱ˜›–ž•Š›œȱŸŽ›Š—•Šœœǯȱž›ȱŽ› Š•ž—ȱŽœȱŠȬ Ž—‹ŽœŠ—Žœȱœ˜••ȱŽœȱŸ’Ž›ȱž˜—œȱŽ‹Ž—ǰȱŽ›Ž—ȱŽŽžž—ȱŠžœȱ’‘›Ž—ȱŽœŒ‘›’ž—Ȭ Ž—ȱ‘Ž›Ÿ˜›Ž‘ǯȱŽ‘Ž—ȱ ’›ȱž—œȱŠ—ǰȱ Šœȱû›ȱ’Žȱ—‘Š•ŽȱŽ›ȱŸ’Ž›ȱ›Ž’—’œ™›˜£ŽžȬ ›Ž—ȱ£ž–ȱž˜—Ȭ •’Œ”ȱ“Ž Ž’•œȱ£žȱ™›˜›Š––’Ž›Ž—ȱ’œDZȱ

śǯŗȱȱ’—ŠŒ‘Ž›ȱŽœȱ

şś

•’Œ”ȱŠžȱŽ—ȱž˜—ȱ Erster !DZȱ Listbox1.ItemIndex:=0;Label1.Caption:=Listbox1.Items[0]

•’Œ”ȱŠžȱŽ—ȱž˜—!!!!!!Voriger!!DZȱ Listbox1.ItemIndex:=Listbox1.ItemIndex-1; Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]

•’Œ”ȱŠžȱŽ—ȱž˜—ȱ!!Nächster!!DZȱ Listbox1.ItemIndex:=Listbox1.ItemIndex+1; Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]

•’Œ”ȱŠžȱŽ—ȱž˜—ȱ!!Letzter!!DZȱ Listbox1.ItemIndex:=15;Label1.Caption:=Listbox1.Items[15]

ȱȱȱ ’•ȱśǯŗDZȱŽ› Š•ž—ȱŽ’—ŽœȱŠŽ—‹ŽœŠ—Žœȱ ˜ȱ •’Žȱ Šœȱ ›˜‹•Ž–ǵȱ §‘•ȱ Ž›ȱ ž£Ž›ȱ ž›Œ‘ȱ •’Œ”ȱ Šžȱ !!!!Ersterȱ ȱ Ž—ȱ Ž›œŽ—ȱ ’—›Šȱ’–ȱŠŽ—‹ŽœŠ—ȱŠžœȱž—ȱ”•’Œ”ȱŠ—ŠŒ‘ǰȱž—”˜—£Ž—›’Ž›ǰȱŠžȱŽ—ȱž˜—ȱ –’ȱŽ›ȱŽœŒ‘›’ž—ȱ Voriger ǰȱ’‹ȱŽœȱŽ’—ŽȱŽ‘Š›—’œŒ‘ŽȱŽ‘•Ž›–Ž•ž—ǯȱ •Š›ǯȱ

ȱȱȱ ’•ȱśǯŘDZȱŽŠ”’Ÿ’Ž›Ž—ȱŽ›ȱ•’—”Ž—ȱž˜—œȱ

şŜ

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

˜••’Œ‘ȱ–ûœœŽ—ȱ ’›ȱŸŽ›‘’—Ž›—ǰȱŠœœȱŽ’—ȱž£Ž›ǰȱ Ž——ȱŽ›ȱŽ›œŽȱ’—›ŠȱŽœȱŠŽ—‹ŽȬ œŠ—œȱŽ››Ž’Œ‘ȱ ’›ǰȱ’Žȱ‹Ž’Ž—ȱ•’—”Ž—ȱž˜—œȱ—˜Œ‘ȱŽ’—–Š•ȱ›ûŒ”Ž—ȱŠ›ǯȱ ’Žȱ Šœȱ Ž‘ǵȱ ž—ǰȱ  ’›ȱ œŽ£Ž—ȱ Ž’—ŠŒ‘ȱ ’Žȱ ™›˜™Ž›¢ȱ Enabledȱ Ž›ȱ ‹Ž’Ž—ȱ •’—”Ž—ȱ ž˜—œȱŠžȱFalseȱž—ȱœŒ‘Š•Ž—ȱŠ–’ȱ’Žȱ‹Ž’Ž—ȱž˜—œȱŠžœǯȱȱ ˜Œ‘ȱ û›ȱ Ž—ȱ Š••ǰȱ Šœœȱ Ÿ˜›‘Ž›ȱ Ž›ȱ •Ž£Žȱ ’—›Šȱ Žœȱ ŠŽ—‹ŽœŠ—Žœȱ ŠžœŽȬ  §‘•ȱ ˜›Ž—ȱ Š›ȱž—ȱŠ–’ȱ’Žȱ›ŽŒ‘Ž—ȱ‹Ž’Ž—ȱž˜—œȱ’—Š”’Ÿȱ Š›Ž—ǰȱ–ûœȬ œŽ—ȱ ’›ȱœ’Žȱ ’ŽŽ›ȱŠ”’Ÿ’Ž›Ž—ǰȱŽ——ȱœ’Žȱœ’—ȱœ’——Ÿ˜••ǯȱȱ Ž—Šžœ˜ȱ ’œȱ Ÿ˜›£žŽ‘Ž—ǰȱ  Ž——ȱ Ž›ȱ •Ž£Žȱ ’—›Šȱ ’–ȱ ŠŽ—‹ŽœŠ—ȱ Ž››Ž’Œ‘ȱ  ’›ǯȱŠ——ȱ–ûœœŽ—ȱ’Žȱ‹Ž’Ž—ȱ›ŽŒ‘Ž—ȱž˜—œȱŽŠ”’Ÿ’Ž›ȱ Ž›Ž—DZȱ procedure TForm1.Button1Click(Sender: TObject); begin Listbox1.ItemIndex:=0;Label1.Caption:=Listbox1.Items[0]; Button1.Enabled:=False; Button2.Enabled:=False; Button3.Enabled:=True; Button4.Enabled:=True end; procedure TForm1.Button4Click(Sender: TObject); begin Listbox1.ItemIndex:=15;Label1.Caption:=Listbox1.Items[15]; Button1.Enabled:=True; Button2.Enabled:=True; Button3.Enabled:=False; Button4.Enabled:=False end;

ž—ȱ£ž–ȱž˜—ȱ–’ȱŽ›ȱžœŒ‘›’ȱ VorigerȱǯȱŽ——ȱŽ›ȱž£Ž›ȱ’‘—ȱ›ûŒ”ǰȱ’œȱ Ž’—Žœȱ ”•Š›DZȱ ’Žȱ ‹Ž’Ž—ȱ ›ŽŒ‘Ž—ȱ ž˜—œȱ œ’—ȱ ’––Ž›ȱ œ’——Ÿ˜••ǰȱ –ûœœŽ—ȱ Š”’Ÿȱ œŽ’—ǯȱ ‹Ž›ȱ’Žȱ‹Ž’Ž—ȱ•’—”Ž—ȱž˜—œǵȱ ž—ȱ –ûœœŽ—ȱ  ’›ȱ Ž Šœȱ ŽžŽœȱ ™›˜›Š––’Ž›Ž—ǰȱ Ž’—Ž—ȱ Ž’—ŠŒ‘Ž—ȱ ŽœDZȱ ž›ȱ Š——ǰȱ  Ž——ȱ ’Žȱ ˜‹Ž›œŽȱ Ž’•Žȱ ’Žȱ Š›”’Ž›ž—ȱ ‹Ž”˜––Ž—ȱ ‘Šȱ ǻ Ž——ȱ ’Žȱ ™›˜™Ž›¢ȱ ItemIndexȱ ’Žȱž••ȱ•’ŽŽ›Ǽǰȱœ’—ȱ’Žȱ‹Ž’Ž—ȱ•’—”Ž—ȱž˜—œȱ£žȱŽŠ”’Ÿ’Ž›Ž—ǯȱȱ ’ŽȱœŒ‘›Ž’‹ȱ–Š—ȱŠœȱŽ–§đȱŽ—ȱŠœŒŠ•ȬŽŽ•—ǵȱȱ if Listbox1.ItemIndex=0 then begin Button1.Enabled:=False; Button2.Enabled:=False end

—ȱ •Ž’Œ‘Ž›ȱ Ž’œŽȱ –ûœœŽ—ȱ  ’›ȱ Ÿ˜›Ž‘Ž—ǰȱ  Ž——ȱ  ’›ȱ Šœȱ ›Ž’—’œȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ–’ȱŽ›ȱžœŒ‘›’ȱ Nächster ȱ‹Ž‘Š—Ž•—DZȱȱ

śǯŗȱȱ’—ŠŒ‘Ž›ȱŽœȱ

şŝ

if Listbox1.ItemIndex=15 then begin Button3.Enabled:=False; Button4.Enabled:=False end

Ž‘Ž—ȱ  ’›ȱ ž—œȱ £ž–ȱ Œ‘•žœœȱ ’Žȱ ‹Ž’Ž—ȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ ”˜–™•Žȱ Š—ǰȱ  ˜‹Ž’ȱ “Ž£ȱ•Š—œŠ–ȱ”•Š›ȱ ’›ǰȱ ’Žȱ ’Œ‘’ȱŽ’—ŽȱžŽȱž—ȱœ›ž”ž›’Ž›ŽȱŒ‘›Ž’‹ Ž’œŽȱû›ȱ ŠœȱŽ›œ§——’œȱŸ˜—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ’œǯȱ procedure TForm1.Button2Click(Sender: TObject);

//Button „Voriger“

begin Button3.Enabled:=True; Button4.Enabled:=True; Listbox1.ItemIndex:=Listbox1.ItemIndex-1; Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]; if Listbox1.ItemIndex=0 then begin Button1.Enabled:=False; Button2.Enabled:=False end end; procedure TForm1.Button3Click(Sender: TObject);

//Button „Nächster“

begin Button1.Enabled:=True; Button2.Enabled:=True; Listbox1.ItemIndex:=Listbox1.ItemIndex+1; Label1.Caption:=Listbox1.Items[Listbox1.ItemIndex]; if Listbox1.ItemIndex=15 then begin Button3.Enabled:=False; Button4.Enabled:=False end end;

žœŠ£›ŠŽDZȱŽ’ȱœŽŒ‘£Ž‘—ȱž—Žœ•§—Ž›—ȱ‘Šȱ’Žȱ•Ž£ŽȱŽ’•ŽȱŽ›ȱ’œŽȱ’Žȱ˜œ’Ȭ ’˜—ȱŗśǯȱŠœȱ’œȱœ’Œ‘Ž›ǰȱŠœȱ’œȱ‹Ž”Š——ǯȱ‹Ž›ȱ Šœȱ–ŠŒ‘Ž—ȱ ’›ǰȱ Ž——ȱ ’›ȱ—’Œ‘ȱŽȬ —Šžȱ ’œœŽ—ǰȱ ’ŽȱŸ’Ž•Žȱ’—›§Žȱœ’Œ‘ȱû‹Ž›‘Šž™ȱ’–ȱŠŽ—‹ŽœŠ—ȱ‹Ž’—Ž—ǵȱ Š——ȱ ž—œȱ’Žȱ’œ‹˜¡ȱ—’Œ‘ȱœŽ•‹Ž›ȱ–’Ž•œȱŽ’—Ž›ȱ™ŠœœŽ—Ž—ȱ™›˜™Ž›¢ȱœŠŽ—ǰȱ ’ŽȱŸ’Ž•ŽȱŽ’•Ž—ȱœ’Žȱ ‹Žœ’£ǵȱŽ›Ž’œȱ’ŽȱžŒ‘Žȱ’–ȱŽ›œŽ—ȱž—”ȬŽ—ûȱû‘›ȱ£ž–ȱ›˜•ǯȱ˜›ȱ Ž›Ž—ȱ  ’›ȱû—’ȱǻ’•ȱśǯřǼǯȱ

ȱȱ ’•ȱśǯřDZȱ™›˜™Ž›¢ȱCountȱ

şŞ

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

–ȱŽ¡ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ Letzter ȱ”Š——ȱ’ŽȱŸ˜›‘’—ȱ ŽœȱŽ’—™›˜›Š––’Ž›ŽȱŠ‘•ȱŗśȱŽ›œŽ£ȱ Ž›Ž—ȱž›Œ‘ȱ—£Š‘•ȱŠ••Ž›ȱ’—›§Žȱ–’—žœȱŗDZȱ procedure TForm1.Button4Click(Sender: TObject);

//Button „Letzter“

begin Listbox1.ItemIndex:=Listbox1.Count-1; Label1.Caption:=Listbox1.Items[Listbox1.Count-1]; Button3.Enabled:=False; Button4.Enabled:=False; Button1.Enabled:=True; Button2.Enabled:=True end;

—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱ Nächster ȱ‹›ŠžŒ‘ȱŠ—œŒ‘•’ŽȬ đŽ—ȱ—ž›ȱŽ’—–Š•ȱ’ŽȱŠ‘•ȱŗśȱž›Œ‘ȱListbox1.Count-1ȱŽ›œŽ£ȱ£žȱ Ž›Ž—ǯȱȱ Š–’ȱ”ã——Ž—ȱ ’›ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ™›˜›Š––’Ž›Ž—ǰȱ’ŽȱŠžŒ‘ȱ‹Ž’ȱŗřȱ˜Ž›ȱŗŝȱ ˜Ž›ȱŗŖŖȱ˜Ž›ȱŗŖŖŖŖȱ’—›§Ž—ȱŽ—ȱŠŽ—‹ŽœŠ—ȱœŽœȱ”˜››Ž”ȱŸŽ› Š•Ž—ǯȱȱ ȱ

5.1.2

Einklick oder Ausklick? ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 5ȱȱ’ŽȱzipȬŠŽ’ȱ DKap05.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap05 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_512.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap05 ȱ’ŽȱŠŽ’ȱproj_512.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Ž——ȱŽ’—ȱž£Ž›ȱŽ’—Žȱ‘ŽŒ”‹˜¡ȱŠ—”•’Œ”ǰȱ”Š——ȱ’ŽœŽ›ȱ •’Œ”ȱŽ— ŽŽ›ȱŽ’—ȱ’—”•’Œ”ȱ ˜Ž›ȱŽ’—ȱžœ”•’Œ”ȱœŽ’—ȱǻ’•ȱśǯŚǼǰȱ“Žȱ—ŠŒ‘Ž–ǰȱ˜‹ȱŽ›ȱ Š”Ž—ȱž›Œ‘ȱ’Žȱž£Ž›Ž’—Ȭ  ’›”ž—ȱŽœŽ£ȱ˜Ž›ȱ‹ŽœŽ’’ȱ ž›Žǯȱȱ

’Žȱœ’Ž‘ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ›Ž’—’œȱ •’Œ”ȱŠžȱ’Žȱ‘ŽŒ”‹˜¡ȱŠžœǰȱ’Žȱž—œȱ ’ŽœŽȱ’Ž›Ž—£’Ž›Žȱ—˜›–Š’˜—ȱ•’ŽŽ›ǵȱȱ

ȱȱ ’•ȱśǯŚDZȱ’—”•’Œ”ȱ˜Ž›ȱžœ”•’Œ”ȱȱ

śǯŗȱȱ’—ŠŒ‘Ž›ȱŽœȱ

şş

Ž—ȱŠ‘–Ž—ȱŽ›‘Š•Ž—ȱ ’›ȱŠ—£ȱŽ’—ŠŒ‘ǰȱœŒ‘•’Žđ•’Œ‘ȱ‹Ž‘Š—Ž•—ȱ ’›ȱŠœȱŠ—Š›Ȭ ›Ž’—’œȱǻœǯȱ‹œŒ‘—’ȱ ŘǯŘǯřǼǯȱ û›ȱ Ž—ȱ —‘Š•ȱ —ž£Ž—ȱ ’›ȱ ž—œŽ›ŽȱŽ›ŠŽȱ Ž› ˜›‹ŽȬ —Ž—ȱ Ž———’œœŽǰȱ’—Ž–ȱ ’›ȱ£ Ž’ȱŽ’—ŠŒ‘ŽȱŽœœȱ™›˜›Š––’Ž›Ž—ǯȱ procedure TForm1.CheckBox1Click(Sender: TObject); begin if Checkbox1.Checked=True then begin ShowMessage('Einklick') end;

// Semikolon nötig, es folgt noch ein Test

if Checkbox1.Checked=False then begin ShowMessage('Ausklick') end; end;

–ȱ ˜––Ž—Š›ȱ ’œȱ œŒ‘˜—ȱ Šžȱ ’Žȱ ˜ Ž—’”Ž’ȱ Žœȱ Ž–’”˜•˜—œȱ ‘’—Ž ’ŽœŽ—ȱ  ˜›Ž—DzȱŠ—ȱ’ŽœŽ›ȱŽ••Žȱ ’›ȱŽœȱŠ•œȱ›Ž——£Ž’Œ‘Ž—ȱž—‹Ž’—ȱŽ‹›ŠžŒ‘Ƿȱȱ Ž›—Ž—ȱ ’›ȱ—˜Œ‘ȱŽ’—ŽȱŠœŒŠ•Ȭžœ—Š‘–Ž›ŽŽ•ȱ”Ž——Ž—DZȱȱ  œȱ‹Ž’ȱŽ›û••Ž–ȱŽœȱ—ž›ȱŽ’—ȱŽ’—£’Ž›ȱŽŽ‘•ȱŠžœ£žû‘›Ž—ȱ”ã——Ž—ȱ’Žȱ— Ž’œž—œȬ ”•Š––Ž›—ȱbeginȱž—ȱendȱŽ—Š••Ž—ǯȱ ’ŽœŽȱžœ—Š‘–Ž›ŽŽ•ȱ’œȱ‹Ž’ȱž—œȱŠ— Ž—‹Š›ȱž—ȱ›Žž£’Ž›ȱž—œŽ›Ž—ȱŒ‘›Ž’‹ŠžȬ  Š—ȱŽ›‘Ž‹•’Œ‘DZȱ procedure TForm1.CheckBox1Click(Sender: TObject); begin if Checkbox1.Checked=True then ShowMessage('Einklick'); if Checkbox1.Checked=False then ShowMessage('Ausklick') end;

’ŽœŽȱžœ—Š‘–Ž›ŽŽ•ȱ’œȱŠ‹Ž›ȱœŽ‘›ǰȱœŽ‘›ȱŽ§‘›•’Œ‘ǯȱ’›ȱ£ž–ȱŽ’œ™’Ž•ȱ’—ȱȱ if Listbox1.ItemIndex=0 then begin Button1.Enabled:=False; Button2.Enabled:=False end

Šœȱ ŠŠ›ȱ Ž›ȱ — Ž’œž—œ”•Š––Ž›—ȱ begin...endȱ  ŽŽ•ŠœœŽ—ǰȱ Ž‘㛝ȱ —ž›ȱ —˜Œ‘ȱ Ž›ȱ Ž›œŽȱŽŽ‘•ȱ Button1.Enabled:=Falseȱ £ž–ȱ Žœǰȱ Ž›ȱ  ’›ȱ —’Œ‘ȱ ’––Ž›ǰȱ œ˜—Ž›—ȱ —ž›ȱ–Š—Œ‘–Š•ȱŠžœŽû‘›ǯȱŽ›ȱŽŽ‘•ȱButton2.Enabled:=Falseȱ û›ŽȱŠŽŽ—ȱŠ—Ȭ œŒ‘•’ŽđŽ—ȱ’––Ž›ȱŠžœŽû‘›ǯȱ’ŽȱŠœ§Œ‘•’Œ‘Žȱ’›”ž—ȱœ§‘ŽȱŠ——ȱœ˜ȱŠžœDZȱ if Listbox1.ItemIndex=0 then Button1.Enabled:=False; Button2.Enabled:=False

ŗŖŖȱ

ȱ

5.1.3

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

Links-Rechts-Steuerung ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 5ȱȱ’ŽȱzipȬŠŽ’ȱ DKap05.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap05 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_513.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap05 ȱ’ŽȱŠŽ’ȱproj_513.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ’—ȱ Ž’Ž—Ž•Ž–Ž—ȱ ›ž™™Žȱ ǻGroupBoxǼǰȱ Š›Šžȱ •’—”œȱ Ž’—ȱ Š’˜‹ž˜—ȱ –’ȱ Ž›ȱ ŽȬ œŒ‘›’ž—ȱ nach links ǰȱ’—ȱŽ›ȱ’ŽȱŽ’—ŽȱŒ›˜••‹Š›ȱž—ȱ›ŽŒ‘œȱŽ’—ȱ£ Ž’Ž›ȱŠ’˜Ȭ ‹ž˜—ȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱ nach rechts ȱǻ’•ȱśǯśǼǯȱŠ›Ž’—œŽ••ž—ȱŽœȱŽ•Ž›œȱ ’—ȱŽ›ȱ’Žǰȱ’—’–ž–ȱž••ǰȱŠ¡’–ž–ȱŗŖŖǯȱ—Š—œȱœ˜••ȱŽ›ȱ•’—”ŽȱŠ’˜‹ž˜—ȱ ŠžœŽ §‘•ȱœŽ’—ǯȱ••ȱ’Žœȱ•§œœȱœ’Œ‘ȱ–’ȱŽ–ȱ‹“Ž”’—œ™Ž”˜›ȱŸ˜›‹Ž›Ž’Ž—ǯȱ

ȱȱ ’•ȱśǯśDZȱ ›ž™™Žȱ–’ȱŠ’˜‹ž˜—œǰȱŒ›˜••‹Š›ȱž—ȱž˜—ȱ žœ§£•’Œ‘ȱœ˜••ȱŽ›ȱž˜—ȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱ Bewegung! ȱŽ¡’œ’Ž›Ž—Dzȱ ’›ȱŽ›ȱ Ž”•’Œ”ǰȱœ˜••ȱœ’Œ‘ȱŽ›ȱŽ•Ž›ȱ£Ž‘—ȱ’—‘Ž’Ž—ȱ—ŠŒ‘ȱ•’—”œȱ˜Ž›ȱ—ŠŒ‘ȱ›ŽŒ‘œȱ‹Ž ŽŽ—ȱȮȱ “Žȱ—ŠŒ‘ȱŠ‘•ǯȱžŽ›œȱ’ŽȱŠ—˜›–ȱŽ›ȱ›Ž’—’œ™›˜£Žž›DZȱ procedure TForm1.Button1Click(Sender: TObject); begin if RadioButton1.Checked=True then begin Scrollbar1.Position:=ScrollBar1.Position-10 end; if RadioButton2.Checked=True then begin Scrollbar1.Position:=ScrollBar1.Position+10 end end;

Ž§‘›•’Œ‘ǰȱŠ‹Ž›ȱ‘’Ž›ȱŠžŒ‘ȱ–㐕’Œ‘ǰȱ’œȱŠœȱŽ•ŠœœŽ—ȱŽ›ȱ— Ž’œž—œ”•Š––Ž›—DZȱ procedure TForm1.Button1Click(Sender: TObject); begin if RadioButton1.Checked=True then Scrollbar1.Position:=ScrollBar1.Position-10; if RadioButton2.Checked=True then Scrollbar1.Position:=ScrollBar1.Position+10 end;

śǯŗȱȱ’—ŠŒ‘Ž›ȱŽœȱ

ŗŖŗ

••Žœȱ ž—”’˜—’Ž›ǰȱ Žœȱ ’‹ȱ ŠžŒ‘ȱ û‹Ž››ŠœŒ‘Ž—ȱ ”Ž’—Žȱ Ž‘•Ž›–Ž•ž—ǰȱ  Ž——ȱ Ž›ȱ Ž•Ž›ȱ›ŽŒ‘œȱ˜Ž›ȱ•’—”œȱǮŠ—œãđȃǯȱȱ ˜Œ‘ȱ  Š›ž–ȱ œ˜›Ž—ȱ  ’›ȱ —’Œ‘ȱ œŽ•‹œȱ Šû›ǰȱ Šœœȱ ’Žȱ Ž Žž—œ›’Œ‘ž—ȱ œ’Œ‘ȱ Š——ȱ œŽ•‹œȱ ž–”Ž‘›ǵȱ Šœȱ ’œȱ —§–•’Œ‘ȱ £’Ž–•’Œ‘ȱ Ž’—ŠŒ‘ǰȱ  ’›ȱ ‹›ŠžŒ‘Ž—ȱ —ž›ȱ Ž—ȱ —‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱŠ–ȱ—Š—ȱž›Œ‘ȱ’Žȱ‹Ž’Ž—ȱŽ’•Ž—ȱȱ if Scrollbar1.Position=100 then RadioButton1.Checked:=True; if Scrollbar1.Position=0

then RadioButton2.Checked:=True;

£žȱŽ›§—£Ž—ǯȱž—ȱ–ŠŒ‘ȱŽœȱœŒ‘˜—ȱ›’Œ‘’ȱ™Šđǰȱ–’ȱŽ›ȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱ£žȱ œ™’Ž•Ž—ǯȱ ’›ȱ  Ž›Ž—ȱ ‹Š•ȱœ™§Ž›ȱ ǻ‹œŒ‘—’ȱ ŜǯŜǼȱ œ˜Š›ȱ ’Žȱ ˜•‹Ž—‹Ž Žž—ȱ ’—ȱ Ž’—Ž–ȱ’Ž›£¢•’—Ž›Ȭ˜˜›ȱœ’–ž•’Ž›Ž—ȱ”ã——Ž—ǯȱȱ ȱ

5.1.4

Tasten wegfangen ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 5ȱȱ’ŽȱzipȬŠŽ’ȱ DKap05.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap05 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_514.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap05 ȱ’ŽȱŠŽ’ȱproj_514.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ œȱ ’œȱ  ’Œ‘’ǯȱ Ž‘›ȱ  ’Œ‘’ǯȱ —ȱ ’ŽœŽœȱ Ž¡Ž—œŽ›ȱ Š›ȱ Ž›ȱ ž£Ž›ȱ —ž›ȱ ’Ž›—ȱ Ž’—’™™Ž—ǯȱ ˜—œȱ ‹›’Œ‘ȱ Ž’—ȱ ›˜›Š––ȱ £žœŠ––Ž—ǰȱ ˜Ž›ȱ ’Žȱ Ž•ȱ Ž›œ’›‹ȱ ˜Ž›ȱ Šœȱ—’ŸŽ›œž–ȱ’–™•˜’Ž›ǯȱȱ ȱȱ ’•ȱśǯŜDZȱŽ›Ž‹•’Œ‘Žȱž˜›Ž›ž—ȱ ž—ȱžǰȱœ˜ȱœŒ‘•’––ȱ ’›ȂœȱœŒ‘˜—ȱ—’Œ‘ȱ Ž›Ž—ǰȱ˜‹ ˜‘•ȱŽœȱœŒ‘˜—ȱ›˜›Š––Ȭ Ž‘•Ž›ȱŽŽ‹Ž—ȱ‘Šǰȱ’Žȱ’••’Š›Ž—ȱ”˜œŽŽ—ǯȱȱ Šœȱ–Ž’—Ž—ȱ’ŽȱŠ‹Ž›ǰȱ•’Ž‹ŽȱŽœŽ›’—ǰȱ•’Ž‹Ž›ȱŽœŽ›DZȱ’›ȱž—œȱ’ŽœŽȱ—ŽȱŽœŒ‘›’ŽȬ ‹Ž—Žȱ ž˜›Ž›ž—ȱ ŠŸ˜›ȱ ‹Ž Š‘›Ž—ǰȱ Šœœȱ Ž’—ȱ ž—”˜—£Ž—›’Ž›Ž›ȱ ž£Ž›ȱ œ’Œ‘ȱ ŸŽ›Ȭ ’™™ȱ˜Ž›ȱŽ’—ȱŠ—Ž›Ž›ȱž£Ž›ȱŸŽ›œžŒ‘ǰȱ˜Œ‘ȱŽ’—ȱȱ˜Ž›ȱŽ’—ȱ’—žœȱ˜Ž›ȱŽ’—ȱ›˜Ȭ £Ž—£Ž’Œ‘Ž—ȱŽ’—£žŽ‹Ž—ǵȱȱ ’Žȱ ‘Š‹Ž—ȱ ŽŒ‘DZȱ ž£Ž›ȱ œ’—ȱ ž—‹Ž›ŽŒ‘Ž—‹Š›ǯȱ ’›ȱ –ûœœŽ—ȱ Š‹œ’Œ‘Ž›—ǰȱ Šœœȱ ž—Ž›Ȭ •Šž‹Žȱ ž£Ž›Ž’—Š‹Ž—ȱ ŸŽ›–’ŽŽ—ȱ  Ž›Ž—ǯȱ ’›ǰȱ ’Žȱ ›˜›Š––’Ž›Ž›ǯȱ Šû›ȱ ’‹ȱ Žœȱ ›ž—œ§£•’Œ‘ȱ£ Ž’ȱŽ‘˜Ž—DZȱȱ  ’›ȱ •ŠœœŽ—ȱ Ž—ȱ ž£Ž›ȱ Ž’—Ž‹Ž—ǰȱ  Šœȱ Ž›ȱ  ’••ȱ ž—ȱ Š—Š•¢œ’Ž›Ž—ȱ Š—œŒ‘•’ŽđŽ—ȱ œŽ’—Žȱ’—Š‹ŽǯȱŽ——ȱœ’Žȱž—”˜››Ž”ȱ’œǰȱ ’›ȱŽ›ȱŠ›û‹Ž›ȱ’—˜›–’Ž›ȱž—ȱŠžȬ Ž˜›Ž›ǰȱœŽ’—Žȱ’—Š‹Žȱ£žȱ ’ŽŽ›‘˜•Ž—ǯȱȱ

ŗŖŘȱ

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

 Ž——ȱ Ž›ȱ Š——ȱ  ’ŽŽ›ȱ ž—”˜—£Ž—›’Ž›ȱ Š›‹Ž’Žǰȱ ’—Žȱ ŠœœŽ•‹Žȱ —˜Œ‘ȱ Ž’—–Š•ȱ œŠȱž—ȱœ˜ȱ Ž’Ž›ȱȱȮȱœ˜•Š—Žǰȱ‹’œȱŽ›ȱŽ—•’Œ‘ȱ ŠŒ‘ȱ ’›ǯȱŽ›ǰȱ–Š—ȱ”Ž——ȱŠœȱ Ÿ˜—ȱ Ž—ȱ Ž•Šž˜–ŠŽ—ǰȱ –Š—ȱ •§œœȱ —ž›ȱ  ’ŽŽ›‘˜•Ž—ǰȱ ‹’œȱ Ž’—Žȱ Ž›•Šž‹Žȱ —Ȭ £Š‘•ȱŸ˜—ȱŽ›œžŒ‘Ž—ȱŽ›œŒ‘㙏ȱ’œǯȱ›Ž’–Š•ȱ’ŽȱŠ•œŒ‘Žȱǰȱž—ȱ’Žȱ Š›Žȱ’œȱ  Žǯȱȱ Šœȱ ’œȱ Š›’Š—Žȱ Ž’—œȱ Ž›ȱ ›˜‹•Ž–•ãœž—Dzȱ  ’›ȱ  Ž›Ž—ȱ œ’Žȱ ’–ȱ ‹œŒ‘—’ȱ ŗŘǯŚǯŚȱ ”Ž——Ž—ȱ•Ž›—Ž—ǯȱȱ ˜Œ‘ȱ—ž—ȱ’Žȱ£ Ž’ŽȱŽ‘˜ŽDZȱ  Ž——ȱŽ›ȱž£Ž›ȱŽ’—ŽȱŠœŽȱ›ûŒ”ǰȱŠ—Š•¢œ’Ž›Ž—ȱ ’›ȱ’—ȱŽ’—Ž›ȱ™ŠœœŽ—Ž—ȱ›Ž’Ȭ —’œ™›˜£Žž›ǰȱ ˜‹ȱ ’ŽœŽ›ȱ ŠœŽ—›žŒ”ȱ û‹Ž›‘Šž™ȱ Ž›•Šž‹ȱ ’œǯȱ Ž——ȱ —’Œ‘ǰȱ Š—Ȭ —ž••’Ž›Ž—ȱ ’›ȱŽ—ȱŠœŽ—›žŒ”ǯȱȱ ’ŽœŽȱ £ Ž’Žȱ Ž‘˜Žȱ  Ž›Ž—ȱ  ’›ȱ “Ž£ȱ ž–œŽ£Ž—ǯȱ Šû›ȱ ‹›ŠžŒ‘Ž—ȱ  ’›ȱ £žŽ›œȱ Ž—ȱŠ‘–Ž—ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱû›ȱŠœȱ›Ž’—’œȱŠœŽ—›žŒ”ȱŠ–ȱŸ’œžŽ••Ž—ȱ‹“Ž”ȱ Ž¡Ž—œŽ›ȱEdit1ǯȱ œȱ‘Š—Ž•ȱœ’Œ‘ȱ—’Œ‘ȱž–ȱŠœȱŠ—Š›Ȭ›Ž’—’œǰȱ˜••’Œ‘ȱ‹ŽœŒ‘ŠŽ—ȱ ’›ȱž—œȱŽ—ȱ Š‘–Ž—ȱŽ›ȱ ›Ž’—’œ™›˜£Žž›ȱ ǻœǯȱ ‹œŒ‘—’ȱ ŘǯřǯŘǼȱ –’ȱ ’•Žȱ Žœȱ Ž’œŽ›‹•ŠŽœȱ Ȭ  ȱ Žœȱ‹“Ž”’—œ™Ž”˜›œȱ Žœȱ Ž¡Ž—œŽ›œȱ ǻ’•ȱ śǯŝǼȱž›Œ‘ȱ ˜™™Ž•”•’Œ”ȱ’—ȱ ŠœȱŽ•ȱ›ŽŒ‘œȱ—Ž‹Ž—ȱOnKeyPressǯȱȱ

ȱȱȱ ’•ȱśǯŝDZȱŽœŒ‘Šž—ȱŽœȱŠ‘–Ž—œȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ ž—ȱ’œȱŠ••Žœȱ›ŽŒ‘ȱŽ’—ŠŒ‘DZȱŽ›ȱŠ‘–Ž—ȱ’ŽœŽ›ȱ›Ž’—’œ™›˜£Žž›ȱœ˜›ȱ‹Ž›Ž’œȱŠȬ û›ǰȱŠœœȱž—œȱž—Ž›ȱŽ›ȱŽ£Ž’Œ‘—ž—ȱKeyȱŠœ“Ž—’ŽȱŽ’Œ‘Ž—ȱû‹Ž›Ž‹Ž—ȱ ’›ǰȱŠœȱ Ž›ȱž£Ž›ȱŽ›ŠŽȱŠžȱŽ›ȱŠœŠž›ȱŽ›ûŒ”ȱ‘ŠǯȱŠœœŽ—ȱ ’›ȱ ŽœŽ—ǰȱ˜‹ȱ’ŽȱŽȬ ›ûŒ”ŽȱŠœŽȱŠ•œŒ‘ȱ’œǯȱ’Žȱ’œȱŠ•œŒ‘ǰȱ Ž——ȱŠœȱŽ’Œ‘Ž—ȱŠžȱŽ›ȱŠœŽȱ•’—”œȱŸ˜–ȱ ǮŽ’Œ‘Ž—ȱž••ȃȱ˜Ž›ȱ›ŽŒ‘œȱŸ˜–ȱǮŽ’Œ‘Ž—ȱŽž—ȃȱœŽ‘ȱǻû›ȱ’—£Ž•‘Ž’Ž—ȱœ’Ž‘Žȱ‹Ȭ œŒ‘—’ȱŗŖǯŘǼDZȱȱ if (Key < '0') or (Key > '9') then ShowMessage(‘Taste falsch!‘)

ŽœŽ—ȱ ’›ȱž—ȱŽ—’ŽđŽ—ȱŽ—ȱŽ’•Ž›˜•DZȱœȱ Ž›Ž—ȱŠœ§Œ‘•’Œ‘ȱŠ••Žȱž—Ž›•Šž‹Ž—ȱ Ž’Œ‘Ž—ȱŽ›”Š——ǯȱ‹Ž›ȱœŒ‘•ŽŒ‘ȱȮȱœ’Žȱ Ž›Ž—ȱ›˜£Ž–ȱŽ’—Ž›ŠŽ—Ƿȱ Ž›œžŒ‘Ž—ȱ  ’›ǰȱ Šœȱ £žȱ ŸŽ›‘’—Ž›—ǰȱ ’—Ž–ȱ  ’›ȱ ‹Ž’ȱ Ž›û••Ž–ȱ Žœȱ ’ŽœŽœȱ Ž¢ȱ Š——ȱŽ‹Ž—ȱ–’ȱŽ’—Ž–ȱ™ŠœœŽ—Ž—ȱŠ—Ž›Ž—ȱŽ’Œ‘Ž—ȱ‹Ž•ŽŽ—DZȱ if (Key < '0') or (Key > '9') then Key:=' '

›’–ŠǰȱŠ‹Ž›ȱ ’›ȱû›ȱ“ŽŽœȱŠ•œŒ‘ȱŽ’™™ŽȱŽ’Œ‘Ž—ȱŽ’—ȱŽŽ›£Ž’Œ‘Ž—ȱŽ’—ŽŽ‹Ž—ȱ ǻ’•ȱśǯŞǼǯȱȱ

śǯŗȱȱ’—ŠŒ‘Ž›ȱŽœȱ

ŗŖř

—ȱŽ–ȱŽ¡Ž—œŽ›ȱœ’Ž‘ȱŽœȱŠžœȱ ’Žȱ’–ȱ”’—•’Œ‘Ž—ȱ Ž‹’œœȱŽ’—ŽœȱŒ‘ž•Š—§—Ž›œǯȱ œȱŠœȱ’Žȱ㜞—ǵȱȱ ȱȱ ’•ȱśǯŞDZȱŽŽ›£Ž’Œ‘Ž—ȱŠ—œŽ••ŽȱŠ•œŒ‘Ž›ȱŠœŽ—ȱ ŠŒ‘Ž—ȱ  ’›Ȃœȱ ”ž›£ȱ ž—ȱ ŸŽ› Ž’œŽ—ȱ •Ž’Œ‘£Ž’’ȱ Šžȱ Ž—ȱ ‹œŒ‘—’ȱ ŗŖǯŘDZȱ Šœȱ ŠžŒ‘ȱ’––Ž›ȱ£ ’œŒ‘Ž—ȱ’Žȱ‹Ž’Ž—ȱ ˜Œ‘”˜––ŠœȱŽœŒ‘›’Ž‹Ž—ȱ ’›ȱȮȱŽœȱŽ›œŽ£ȱ’ŽȱŠ•Ȭ œŒ‘Žȱ ŠœŽȱ ž—ȱ  ’›ȱ œŠŽœœŽ—ȱ Ž’—Ž›ŠŽ—ǯȱ ˜Œ‘ȱ Key:=''ȱ ’œȱ ŸŽ›‹˜Ž—ǰȱ Šȱ ”˜––ȱŽ’—ŽȱŽ‘Š›—’œŒ‘ŽȱŽ‘•Ž›–Ž•ž—ǯȱŠœȱž—ǵȱ ’Žȱ㜞—ȱ”˜––ǰȱ’—Ž–ȱ ’›ȱŽ’—ȱœŽž˜ȬŽ’Œ‘Ž—ȱ£ž Ž’œŽ—ǰȱŽ’—ŽȱŠœŽǰȱ’Žȱ”Ž’Ȭ —Žȱ’—›ŠŽȬ’›”ž—ȱ‘ŠǯȱŽ’œ™’Ž•œ Ž’œŽȱ’ŽȱœŒŠ™ŽȬŠœŽȱ Esc ǯȱŠ£žȱ–žœœȱ–Š—ȱ ’Žȱǻœ™§Ž›ȱŽ›”•§›ŽǼȱChrȬž—”’˜—ȱŸŽ› Ž—Ž—DZȱ procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key < '0') or (Key > '9') then Key:=Chr(27) end;

Šœȱ’œȱ’Žȱ㜞—ǰȱ—ž—ȱ Ž›Ž—ȱŠ•œŒ‘ŽȱŠœŽ—ȱŽ’—ŠŒ‘ȱ’—˜›’Ž›Dzȱ ’›ȱ”ã——Ž—ȱŠ‹Ȭ œ˜•žȱœ’Œ‘Ž›ȱœŽ’—ǰȱŠœœȱŠœȱŽ¡Ž—œŽ›ǰȱœ˜Ž›—ȱŽœȱ—’Œ‘ȱû‹Ž›‘Šž™ȱ•ŽŽ›ȱ’œǰȱ—ž›ȱ’Ȭ Ž›—ȱ Ž—‘§•ǯȱ Ž’ȱ  Ž’Ž›Ž›ȱ ›˜›Š––’Ž›ž—ȱ ”ã——Ž—ȱ  ’›ȱ ž—œȱ Š›Šžȱ ŸŽ›•ŠœœŽ—ǯȱ

ž—Ž›™›˜£Ž—’ǯȱ—‹Ž’—ǯȱȱ ž–ȱŒ‘•žœœȱ ˜••Ž—ȱ ’›ȱ—˜Œ‘ȱŠœȱ—Žžȱ Ž•Ž›—Žȱ£žœŠ––Ž—ŠœœŽ—DZȱȱ  ’—ŠŒ‘ŽȱŽœœȱû›Ž—ȱ’—ȱŠœŒŠ•ȱ–’ȱŽ—ȱŒ‘•ûœœŽ• ã›Ž›—ȱ orȱǻû›ȱǮ˜Ž›ȃǼȱž—ȱ andȱ ǻû›ȱ Ǯž—ȃǼȱ ŸŽ›”—û™ȱ  Ž›Ž—ǯȱ Š‹Ž’ȱ œ’—ȱ ’Žȱ Ž’—£Ž•—Ž—ȱ Žœœȱ ’—ȱ ›ž—Žȱ

•Š––Ž›—ȱ£žȱœŽ£Ž—ȱž—ȱ œŽœȱŸ˜••œ§—’ȱ£žȱ˜›–ž•’Ž›Ž—ǯȱ›Ž—ȱŸŽ›‹˜Ž—ȱ’œȱ £ž–ȱŽ’œ™’Ž•ȱœ˜•Œ‘ȱŽ’—ȱ—œ’——DZȱȱ if (Key < '0' or > '9') then...

 Ž›”—û™ž—ȱ£ Ž’Ž›ȱŽœœȱ–’ȱǮž—ȃDZȱ if (...test1...) and (...test2...) then begin ... end

 Ž›”—û™ž—ȱ£ Ž’Ž›ȱŽœœȱ–’ȱǮ˜Ž›ȃDZȱ if (...test1...) or (...test2...) then begin ... end

ŗŖŚȱ

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

 œȱ Šžœ—Š‘–œ Ž’œŽȱ ‹Ž’ȱ Ž›û••Ž–ȱ Žœȱ —ž›ȱ Ž’—ȱ Ž’—£’Ž›ȱ ŽŽ‘•ȱ Šžœ£žû‘›Ž—ǰȱ ”Š——ȱ’Žȱžœ—Š‘–Ž›ŽŽ•ȱ‹Ž—ž£ȱ Ž›Ž—DZȱȱ if (...test1...) and (...test2...) then ...genau ein Befehl... if (...test1...) or (...test2...) then ...genau ein Befehl...

5.2

Alternative ’—ŠŒ‘ŽȱŽœœȱ‹Ž ’›”Ž—ȱ—ž›ǰȱŠœœȱ‹Ž’ȱ’‘›Ž›ȱ›û••ž—ȱŽ Šœȱ™Šœœ’Ž›ǯȱœȱŽ›ȱŽœȱ —’Œ‘ȱŽ›û••ǰȱ™Šœœ’Ž›ȱŽ‹Ž—ȱ—’Œ‘œǯȱŠ–’ȱ”Š——ȱ–Š—ȱœŒ‘˜—ȱŸ’Ž•Žȱ›˜›Š––’Ž›ŠžȬ Š‹Ž—ȱ•ãœŽ—ǯȱ‹Ž›ȱ—’Œ‘ȱŠ••ŽȱȮȱž—ȱŠœȱ ˜••Ž—ȱ ’›ȱž—œȱŠ—ȱŽ’—Ž–ȱ¢™’œŒ‘Ž—ȱŽ’Ȭ œ™’Ž•ȱŠ—œŽ‘Ž—ǯȱ

ȱ

5.2.1

Ein Nachttischlampen-Schalter ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 5ȱȱ’ŽȱzipȬŠŽ’ȱ DKap05.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap05 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_521.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap05 ȱ’ŽȱŠŽ’ȱproj_521.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ Šœȱœ˜••ȱŽœȱ’––Ž›ȱ—˜Œ‘ȱŽ‹Ž—DZȱ’—ȱ›žŒ”ȱŠžȱŽ—ȱŒ‘Š•Ž›ǰȱ’ŽȱŠ–™ŽȱŽ‘ȱŠ—ǰȱ  ’ŽŽ›ȱŽ›œŽ•‹Žȱ›žŒ”ȱŠžȱŽ—ȱŒ‘Š•Ž›ǰȱ’ŽȱŠ–™ŽȱŽ‘ȱŠžœǯȱ—ȱœ˜ȱ Ž’Ž›ǯȱȱ Ž›ŠŒ‘Ž—ȱ ’›ȱŠû›ȱŽ’—Ž—ȱž˜—ȱ–’ȱŽ›ȱŠ›ȬŽœŒ‘›’ž—ȱ Ein ǯȱ’›ȱŽ›ȱŽȬ ”•’Œ”ǰȱœ˜••ȱ’ŽȱŽœŒ‘›’ž—ȱ ŽŒ‘œŽ•—ȱ’—ȱ Aus ǯȱ’›ȱŽ›ȱ ’ŽŽ›ȱŽ”•’Œ”ǰȱœ˜••ȱ ’ŽȬ Ž›ȱȱ’—ȱȱŠžȱŽ–ȱž˜—ȱœŽ‘Ž—ȱžœ ǯȱǻ’•ȱśǯşǼǯȱ

ȱȱ ’•ȱśǯşDZȱŠ›ǰȱ—ŠŒ‘ȱŽ›œŽ–ȱ •’Œ”ǰȱ—ŠŒ‘ȱ£ Ž’Ž–ȱ •’Œ”ȱǻž—œŒ‘Ǽȱ

Ž’—ȱ ›˜‹•Ž–ǰȱ Ž—”ȱ œ’Œ‘ȱ Ž›ȱ  ’œœŽ—Žȱ ›˜›Š––’Ž›Ž›ǰȱ ‹Žœ˜›ȱ œ’Œ‘ȱ Ž—ȱ Š‘Ȭ –Ž—ȱ û›ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ ž—ȱ œŒ‘›Ž’‹ȱ Ž’—Ž—ȱ Šžȱ Ž—ȱ Ž›œŽ—ȱ •’Œ”ȱ ˜••Ž—ȱ ž—ȱ œŒ‘Ž’—‹Š›ȱ›’Œ‘’Ž—ȱ—‘Š•DZȱȱ procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption='Ein' then begin Button1.Caption:='Aus' end; if Button1.Caption='Aus' then begin Button1.Caption:='Ein' end end;

//erster Test //zweiter Test

śǯŘȱȱ•Ž›—Š’ŸŽȱ

ŗŖś

›˜‹’Ž›Ž—ȱ ’›ȱŽœȱŠžœDZȱ’›ȱ”ã——Ž—ȱ”•’Œ”Ž—ǰȱ ’Žȱž—ȱœ˜ȱ˜ȱ ’›ȱ ˜••Ž—ȱȮȱ ’›ȱ‹ŽȬ ”˜––Ž—ȱ—’Ž–Š•œȱ’ŽȱŽœŒ‘›’ž—ȱ Aus ȱ£žȱœŽ‘Ž—ǯȱȱ Šœȱ‘Š‹Ž—ȱ ’›ȱŠ•œŒ‘ȱŽ–ŠŒ‘ǵȱ Ž—”Ž—ȱ ’›ȱŽ–Ž’—œŠ–ȱ—ŠŒ‘ǯȱ’ŽȱŠž£Ž’ȱ‹Ž’——ǰȱŠžȱŽ–ȱž˜—ȱœŽ‘ȱ Ein ǯȱ ›œŽ›ȱ •’Œ”ǰȱŽ›œŽ›ȱŽœǯȱŽ›ȱ’œȱŽ›û••ǰȱŽœŒ‘›’ž—ȱ ŽŒ‘œŽ•ȱ£žȱ Aus ǯȱ˜Œ‘ȱ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ’œȱŽ›ŠŽȱŽ›œȱ£ž›ȱ §•ŽȱŠ‹ŽŠ›‹Ž’ŽDZȱ’—Žȱ’••’˜—œŽ•ȬŽ”ž—Žȱ œ™§Ž›ȱ ”˜––ȱ —§–•’Œ‘ȱ œ˜˜›ȱ Ž›ȱ £ Ž’Žǰȱ Ž›ȱ ˜•Ž—Žȱ Žœǯȱ ˜›ȱ Š‹Ž›ȱ  ’›ȱ ŽȬ ›Šǰȱ˜‹ȱ—ž—ȱ Aus ȱŠžȱŽ–ȱž˜—ȱœŽ‘ǯȱŠœȱ’œȱŽ›ȱŠ••ȱȮȱ˜••’Œ‘ȱ ’›ȱ’ŽȱŽȬ œŒ‘›’ž—ȱ ’ŽŽ›ȱŠžȱ Ein ȱŽœŽ••ǯȱ’—ȱ˜••Ž›ȱŽ—”Ž‘•Ž›ȱû‘›ȱ‘’Ž›ȱ£žȱŽ’—Ž–ȱŠ‹Ȭ œ˜•žȱŠ•œŒ‘Ž—ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ǯȱȱ

’Ž›ȱ‹›ŠžŒ‘Ž—ȱ ’›ȱŽ’—ŽȱŠ—Ž›ŽȱŽœ”˜—œ›ž”’˜—ǯȱ’Žȱ–žœœȱœ˜ȱŠžœœŽ‘Ž—DZȱȱ  Ž——ȱŠžȱŽ–ȱž˜—ȱ!Ein!ȱœŽ‘ǰȱŠ——ȱœŒ‘›Ž’‹Žȱ !!Aus!ǯȱ—Ž›—Š••œȱœŒ‘›Ž’‹Žȱ!Ein!ǯȱȱ ˜•Œ‘ȱ Ž’—Žȱ Ž——ȮŠ——ȮŠ—Ž›—Š••œȮ ˜—œ›ž”’˜—ȱ —Ž——ȱ –Š—ȱ •Ž›—Š’ŸŽǯȱ ’Žȱ ŠœȬ ŒŠ•ȬŽŽ•—ȱû›ȱ’‘›Žȱ–œŽ£ž—ȱœŽ‘Ž—ȱ ’›ȱ’—ȱŽ›ȱ›’Œ‘’Ž—ȱ›Ž’—’œ™›˜£Žž›ǯȱ procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption='Ein' then begin

// Befehle des JA-Zweiges Button1.Caption:='Aus'

end else begin

// andernfalls // Befehle des NEIN-Zweiges

Button1.Caption:='Ein' end end;

’ŽȱŽ—•’œŒ‘Žȱ˜”Š‹Ž•ȱ elseȱŽ‘㛝ȱ£žȱŽ—ȱ’ŸŽ›œŽ—ȱŠ•œŽȱ›’Ž—œȱǻŠ•œŒ‘Ž—ȱ›Žž—Ȭ Ž—Ǽǰȱ’Žȱ’ŽœŽȱ™›ŠŒ‘Žȱû›ȱž—œȱŽžœŒ‘Žȱ‹Ž›Ž’ȱ‘§•DZȱ elseȱ‘Ž’đȱ—’Œ‘ȱŠ•œ˜ǰȱœ˜—Ȭ Ž›—ȱŠ—Ž›—Š••œǯȱŽ›ȱœ’Œ‘ȱŠœȱ–Ž›”ǰȱ™›˜›Š––’Ž›ȱ›’Œ‘’ǯȱȱ •Ž›—Š’ŸŽ—ȱ‹Žœ’£Ž—ȱŽ’—Ž—ȱ ŠȬȱž—ȱŽ’—Ž—ȱŽ’—Ȭ Ž’ǯȱȱ  Ž’ȱ Ž›û••Ž–ȱ Žœȱ  ’›ȱ Ž›ȱ ŠȬ Ž’ȱ ŠžœŽû‘›ǰȱ ‹Ž’ȱ —’Œ‘ȱ Ž›û••Ž–ȱ Žœȱ Ž›ȱ Ž’—Ȭ Ž’ǯȱȱ —‘§•ȱ Ž’—Ž›ȱ Ž›ȱ  Ž’Žȱ œ™Ž£’Ž••ȱ —ž›ȱ Ž’—Ž—ȱ Ž’—£’Ž—ȱ ŽŽ‘•ǰȱ œ˜ȱ ”Š——ȱ ǻ–žœœȱ Š‹Ž›ȱ —’Œ‘ǷǼȱ˜›ȱ ’ŽŽ›ž–ȱŠœȱ beginȬendȬŠŠ›ȱŽ›ȱ— Ž’œž—œ”•Š––Ž›—ȱ ŽŽ•ŠœȬ œŽ—ȱ Ž›Ž—DZȱȱ procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption='Ein' then Button1.Caption:='Aus' else Button1.Caption:='Ein' end;

ŗŖŜȱ

ȱ

5.2.2

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

Zu- und Abschalten von Buttons ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 5ȱȱ’ŽȱzipȬŠŽ’ȱ DKap05.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap05 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_522.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap05 ȱ’ŽȱŠŽ’ȱproj_522.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ’›ȱ  ˜••Ž—ȱ —˜Œ‘ȱ Ž’—–Š•ȱ £žȱ Ž’—Ž›ȱ žŠ‹Žȱ §‘—•’Œ‘ȱ  ’Žȱ ’–ȱ ‹œŒ‘—’ȱ ŚǯśǯŘȱ £žȬ ›ûŒ””Ž‘›Ž—ǰȱ ˜ȱŽœȱž–ȱ’Žȱ”’Ÿ’Ž›ž—ȱž—ȱŽŠ”’Ÿ’Ž›ž—ȱŽ’—Žœȱž˜—œȱ’—ǯȱ  Ž’ȱ •ŽŽ›Žȱ Ž¡Ž—œŽ›ȱ œ’—ȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ Š—£ž˜›—Ž—ǰȱ Š›ž—Ž›ȱ Ž’—ȱ ž˜—ȱ –’ȱŽ›ȱžœŒ‘›’ȱ Füge zusammen ǰȱŠ›ž—Ž›ȱŽ’—ȱ•ŽŽ›ŽœȱŠ‹Ž•ǯȱ’ŽȱžŠ‹Žȱ•ŠžŽDZȱ Ž——ȱŽ›ȱž£Ž›ȱ’—ȱ’Žȱ‹Ž’Ž—ȱŽ¡Ž—œŽ›ȱŽ ŠœȱŽ’—Ž›ŠŽ—ȱ‘Šǰȱœ˜••Ž—ȱ‹Ž’–ȱ

•’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ ’Žȱ ‹Ž’Ž—ȱ —‘Š•Žȱ –’ȱ Ž’—Ž–ȱ ’—Žœ›’Œ‘ȱ £žœŠ––Ž—Žûȱ ž—ȱ’–ȱŠ‹Ž•ȱŠ—Ž£Ž’ȱ Ž›Ž—ǯȱ

ȱȱ ’•ȱśǯŗŖDZȱŽ›”Žž—ȱ–’ȱ’—Žœ›’Œ‘ȱ t‹Ž›ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ ‹›ŠžŒ‘Ž—ȱ  ’›ȱ Š›ȱ —’Œ‘ȱ –Ž‘›ȱ£žȱ›ŽŽ—ǰȱœ˜ȱŽ’—ŠŒ‘ȱ’œȱœ’ŽDZȱ procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=Edit1.Text + '-' + Edit2.Text end;

˜Œ‘ȱ  Ž•Œ‘Žȱ ’žŠ’˜—ȱ •’Žȱ Ž’Ž—•’Œ‘ȱ Ÿ˜›ǰȱ  Ž——ȱ Ž’—Žœȱ Ž›ȱ ‹Ž’Ž—ȱ Ž¡Ž—œŽ›ȱ ˜Ž›ȱœ˜Š›ȱŠ••Žȱ‹Ž’Žȱ•ŽŽ›ȱœ’—ǵȱŠ——ȱ §›Žȱ˜Œ‘ȱŽ’—ŽȱŽ’Ž—ž—ȱŽœȱž˜—œȱœ’——Ȭ •˜œǯȱ ˜••’Œ‘ȱ –žœœȱ ’Žȱ ™›˜™Ž›¢ȱ Enabledȱ Žœȱ ž˜—œȱ Šžȱ “ŽŽ—ȱ Š••ȱ û›ȱ Ž—ȱ Š›ȱ Ž›ȱŠž£Ž’ȱŠžȱFalseȱŽœŽ£ȱ Ž›Ž—ȱǻ’•ȱśǯŗŗǼǯȱ

ȱȱ ’•ȱśǯŗŗDZȱŽ’–ȱŠ›DZȱŽŽ›ŽȱŽ¡Ž—œŽ›ǰȱ’—Š”’ŸŽ›ȱž˜—ȱ ž—ȱ ”˜––ȱ Ž›ȱ ’—Ž›ŽœœŠ—Žȱ Ž’•ȱ Ž›ȱ žŠ‹ŽDZȱ Ž’ȱ “ŽŽ›ȱ —Ž›ž—ȱ ’—ȱ Ž’—Ž–ȱ Ž›ȱ Ž¡Ž—œŽ›ȱ–žœœȱŽ™›ûȱ Ž›Ž—ǰȱ˜‹ȱ‹Ž’ŽȱŽ¡Ž—œŽ›ȱ—’Œ‘ȱ•ŽŽ›ȱœ’—ǯȱȱ

śǯŘȱȱ•Ž›—Š’ŸŽȱ

ŗŖŝ

Ž——ȱ“Šǰȱ ’›ȱŽ›ȱž˜—ȱ£žŽœŒ‘Š•Žǯȱ—Ž›—Š••œȱ–žœœȱŽ›ȱž˜—ȱ ’ŽŽ›ȱŽŠ”Ȭ ’Ÿ’Ž›ȱ Ž›Ž—DZȱȱ procedure TForm1.Edit1Change(Sender: TObject); begin if (Edit1.Text'') and (Edit2.Text'') then Button1.Enabled:=True else Button1.Enabled:=False end; procedure TForm1.Edit2Change(Sender: TObject); begin if (Edit1.Text'') and (Edit2.Text'') then Button1.Enabled:=True else Button1.Enabled:=False end;

Ž›ȱŽœȱ£Ž’ȱŽœDZȱ›œȱ Ž——ȱ‹Ž’ŽȱŽ¡Ž—œŽ›ȱŽ’—Ž—ȱ—‘Š•ȱ‘Š‹Ž—ǰȱ ’›ȱŽ›ȱž˜—ȱ Š”’Ÿǯȱ’›ȱŠžŒ‘ȱ—ž›ȱŽ’—ȱ—‘Š•ȱŽ•ãœŒ‘ǰȱ ’›ȱŽ›ȱž˜—ȱœ˜˜›ȱŠž˜–Š’œŒ‘ȱ ’ŽȬ Ž›ȱ ’—Š”’Ÿǯȱ ˜–’ȱ ’œȱ Ž’—Žȱ Ž•ž—Ž—Žȱ Ž—ž£Ž›˜‹Ž›•§Œ‘Žȱ Ž—œŠ—Ž—ǰȱ Ž›Ž—ȱ ŽȬ ’Ž—ž—œŽ•Ž–Ž—Žȱ—ž›ȱŠ——ȱŠ”’Ÿȱǻ˜••’Œ‘ȱ‹Ž’Ž—‹Š›Ǽȱœ’—ǰȱ Ž——ȱŽ’—Žȱž£Ž›Ȭ Ž’— ’›”ž—ȱŠžȱœ’Žȱû‹Ž›‘Šž™ȱœ’——Ÿ˜••ȱ’œǯȱ Šœȱ‘Š‹Ž—ȱ ’›ȱŠžđŽ›Ž–ȱŽ•Ž›—ǵȱȱ  —ȱŠœŒŠ•ȱ‹Žœ’£ȱ’ŽȱŽ’Œ‘Ž—”˜–‹’—Š’˜—ȱȱ’ŽȱŽŽžž—ȱž—•Ž’Œ‘ǯȱȱȱ  ’—ȱŽœȱŠžȱŽ’—Ž—ȱŸ˜›‘Š—Ž—Ž—ȱ—‘Š•ȱ ’›ȱœ˜ȱ˜›–ž•’Ž›ǰȱŠœœȱŽ›Šȱ ’›ǰȱ˜‹ȱ Ž›ȱ—‘Š•ȱ—’Œ‘ȱ•ŽŽ›ȱ’œDZȱ—ȱŠœŒŠ•ȱ ’›ȱ’ŽœŽœȱ•ŽŽ›ȱ–’ȱ£ Ž’ȱ—Ž‹Ž—Ž’—Š—Ž›ȱœŽȬ ‘Ž—Ž—ȱ ˜Œ‘”˜––Šœȱ''ȱ‹ŽœŒ‘›’Ž‹Ž—ǯȱ §›Žȱ Žœȱ ‘’Ž›ȱ Ž’Ž—•’Œ‘ȱ Š•œŒ‘ǰȱ  Ž——ȱ –Š—ȱ Ž—ȱ —‘Š•ȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ –’ȱ£ Ž’ȱŽ’—ŠŒ‘Ž—ȱŽœœȱ™›˜›Š––’Ž›ŽǵȱŽ‘Ž—ȱ ’›ȱŽœȱž—œȱŠ—DZȱȱ procedure TForm1.Edit1Change(Sender: TObject); begin if (Edit1.Text'') and (Edit2.Text'') then Button1.Enabled:=True;

//Semikolon nötig, ein Test folgt

if (Edit1.Text='') or (Edit2.Text='') then Button1.Enabled:=False end;

ŗŖŞȱ

śȱȱ’—ŠŒ‘ŽȱŽœœȱž—ȱ•Ž›—Š’ŸŽ—ȱ

procedure TForm1.Edit2Change(Sender: TObject); begin if (Edit1.Text'') and (Edit2.Text'') then Button1.Enabled:=True;

//Semikolon nötig, ein Test folgt

if (Edit1.Text='') or (Edit2.Text='') then Button1.Enabled:=False end;

˜Ž›—ȱ’Žȱ˜’”ȱ‹Ž’Ž›ȱŽ’—ŠŒ‘Ž›ȱŽœœȱǻŽ’—–Š•ȱž—ǰȱŽ’—–Š•ȱ˜Ž›Ǽȱ›’Œ‘’ȱ‹ŽŠŒ‘ȱ ’œǰȱ”Š——ȱ–Š—ȱŠžŒ‘ȱœ˜ȱ™›˜›Š––’Ž›Ž—ǯȱȱ  Ž’ȱ Ž’—ŠŒ‘Žȱ Žœœȱ Š—œŽ••Žȱ Ž›ȱ if ... then ... elseȬ ˜–‹’—Š’˜—ȱ œ’—ȱ ’Žœ–Š•ȱ ‘’Ž›ȱ—’Œ‘ȱŠ•œŒ‘ǯȱ ȱȱ ȱ

ȱ

6

Timer und Timer-Ereignisse œȱŽ‘ȱŸ˜›Š—ǯȱ–ȱŸ˜›’Ž—ȱ Š™’Ž•ȱ•Ž›—Ž—ȱ ’›ȱ–’ȱŽ—ȱif...then-ȱž—ȱœ™§Ž›ȱ–’ȱ Ž—ȱ if...then...elseȬ ˜—œ›ž”’˜—Ž—ȱ ’Œ‘’Žȱ㐕’Œ‘”Ž’Ž—ȱ”Ž——Ž—ǰȱ–’ȱŽ—Ž—ȱ  ’›ȱŽ››Ž’Œ‘Ž—ȱ”ã——Ž—ǰȱŠœœȱ–Š—Œ‘ŽȱŽŽ‘•Žȱ’–ȱ——Ž›Ž—ȱŸ˜—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ —’Œ‘ȱ ’––Ž›ǰȱ œ˜—Ž›—ȱ —ž›ȱ –Š—Œ‘–Š•ȱ Š‹ŽŠ›‹Ž’Žȱ  Ž›Ž—ǯȱ Ž›ȱ ’–ȱ ŽŒ‘œŽ•ȱ –’ȱ Š—Ž›Ž—ȱŽŽ‘•Ž—ȱ‹£ ǯȱŽŽ‘•œ›ž™™Ž—ǯȱȱ — ŽŽ›ȱǯǯǯȱ˜Ž›ǰȱŠœȱ’œȱ’Žȱ•Ž›—Š’ŸŽǯȱ’Žȱ•ŠŽ’—’œŒ‘Žȱ˜”Š‹Ž•ȱŠ•Ž›ȱ‘Ž’đȱŠžŒ‘ȱ —’Œ‘œȱ Š—Ž›Žœȱ Š•œȱ Šœȱ Š—Ž›Žǯȱ ˜•’’”Ž›ȱ ˜Ž›ȱ žđ‹Š••›Ž™˜›Ž›ǰȱ ’Žȱ —ŠŒ‘ȱ ›’Ž—ȱ ž—ȱŸ’Ž›Ž—ȱ•Ž›—Š’ŸŽ—ȱœžŒ‘Ž—ǰȱ‘Š‹Ž—ȱŽ–—ŠŒ‘ȱ’–ȱŠŽ’—ž—Ž››’Œ‘ȱŽœŒ‘•ŠȬ Ž—ȱ˜Ž›ȱ‹Ž’ȱ’ŽœŽ›ȱ˜”Š‹Ž•ȱŽ›ŠŽȱŽŽ‘•ǯȱ ’Žȱ•Ž›—Š’ŸŽȱŠ•œȱ™›ŠŒ‘Ž•Ž–Ž—ȱ‹›ŠžŒ‘ȱ–Š—ȱž—‹Ž’—ȱ‹Ž’ȱŽ–ȱŽœŒ‘’•Ž›Ž—ȱ ŠŒ‘’œŒ‘•Š–™Ž—ȬŽ’œ™’Ž•DzȱŠ—Ž›ŽȱŽ’œ™’Ž•Žǰȱ ’Žȱ’ŽȱžȬȱž—ȱ‹œŒ‘Š•ž—ȱŸ˜—ȱ ž˜—œǰȱ ”ã——Ž—ȱ  Š‘• Ž’œŽȱ –’ȱ •Ž›—Š’ŸŽȱ ˜Ž›ȱ £ Ž’ȱ Ž’—ŠŒ‘Ž—ȱ Žœœȱ ™›˜›Š–Ȭ –’Ž›ȱ Ž›Ž—ǯȱȱ žŒ‘ȱ’Žȱ’—ȱ‹œŒ‘—’ȱśǯŗǯŘȱŽœŽ••ŽȱžŠ‹ŽǰȱŠœœȱ‹Ž’–ȱ •’Œ”ȱŠžȱŽ’—Žȱ‘ŽŒ”‹˜¡ȱ –’ŽŽ’•ȱ  Ž›Ž—ȱ œ˜••ǰȱ ˜‹ȱ Žœȱ Ž’—ȱ ’—”•’Œ”ȱ ˜Ž›ȱ Ž’—ȱ žœ”•’Œ”ȱ  Š›ǰȱ ‘§Žȱ œ’Œ‘ǰȱ Šœȱ  ’œœŽ—ȱ ’›ȱ—ž—ǰȱ–’ȱŽ›ȱ•Ž›—Š’ŸŽȱŽ•ŽŠ—Ž›ȱ™›˜›Š––’Ž›Ž—ȱ•ŠœœŽ—ǯȱ Ž—Šžœ˜ȱ •’ŽđŽȱœ’Œ‘ȱ’Žȱ•Ž›—Š’ŸŽȱŠžŒ‘ȱŠ— Ž—Ž—ȱ‹Ž’ȱŽ›ȱŽ Žž—œœŽžŽ›ž—ȱŽ›ȱŒ›˜••Ȭ ‹Š›ȱǻ‹œŒ‘—’ȱśǯŗǯřǼǯȱȱ ž—ȱã——Ž—ȱ ’›ȱž—œȱ ’ŽŽ›ȱŽ’—ŽȱŽ›œŒ‘—Šž™ŠžœŽǰȱ‹ŽŸ˜›ȱŽ›œȱ’–ȱ Š™’Ž•ȱşȱ–’ȱ Ž›ȱ §‘•œŒ‘•Ž’Žȱ Šœȱ —§Œ‘œŽȱ •Ž’œž—œ§‘’Žǰȱ Š‹Ž›ȱ ŠžŒ‘ȱ Ž’œ’ȱ Š—œ™›žŒ‘œŸ˜••Žȱ ™›ŠŒ‘Ž•Ž–Ž—ȱŽ’—Žû‘›ȱ Ž›Ž—ȱ ’›ǯȱȱ

6.1

Timer: Begriff und Bedeutung

6.1.1

Bisherige Möglichkeiten und Grenzen Šœȱ”ã——Ž—ȱ ’›ȱ‹’œ‘Ž›ǵȱ’Ž•ǯȱ’›ȱ”ã——Ž—ȱŽ’—ȱ˜›–ž•Š›ȱ‘Ž›œŽ••Ž—ǰȱŠžȱŽ–ȱŽȬ ’Ž—Ž•Ž–Ž—ŽȱŠ—Ž˜›—Žȱœ’—ǯȱ’›ȱ”ã——Ž—ȱœ˜ ˜‘•ȱû›ȱŠœȱ˜›–ž•Š›ȱŠ•œȱŠžŒ‘ȱû›ȱ ’ŽȱŽ’Ž—Ž•Ž–Ž—Žȱ’Žȱ ŽœŠ•ž—ȱû›ȱŽ’—Žȱ’Ž•£Š‘•ȱŸ˜—ȱŽ›”–Š•Ž—ȱ–’ȱ ’•Žȱ ŽœȱŽ’œŽ›‹•ŠŽœȱ  ȱŽœȱ‹“Ž”’—œ™Ž”˜›œȱŸ˜›Ž’—œŽ••Ž—ǯȱȱ Ž’–ȱŽ’——ȱŽ›ȱŠž£Ž’ȱ Ž›Ž—ȱ’ŽœŽȱ˜›Ž’—œŽ••ž—Ž—ȱŠ——ȱ–’Ž•œȱŽ›ȱ™›˜™Ž›Ȭ ’Žœȱ’—ȱ’ŽȱŠŽ—”Ž›—ŽȱŽ›ȱŽ—œŽ‘Ž—Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”Žȱ›Š—œ™˜›’Ž›ǯȱŠȱ’ŽȱŠȬ Ž—”Ž›—ŽȱŸ’œžŽ••Ž›ȱ‹“Ž”Žȱž—–’Ž•‹Š›ȱ–’ȱŽ—ȱœ’Œ‘‹Š›Ž—ȱŽ’•Ž—ȱŸŽ›‹ž—Ž—ȱœ’—ǰȱ œŽ‘Ž—ȱ ’›ȱ£ž–ȱŽ’——ȱŽ›ȱŠž£Ž’ȱŠœǰȱ Šœȱ ’›ȱŸ˜›‘Ž›ȱŽ’—ŽœŽ••ȱ‘Š‹Ž—ǯȱȱ

ŗŗŖȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

˜••ŽȱŽ’—ȱŽ›”–Š•ȱœ’Œ‘ȱŠžœ—Š‘–œ Ž’œŽȱ—’Œ‘ȱû‹Ž›ȱŽ—ȱ‹“Ž”’—œ™Ž”˜›ȱŸ˜›Ž’—œŽ•Ȭ •Ž—ȱ•ŠœœŽ—ǰȱŠȱ’ŽȱŽ—œ™›ŽŒ‘Ž—Žȱ™›˜™Ž›¢ȱ˜›ȱŽ‘•ȱǻ£ǯȱǯȱ’ŽȱŠ›–Š›”’Ž›ž—ȱ’—ȱ Ž’—Ž›ȱ ’œŽǼǰȱ •§œœȱ œ’Œ‘ȱ Ž–ȱ Š‹‘Ž•Ž—ȱ –’ȱ ’•Žȱ Ž›ȱ œ™Ž£’Ž••Ž—ȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ›Ž’—’œȱ›£Žžž—ȱŽœȱ˜›–ž•Š›œȱž—ȱž—Ž›ȱŽ› Ž—ž—ȱŽŽ’—ŽŽ›ȱ Ž’ŽȬ ›Ž›ȱ™›˜™Ž›’Žœǰȱ’ŽȱŠ——ȱ’—ȱŽ›ȱž—”•’œŽȱ£žȱœžŒ‘Ž—ȱœ’—ȱǻœǯȱ‹œŒ‘—’ȱŚǯŝǯřǼǯȱȱȱ Ž’Ž›Žȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ  Ž›Ž—ȱ ŠžđŽ›Ž–ȱ Ÿ˜›‹Ž›Ž’Žǰȱ Š–’ȱ ‹Ž’ȱ ‹ŽȬ œ’––Ž—ȱ ž£Ž›‘Š—•ž—Ž—ȱ Š—ȱ Ž—ȱ œ’Œ‘‹Š›Ž—ȱ Ž’•Ž—ȱ Ž ’œœŽ›ȱ Ÿ’œžŽ••Ž›ȱ ‹Ȭ “Ž”Žȱ’ŽȱŽ û—œŒ‘Ž—ȱŽŠ”’˜—Ž—ȱŽ’—›ŽŽ—ǯȱŠœȱ ˜ȱž—ȱ ˜‹Ž’ȱ™Šœœ’Ž›Ž—ȱœ˜••ǰȱ Šœȱ–žœœȱ–Š—ȱŠžœȱŽ›ȱžŠ‹Ž—œŽ••ž—ȱŽ——Ž‘–Ž—ǯȱŠœȱ‘Š‹Ž—ȱ ’›ȱŠ—ȱŸ’Ž•Ž—ȱ Ž’œ™’Ž•Ž—ȱœŒ‘˜—ȱ›Š’—’Ž›ȱž—ȱ Ž›Ž—ȱŽœȱ Ž’Ž›ȱ›Š’—’Ž›Ž—ǯȱ

ȱȱȱ ’•ȱŜǯŗDZȱ’œ‘Ž›’Žȱ’žŠ’˜—DZȱ‘—Žȱž£Ž›ȱ™Šœœ’Ž›ȱ—’Œ‘œȱȱ ’Žȱ ŽŠ”’˜—Ž—ȱ ”ã——Ž—ȱ ’–ȱ Ž’—ŠŒ‘œŽ—ȱ Š••ȱ —ž›ȱ ’Ž’•ž—Ž—ȱ œŽ’—ǰȱ œ’Žȱ ”ã——Ž—ȱ Š‹Ž›ȱ ŠžŒ‘ȱ ’—ȱ —Ž›ž—Ž—ȱ Š—ȱ Ž›”–Š•Ž—ȱ Žœȱ œ’Œ‘‹Š›Ž—ȱ Ž’•œȱ Žœȱ Ž’Ž—Ž—ȱ ˜Ž›ȱ Š—Ž›Ž›ȱŸ’œžŽ••Ž›ȱ‹“Ž”Žȱ‹ŽœŽ‘Ž—ǯȱȱ 㐕’Œ‘ȱ  ’›ȱ Šœȱ Š••Žœȱ ž›Œ‘ȱ ’Žȱ Ž› Ž—ž—ȱ Ÿ˜—ȱ ™›˜™Ž›’Žœǰȱ –’ȱ Ž›Ž—ȱ ’•Žȱ  ’›ȱŽ—ȱž›’ȱŠžȱŠŽ—”Ž›—ŽȱŸ’œžŽ••Ž›ȱ‹“Ž”Žȱ™Šœœ’Ÿȱž—ȱŠ”’Ÿȱ™›˜›Š––’Ž›Ž—ȱ ”ã——Ž—ǯȱ ••Žœȱ ™›’–Šǯȱ ˜Œ‘ȱ Ž’—ȱ Ž’•ȱ Ž’—Žœȱ Š£Žœȱ œ˜••ȱ ‘’Ž›ȱ —˜Œ‘ȱ Ž’—–Š•ȱ ‘Ž›Ÿ˜›Ž‘˜‹Ž—ȱ  Ž›Ž—DZȱ

Ŝǯŗȱȱ’–Ž›DZȱŽ›’ȱž—ȱŽŽžž—ȱ

ŗŗŗ

 ǯǯǯȱ Š–’ȱ ‹Ž’ȱ ‹Žœ’––Ž—ȱ ž£Ž›‘Š—•ž—Ž—ȱ Š—ȱ Ž—ȱ œ’Œ‘‹Š›Ž—ȱ Ž’•Ž—ȱ Ž ’œœŽ›ȱ Ÿ’Ȭ œžŽ••Ž›ȱ‹“Ž”Žȱ’ŽȱŽ û—œŒ‘Ž—ȱŽŠ”’˜—Ž—ȱŽ’—›ŽŽ—ȱ Šœȱ ‘Ž’đȱ ˜Œ‘ȱ ’–ȱ •Š›Ž¡ȱ Ž—Šžȱ Šœǰȱ  Šœȱ ’—ȱ Ž›ȱ —Ž›œŒ‘›’ȱ Ÿ˜—ȱ ’•ȱ Ŝǯŗȱ œŽ‘DZȱ‘—Žȱž£Ž›ȱ™Šœœ’Ž›ȱ—’Œ‘œǯȱȱ ˜Œ‘ȱ ŠžŒ‘ȱ Š——ǰȱ  Ž——ȱ Ž’—ȱ ž£Ž›ȱ Ÿ˜›‘Š—Ž—ȱ ’œȱ ž—ȱ œ’Œ‘ȱ ‹ŽŽ’œŽ›ȱ Ž—ȱ ‘û‹œŒ‘ȱ ŽœŠ•ŽŽ—ȱ ’•œŒ‘’›–ȱ Š—œ’Ž‘ǰȱ ™Šœœ’Ž›ȱ —’Œ‘œǯȱ ’›ȱ –ûœœŽ—ȱ Ž—ŠžŽ›ȱ ˜›–ž•’Ž›Ž—DZȱȱ  ‘—Žȱ Ž’—Žȱ Ž’Ž—‘Š—•ž—ȱ Ž’—Žœȱ ž£Ž›œȱ ’›ȱ ‹’œ‘Ž›ȱ—’Œ‘ȱ Ž’—Žȱ Ž’—£’Žȱ ›Ž’Ȭ —’œ™›˜£Žž›ȱŽœŠ›Žȱž—ȱŠ‹ŽŠ›‹Ž’Žǯȱȱ Šȱž—ǰȱ”ã——Žȱ–Š—ȱŠȱŽ’— Ž—Ž—ǵȱŒ‘•’Žđ•’Œ‘ȱ ’›ȱ˜Œ‘ȱŽ’—ŽȱŽ—ž£Ž›˜‹Ž›Ȭ •§Œ‘ŽȱŽ›ŠŽȱŠû›ȱŽ–ŠŒ‘ǰȱŠœœȱŽ’—ȱž£Ž›ȱ–’ȱ’‘›ȱž–Ž‘ǯȱ ˜Œ‘ȱ Žœȱ ’‹ȱ ŠžŒ‘ȱ —˜Œ‘ȱ Š—Ž›Žȱ ›Ž—ȱ Ÿ˜—ȱ žŠ‹Ž—œŽ••ž—Ž—ǯȱ ˜ȱ ‘Š‹Ž—ȱ  ’›ȱ ’Žȱ Ÿ’Ž•Ž—ȱ ™’Ž•Žǰȱ ’Žȱ Ž›ŠŽ£žȱ ŠŸ˜—ȱ •Ž‹Ž—ǰȱ Šœœȱ £ž—§Œ‘œȱ ˜‘—Žȱ ž£Ž›Ž’— ’›Ȭ ”ž—ȱ Šžȱ Ž›ȱ Ž—ž£Ž›˜‹Ž›•§Œ‘Žȱ Ž Šœȱ ™Šœœ’Ž›ǰȱ  ˜›Šžȱ Ž›ȱ ž£Ž›ȱ ›ŽŠ’Ž›Ž—ȱ œ˜••ǯȱȱ žŒ‘ȱ Ž›ȱ Ž›’ȱ Ž›ȱ ’–ž•Š’˜—ȱ  ’›ȱ ž—œȱ —˜Œ‘ȱ ‹ŽœŒ‘§’Ž—DZȱ ‘—Žȱ ’— ’›”ž—ȱ Ÿ˜—ȱ ŠžđŽ—ȱ œ˜••Ž—ȱ ›˜£ŽœœŽȱ ’–ȱ Ž’›‘¢‘–žœȱ Š‹•ŠžŽ—ǰȱ ’Žȱ –Š—ȱ Š——ȱ ‹Ž˜‹ŠŒ‘Ž—ȱ ”Š——ȱȮȱ‹Ž’œ™’Ž•œ Ž’œŽȱ’ŽȱŽžŽ›ž—ȱŽ’—Ž›ȱ–™Ž•ȱŠ—ȱŽ’—Ž›ȱ ›Žž£ž—ǯȱȱ Ž›ȱ Ž—”Ž—ȱ  ’›ȱ Š—ȱ ›§œŽ—Š’˜—œȬȱ ž—ȱ —˜›–Š’˜—œ™›˜›Š––Žǯȱ Ž——ȱ Ž›ȱ —‘ŠȬ ‹Ž›ȱ Ž’—Žœȱ Ž’œŽ‹û›˜œȱ Š–ȱ Š–œŠ–’Šȱ Ž’—Ž—ȱ Ȭ’•œŒ‘’›–ȱ ’—ȱ œŽ’—ȱ Œ‘ŠžȬ Ž—œŽ›ȱœŽ••ȱž—ȱ–’ȱŽ–ȱŽ’——ȱŽ›ȱŠž£Ž’ȱŽ’—ŽȱŽ—ž£Ž›˜‹Ž›•§Œ‘Žȱ‘Ž›œŽ••ǰȱ œ˜••ȱ—Šû›•’Œ‘ȱ˜‘—Žȱžž—ȱŽ›ȱŽ›ŠŒ‘Ž›ȱŽ’—Žȱ›§œŽ—Š’˜—ȱŠ‹•ŠžŽ—ǯȱȱ Œ‘•’Žđ•’Œ‘ȱ œ˜••Ž—ȱ  ’›ȱ ŠžŒ‘ȱ Š—ȱ Ž’—Ž—ȱ ’•œŒ‘’›–œŒ‘˜—Ž›ȱ Ž—”Ž—ǰȱ Ž›ȱ ˜‘—Žȱ “Ž•’Ȭ Œ‘Ž—ȱ—œ˜đȱž›Œ‘ȱŽ’—Žȱž£Ž›Ž’— ’›”ž—ȱ™•ã£•’Œ‘ȱœŠ›Žȱž—ȱ™ŠžœŽ—•˜œȱŸŽ›Ȭ œŒ‘’ŽŽ—Š›’œŽȱ’•Ž›ȱ™›˜ž£’Ž›ǯȱȱȱ

6.1.2

Timer ’—ȱ’–Ž›ȱ’œȱŽ’—ȱŽ’Ž‹Ž›ǰȱŽ›ȱȮȱœ˜Ž›—ȱŽ›ȱŠ”’Ÿȱ’œȱȮȱ’—ȱ‹Žœ’––Ž—ȱ‹œ§—Ž—ȱŽ’—ȱ›Ȭ Ž’—’œȱŠžœ•ãœǰȱŠœȱ’–Ž›Ȭ›Ž’—’œǯȱȱ ž–ȱ ’–Ž›Ȭ›Ž’—’œȱ ”ã——Ž—ȱ ’—ȱ Ž›ȱ £žŽ‘ã›’Ž—ȱ ›Ž’—’œ™›˜£Žž›ȱ Ÿ’Ž•§•’Žȱ ŽȬ Š”’˜—Ž—ȱ™›˜›Š––’Ž›ȱ Ž›Ž—ȱǻœ’Ž‘Žȱ’•ȱŜǯŘǼǯȱȱȱȱ ’—ȱ’–Ž›ȱ’œȱŽ’—ȱ‹“Ž”ǰȱŠœȱ’—ȱœŽ’—Ž–ȱŽ”Š™œŽ•Ž—ȱŠŽ—”Ž›—ȱ’ŽȱŽ›”–Š•ŽȱŸŽ›Ȭ  Š•Žǯȱ–ȱ‹“Ž”’—œ™Ž”˜›ȱœ’—ȱ’Žȱ’Ž—œŒ‘ŠŽ—ȱŠžŽ•’œŽǰȱ–’ȱŽ›Ž—ȱ ’•Žȱ’Žȱ ’žŠ’˜—ȱŽœȱ’–Ž›œȱ‹Ž’–ȱŠ›ȱŽ›ȱŠž£Ž’ȱŸ˜›Ž’—ŽœŽ••ȱ Ž›Ž—ȱ”Š——ǯȱȱ ’ȱ ’•ŽȱŽ’—’Ž›ȱ™›˜™Ž›’Žœȱ”Š——ȱ’—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱŠ••Ž›ȱ›ȱŠžȱŽ—ȱŠŽ—Ȭ ”Ž›—ȱŽ’—Žœȱ’–Ž›œȱ£žŽ›’Ž—ȱ Ž›Ž—ǯȱȱ 㐕’Œ‘”Ž’Ž—ȱ Ž›ȱ ž—–’Ž•‹Š›Ž—ȱ ž£Ž›Ž’— ’›”ž—ȱ Šžȱ Ž’—Ž—ȱ ’–Ž›ȱ ’‹ȱ Žœȱ —’Œ‘ǯȱ ˜••’Œ‘ȱ£§‘•ȱŽ’—ȱ’–Ž›ȱ ˜‘•ȱ—’Œ‘ȱ£žȱŽ—ȱŸ’œžŽ••Ž—ȱ‹“Ž”Ž—ǯȱ

ŗŗŘȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ ȱȱ

ȱ ’•ȱŜǯŘDZȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œȱȱ Ž•™‘’ȱ‹’ŽŽȱ’Žȱ㐕’Œ‘”Ž’ǰȱ–Ž‘›Ž›Žȱ’–Ž›ȱ£žȱŸŽ› Ž—Ž—ȱǻ’•ȱŜǯřǼǯȱû›ȱ“ŽŽ—ȱ Ž’—£Ž•—Ž—ȱ’–Ž›ȱ”Š——ȱŽ’—ȱ‹Žœ’––Žœȱ—Ž›ŸŠ••ȱŽ’—ŽœŽ••ȱ Ž›Ž—ǯȱȱ ’Žȱ Ž—Žȱ Ž›ȱ ›Ž’—’œ™›˜£Žž›Ž—ǰȱ ’—ȱ Ž—Ž—ȱ Šžȱ ž£Ž›Ž’— ’›”ž—Ž—ȱ ›ŽŠ’Ž›ȱ  ’›ǰȱ ”Š——ȱ —ž—ȱ Ž›§—£ȱ  Ž›Ž—ȱ ž›Œ‘ȱ Ÿ’Ž•§•’Žȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ £žȱ Ž—ȱ ’Ȭ –Ž›Ȭ›Ž’—’œœŽ—ǯȱȱ

6.2

Einrichtung und Starteinstellung ‹ ˜‘•ȱŽ’—ȱ’–Ž›ȱ”Ž’—ȱŸ’œžŽ••Žœȱ‹“Ž”ȱ’œǰȱ”Š——ȱŽ›ȱ˜Œ‘ȱŽ‹Ž—œ˜ȱ ’Žȱ’Žȱ‹’œ‘Ž›ȱ ‹Ž”Š——Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”ŽȱŽ’—Ž›’Œ‘Žȱ Ž›Ž—ǯȱȱ

6.2.1

Platzieren des Timer-Symbols Šœȱ’–Ž›Ȭ¢–‹˜•ȱǻ‘›Ǽȱ’—Ž—ȱ ’›ȱ’—ȱŽ•™‘’ȱŝȱŠžȱŽ›ȱŽ’œŽ›”Š›ŽȱȱŽ›ȱ

˜–™˜—Ž—Ž—•Ž’œŽǯȱ —ȱ ž›‹˜ȱ Ž•™‘’ȦŽ•™‘’ȱ ŞȦŘŖŖśȦŘŖŖşȱ –žœœȱ ’—ȱ Ž›ȱ ˜˜•Ȭ Š•ŽŽȱ Šžȱ ȱ ž–ŽœŽ••ȱ  Ž›Ž—ȱ ǻœǯȱ ’•ȱ ŜǯŚǼǯȱ Šœȱ ’–Ž›Ȭ¢–‹˜•ȱ ”Š——ȱ ’›Ȭ Ž— ˜‘’—ȱŠžȱŠœȱ˜›–ž•Š›ȱŽ£˜Ž—ȱ Ž›Ž—ǯȱœȱ’œȱ£ž›ȱŠž£Ž’ȱ—’Œ‘ȱ£žȱœŽ‘Ž—Dzȱ Žœȱ ’œȱ ž— ’Œ‘’ǰȱ  ˜ȱ Žœȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ ™•Š£’Ž›ȱ  ’›ǯȱ Ž•™‘’ȱ ŸŽ›’‹ȱ Šž˜Ȭ –Š’œŒ‘ȱ’ŽȱŠ–Ž—ȱTimer1ǰȱTimer2ȱžœ ǯȱû›ȱ’Žȱ™•Š£’Ž›Ž—ȱ’–Ž›ǯȱ Ž›ȱ‹“Ž”’—œ™Ž”˜›ȱ’‹ȱȮȱ ’Žȱ’––Ž›ȱȮȱ’Žȱ㐕’Œ‘”Ž’ȱŸ˜›Ž’—£žœŽ••Ž—ǰȱ ’ŽȱŽ›ȱ “Ž Ž’•’Žȱ’–Ž›ȱ£žȱŽ’——ȱŽ›ȱŠž£Ž’ȱŽ’—Ž›’Œ‘ŽȱœŽ’—ȱœ˜••ǯȱȱ ž›Œ‘ȱŽ—ȱ’–Ž›Ȭ‹“Ž”’—œ™Ž”˜›ȱœ’—ȱ•Ž’Œ‘£Ž’’ȱŠžŒ‘ȱ’ŽȱŠ–Ž—ȱ ’Œ‘’Ž›ȱ™›˜Ȭ ™Ž›’Žœȱ ‹Ž”Š——ǰȱ –’ȱ Ž—Ž—ȱ ’——Ž›‘Š•‹ȱ Ÿ˜—ȱ Š—Ž›Ž—ȱ ›Ž’—’œ™›˜£Žž›Ž—ȱ Šžȱ Ž—ȱ ŠŽ—”Ž›—ȱŽ’—Žœȱ’–Ž›œȱŠ”’Ÿȱž—ȱ™Šœœ’Ÿȱ£žŽ›’Ž—ȱ Ž›Ž—ȱ”Š——ǯȱȱ

ŜǯŘȱȱ’—›’Œ‘ž—ȱž—ȱŠ›Ž’—œŽ••ž—ȱ

ŗŗř

ȱȱ ’•ȱŜǯřDZȱŽ‘›Ž›Žȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

ȱȱ ’•ȱŜǯŚDZȱ’–Ž›Ȭ¢–‹˜•ȱ’—ȱŽ•™‘’ȱŝȱ‹£ ǯȱž›‹˜ȱŽ•™‘’ȦŽ•™‘’ȱŞȦŘŖŖśȦŘŖŖşȱ ’Žȱ ’Œ‘’œŽ—ȱ™›˜™Ž›’ŽœǰȱŠ•œȱ’–Ž›Ȭ’Ž—œŒ‘ŠŽ—ȱŽ—‘Š•Ž—ȱ’—ȱŽœœŽ—ȱ‹“Ž”’—Ȭ œ™Ž”˜›ǰȱ‘Š‹Ž—ȱ’ŽȱŠ–Ž—ȱEnabledȱž—ȱIntervalǯȱȱ

ȱȱȱ ’•ȱŜǯśDZȱ˜›Ž’—œŽ••ž—ȱŽ›ȱŠ›Ȭ’Ž—œŒ‘ŠŽ—ȱ œȱ’Žȱ™›˜™Ž›¢ȱ EnabledȱŠžȱ TrueȱŽœŽ£ǰȱœ˜ȱ•§žȱŽ›ȱ’–Ž›ǰȱǯȱ‘ǯȱŠœȱ’–Ž›Ȭ›Ȭ Ž’—’œȱ›’ȱ–’ȱŽ–ȱŽ’—ŽœŽ••Ž—ȱ—Ž›ŸŠ••ȱŠžǯȱ’ȱ Enabled:=Falseȱ ’›ȱŽ›ȱ’–Ž›ȱ Š—Ž‘Š•Ž—ǰȱ ˜‘—Žȱ Šœœȱ Šœȱ —Ž›ŸŠ••ȱ ŸŽ›§—Ž›ȱ  ’›ǯȱ ›—ŽžŽȱ –œŽ••ž—ȱ Šžȱ Enabled:=TrueȱœŠ›ŽȱŽ—ȱ’–Ž›ȱ ’ŽŽ›ǯȱ ’ȱŽ›ȱ™›˜™Ž›¢ȱ IntervalȱǻŒ‘ž—ȱȮȱȱ—ž›ȱŽ’—ȱǮ•ȃǼȱ ’›ȱ’ŽȱŠžœŽȱ£ ’œŒ‘Ž—ȱ£ Ž’ȱ ’–Ž›Ȭ›Ž’—’œœŽ—ȱ’—ȱ’••’œŽ”ž—Ž—ȱŽœŽ•Žǯȱȱ

ŗŗŚȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

—ȱ ’•ȱ Ŝǯśȱ ’œȱ Ž›ȱ Ž›œŽȱ ’–Ž›ǰȱ Ž›ȱ Ÿ˜—ȱ Ž•™‘’ȱ Ž—ȱ Š–Ž—ȱ Timer1ȱ ‹Ž”˜––Ž—ȱ ‘Šǰȱœ˜ȱŽ’—ŽœŽ••ǰȱŠœœȱœŽ’—ȱ’–Ž›Ȭ›Ž’—’œȱŽ’—–Š•ȱ™›˜ȱŽ”ž—ŽȱȱŽ’—›’ȱǻŗŖŖŖȱ’•Ȭ •’œŽ”ž—Ž—ȱƽȱŗȱŽ”ž—ŽǼǯȱ  ’Žȱ›ŽšžŽ—£ȱŸ˜—ȱ’–Ž›—ȱ’œȱ’–ȱ••Ž–Ž’—Ž—ȱ‹Ž›Ž—£DZȱœȱ’œȱœ’——•˜œǰȱŽ’—Ž—ȱ’Ȭ –Ž›ȱŠžȱŽ’—ȱŽ¡›Ž–ȱ”•Ž’—Žœȱ—Ž›ŸŠ••ȱ£žȱœŽ£Ž—Dzȱ’–ȱ’—£Ž•—Ž—ȱ‘§—ȱ’Žȱ’ŽœŽœȱ ’—’–Š•’—Ž›ŸŠ••ȱŸ˜—ȱŸŽ›œŒ‘’ŽŽ—Ž—ȱŠ”˜›Ž—ǰȱ£ǯȱǯȱŽ–ȱŽ›’Ž‹œœ¢œŽ–ǰȱŠ‹ǯȱ Ž’ȱŽ•™‘’ȱŝȱ‹Ž›§ȱŽ›ȱ”•Ž’—œ–㐕’Œ‘ŽȱŽ›ȱśśȱ–œǯȱȱ ȱ

6.2.2

Einfache Ereignisprozeduren ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 6ȱȱ’ŽȱzipȬŠŽ’ȱ DKap06.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap06 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_622.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap06 ȱ’ŽȱŠŽ’ȱproj_622.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ ž›ȱŽ–˜—œ›Š’˜—ȱ ˜••Ž—ȱ ’›ȱ›Ž’ȱ’–Ž›ȱž—Ž›Ž’—Š—Ž›ȱŠžȱŽ–ȱ˜›–ž•Š›ȱ™•ŠȬ £’Ž›Ž—ȱž—ȱŠ—Ž‹Ž—ȱ“Ž Ž’•œȱŽ’—ŽȱŒ›˜••‹Š›ȱœŽ£Ž—ȱǻ’•ȱŜǯŜǼǯȱ ŽŽȱŒ›˜••‹Š›ȱ‹Žœ’£ȱ ’ŽœŽ•‹ŽȱŠ—Š›ȬŠ›Ž’—œŽ••ž—DZȱ’—’–ž–ȱŖǰȱŠ¡’–ž–ȱŗŖŖǰȱ˜œ’’˜—ȱŖǯȱȱ

ȱȱȱ ’•ȱŜǯŜDZȱ›Ž’ȱ’–Ž›ǰȱ›Ž’ȱ‹“Ž”ŽȱŒ›˜••‹Š›ȱȱ ••Žȱ ›Ž’ȱ ’–Ž›ȱ  Ž›Ž—ȱ Š”’Ÿȱ Ÿ˜›Ž’—ŽœŽ••ǰȱ Š‹Ž›ȱ –’ȱ ŸŽ›œŒ‘’ŽŽ—Ž—ȱ —Ž›ŸŠ••Ž—ȱ ǻ’•ȱ ŜǯŜǼDZȱ ’–Ž›ŗȱ ”˜––ȱ “ŽŽȱ Ž”ž—Žǰȱ ’–Ž›Řȱ Š••Ž›ȱ Řȱ Ž”ž—Ž—ǰȱ ž—ȱ ’–Ž›řȱ •§œœȱœ’Œ‘ȱŠ–ȱ–Ž’œŽ—ȱŽ’DZȱ›ȱ•ãœȱ—ž›ȱŠ••Ž›ȱŸ’Ž›ȱŽ”ž—Ž—ȱœŽ’—ȱ’–Ž›Ȭ›Ž’—’œȱ Šžœǯȱȱ

ȱȱ ’•ȱŜǯŝDZȱŠ›Ž’—œŽ••ž—Ž—ȱŽ›ȱ›Ž’ȱ’–Ž›ȱ Ž’ȱ Ž—ȱ ‹’œ‘Ž›ȱ ‹Ž‘Š—Ž•Ž—ȱ Ÿ’œžŽ••Ž—ȱ ‹“Ž”Ž—ȱ Š‹ȱ Žœȱ ž›Œ‘ Žȱ Šœȱ Š—Š›Ȭ ›Ž’—’œȱž—ȱŸ’Ž•ŽȱŠ—Ž›Žȱ’Œ‘ȬŠ—Š›Ȭ›Ž’—’œœŽǯȱȱ

ŜǯŘȱȱ’—›’Œ‘ž—ȱž—ȱŠ›Ž’—œŽ••ž—ȱ

ŗŗś

’›ȱ–žœœŽ—ȱ“Ž Ž’•œȱŽ—Šžȱû‹Ž›•ŽŽ—ǰȱû›ȱ Ž•Œ‘Žȱ›Ž’—’œȬ›ȱŽ›ȱŠ‘–Ž—ȱŽ›ȱ ›Ž’—’œ™›˜£Žž›ȱ‹ŽœŒ‘Šȱ Ž›Ž—ȱœ˜••Žǯȱȱ Ž’–ȱ’–Ž›ȱ’‹ȱŽœȱ—ž›ȱŽ’—ȱŽ’—£’Žœȱ›Ž’—’œǰȱû›ȱŠœȱŽ’—ŽȱŽŠ”’˜—ȱ™›˜›Š––’Ž›ȱ  Ž›Ž—ȱ”Š——ȱȮȱ’Žȱ’Žœ‹Ž£û•’Œ‘Žȱ’œŽȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱǻ’•ȱŜǯŞǼȱœŒ‘›ž–™ȱ ˜••’Œ‘ȱŠžȱŽ’—Ž—ȱŽ’—£’Ž—ȱ’—›Šȱ£žœŠ––Ž—ǯȱȱ

ȱȱȱ ’•ȱŜǯŞDZȱ’œŽȱŽ›ȱ–㐕’Œ‘Ž—ȱ›Ž’—’œœŽȱ‹Ž’–ȱ’–Ž›ȱȱ ’—ȱ ˜™™Ž•”•’Œ”ȱ ’—ȱ Šœȱ •ŽŽ›Žȱ Ž•ȱ —Ž‹Ž—ȱ OnTimerȱ ˜Ž›ȱ Ž’—ȱ ˜™™Ž•”•’Œ”ȱ Šžȱ Šœȱ ’–Ž›Ȭ¢–‹˜•ȱŠžȱŽ–ȱ˜›–ž•Š›ȱ•’ŽŽ›ȱž—œȱŠ——ȱœ˜˜›ȱŽ—ȱŠ‘–Ž—ȱû›ȱ’Žȱ›Ȭ Ž’—’œ™›˜£Žž›ȱ£ž–ȱ›Ž’—’œȱ’–Ž›ȱ”˜––ȱǻ’–Ž›Ȭ›Ž’—’œǼDZȱȱ procedure TForm1.Timer1Timer(Sender: TObject); begin ............

//Inhalt der Ereignisprozedur

end;

Ž‘›Ž—ȱ  ’›ȱ £žȱ ž—œŽ›Ž–ȱ Ž’œ™’Ž•ȱ £ž›ûŒ”DZȱ Ž——ȱ Šœȱ “Ž Ž’•’Žȱ ’–Ž›Ȭ›Ž’—’œȱ Ž’—›’ǰȱ œ˜••ȱ œ’Œ‘ȱ ’Žȱ ˜œ’’˜—ȱ Žœȱ Ž•Ž›œȱ ’—ȱ Ž›ȱ £žŽ‘ã›’Ž—ȱ Œ›˜••‹Š›ȱ ž–ȱ £Ž‘—ȱ ’—‘Ž’Ž—ȱ—ŠŒ‘ȱ›ŽŒ‘œȱŸŽ›œŒ‘’Ž‹Ž—DZȱȱ procedure TForm1.Timer1Timer(Sender: TObject); begin ScrollBar1.Position:=ScrollBar1.Position+10 end; procedure TForm1.Timer2Timer(Sender: TObject); begin ScrollBar2.Position:=ScrollBar2.Position+10 end; procedure TForm1.Timer3Timer(Sender: TObject); begin ScrollBar3.Position:=ScrollBar3.Position+10 end;

—ȱŽ—ȱ’•Ž›—ȱŜǯşȱ‹’œȱŜǯŗŘȱ”ã——Ž—ȱ ’›ȱ ž—Ž›‹Š›ȱŸŽ›˜•Ž—ǰȱ Š——ȱœ’Œ‘ȱ Ž•Œ‘Ž›ȱ ’–Ž›ȱ–Ž•ŽDZȱ§‘›Ž—ȱŽ›ȱŽ•Ž›ȱŽ›ȱ˜‹Ž›œŽ—ȱ ScrollBar1ȱ—ŠŒ‘ȱ“ŽŽ›ȱŽ”ž—Žȱ  Ž’Ž››ûŒ”ȱž—ȱ’—ȱŽ—ȱ‹Ž›ŠŒ‘ŽŽ—ȱœ’Ž‹Ž—ȱŽ”ž—Ž—ȱœ’Ž‹Ž—–Š•ȱ—ŠŒ‘ȱ›ŽŒ‘œȱŽȬ  Š—Ž›ȱ’œǰȱ‘ŠȱŽœȱŽ›ȱŽ•Ž›ȱŽ›ȱž—Ž›œŽ—ȱScrollBar3ȱŠžȱŽ›ŠŽȱŽ’—ŽȱŽ›§—ŽȬ ›ž—ȱŽ‹›ŠŒ‘DzȱŽ›ȱ û›Žȱœ’Œ‘ȱŽ›œȱ‹Ž’ȱŽ”ž—ŽȱŠŒ‘ȱ£ž–ȱ£ Ž’Ž—ȱŠ•ȱ‹Ž ŽŽ—ǯȱ

ŗŗŜȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

ȱ

ȱ ’•ȱŜǯşDZȱŠ›ȱž—ȱ’žŠ’˜—ȱ—ŠŒ‘ȱŽ’—Ž›ȱŽ”ž—Žȱ

ȱ ’•ȱŜǯŗŖDZȱŠŒ‘ȱ£ Ž’ȱž—ȱ›Ž’ȱŽ”ž—Ž—ȱ

ȱ ’•ȱŜǯŗŗDZȱŠŒ‘ȱŸ’Ž›ȱž—ȱû—ȱŽ”ž—Ž—ȱ

ȱ ’•ȱŜǯŗŘDZȱŠŒ‘ȱœŽŒ‘œȱž—ȱœ’Ž‹Ž—ȱŽ”ž—Ž—ȱ

ȱ

6.3

Arbeit mit Timern

6.3.1

Start und Selbst-Stopp ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 6ȱȱ’ŽȱzipȬŠŽ’ȱ DKap06.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap06 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_631.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap06 ȱ’ŽȱŠŽ’ȱproj_631.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

’ȱŽ’——ȱŽ›ȱŠž£Ž’ȱœ˜••ȱŽ›œȱŽ’—–Š•ȱû—ȱŽ”ž—Ž—ȱ•Š—ȱû‹Ž›‘Šž™ȱ—’Œ‘œȱ™ŠœȬ œ’Ž›Ž—ǯȱŠ——ȱœ˜••ȱŽ—ŠžȱŽ’—–Š•ȱŠœȱ’–Ž›Ȭ›Ž’—’œȱœŠ’—Ž—ǰȱ‹Ž’ȱŽ–ȱŽ’—ȱŽ•Ž›ȱ Ž’—Ž›ȱŒ›˜••‹Š›ȱ£Ž‘—ȱ’—‘Ž’Ž—ȱ—ŠŒ‘ȱ›ŽŒ‘œȱœ™›’—ǰȱŠ—œŒ‘•’ŽđŽ—ȱ—’Žȱ ’ŽŽ›ǯȱȱ

Ŝǯřȱȱ›‹Ž’ȱ–’ȱ’–Ž›—ȱ

ŗŗŝ

㜞—DZȱ ’›ȱ ‹Ž›ŠŒ‘Ž—ȱ £ž›ȱ Ž–˜—œ›Š’˜—ȱ ’Žœ–Š•ȱ —ž›ȱ Ž’—Ž—ȱ ’–Ž›ȱ ž—ȱ Ž’—Žȱ Œ›˜••‹Š›ǯȱ–ȱ‹“Ž”’—œ™Ž”˜›ȱ ’›ȱŽ›ȱ’–Ž›ȱŠžȱŠ”’Ÿȱž—ȱŠžȱŽ’—ȱ—Ž›ŸŠ••ȱŸ˜—ȱ śŖŖŖȱ–œȱŸ˜›‹Ž›Ž’Žȱǻ’•ȱŜǯŗřǼǯȱ ȱ ’•ȱŜǯŗřDZȱŽœ•Žž—Ž—ȱû›ȱŽ—ȱŽ’——ȱŽ›ȱŠž£Ž’ȱȱ ’Žȱ›Ž’—’œ™›˜£Žž›ȱ‹ŽœŒ‘›Ž’‹ȱŠ——ȱŽ—ȱŽœȱŽ›ȱ㜞—ȱŽ›ȱžŠ‹ŽDZȱ procedure TForm1.Timer1Timer(Sender: TObject); begin ScrollBar1.Position:=ScrollBar1.Position+10;

//Semikolon nötig

Timer1.Enabled:=False end;

’ȱŽ›ȱ™›˜™Ž›¢ȱEnabledȱ”Š——ȱŠžœȱ“ŽŽ›ȱ›Ž’—’œ™›˜£Žž›ȱŠžȱŽ—ȱŠŽ—”Ž›—ȱŽœȱ ‹“Ž”œȱ Timer1ȱ £žŽ›’Ž—ȱ  Ž›Ž—ǯȱ Šœȱ  ž›Žȱ ‘’Ž›ȱ Ž—ž£Dzȱ Ž›ȱ ’–Ž›ȱ œŒ‘Š•Žȱ œ’Œ‘ȱœŽ•‹Ž›ȱŠžœǯȱ˜ȱŽ’—ŠŒ‘ȱ’œȱŠœǯȱ ȱ

6.3.2

Halt und Weitermachen ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 6ȱȱ’ŽȱzipȬŠŽ’ȱ DKap06.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap06 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_632.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap06 ȱ’ŽȱŠŽ’ȱproj_632.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ žŠ‹ŽDZȱžœ§£•’Œ‘ȱ£žȱ’–Ž›ȱž—ȱŒ›˜••‹Š›ȱœ˜••ȱœ’Œ‘ȱ—˜Œ‘ȱŽ’—ȱž˜—ȱ–’ȱŽ›ȱ—Ȭ Š—œ‹ŽœŒ‘›’ž—ȱ Halt ȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ ‹Ž’—Ž—ȱ ǻ’•ȱ ŜǯŗŚǼǯȱ Ž›ȱ ’–Ž›ǰȱ ‘’Ž›ȱ Šžȱ Ž’—Žȱ ‘Š•‹Žȱ Ž”ž—Žȱ Ž’—ŽœŽ••ǰȱ œ˜••ȱ  ’Žȱ ˜‹Ž—ȱ •Ž’•’Œ‘ȱ ’Žȱ ˜œ’’˜—ȱ ŸŽ›Ȭ œŒ‘’Ž‹Ž—ǰȱ Ž’Ž›ȱ—’Œ‘œǯȱȱ

ȱȱȱ ’•ȱŜǯŗŚDZȱ Š•‹œŽ”ž—Ž—Ȭ’–Ž›ǰȱŒ›˜••‹Š›ȱž—ȱž˜—ȱȱ Ž’–ȱŽ›œŽ—ȱ •’Œ”ȱŠžȱŽ—ȱž˜—ȱœ˜••ȱŽ›ȱ’–Ž›ȱŠžœŽœŒ‘Š•Žȱ Ž›Ž—ȱž—ȱ’ŽȱŽȬ œŒ‘›’ž—ȱŽœȱž˜—œȱœ˜••ȱ ŽŒ‘œŽ•—ȱ’—ȱȱWeiterȱǯȱȱ Ž’–ȱ —§Œ‘œŽ—ȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱ œ˜••ȱ Ž›ȱ ’–Ž›ȱ  ’ŽŽ›ȱ Ž’—ŽœŒ‘Š•Žȱ  Ž›Ȭ Ž—ǰȱ’ŽȱŽœŒ‘›’ž—ȱ ŽŒ‘œŽ•ȱ£žȱȱ!!!Haltȱȱž—ȱœ˜ȱ Ž’Ž›ȱǻ’•ȱŜǯŗśǼǯȱȱ

ŗŗŞȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

’›ȱ ˜••Ž—ȱŽ–ȱž£Ž›ȱŠ–’ȱ’Žȱ㐕’Œ‘”Ž’ȱŽ‹Ž—ǰȱŠœœȱŽ›ȱŽ—ȱ’–Ž›ȱ‹Ž•’Ž‹’ȱ Š—‘Š•Ž—ȱž—ȱœ™§Ž›ȱ ’ŽŽ›ȱ Ž’Ž›•ŠžŽ—ȱ•ŠœœŽ—ȱ”Š——ǯȱȱ

ȱȱȱ ’•ȱŜǯŗśDZȱŠ›ǰȱ˜™™ȱ–’ȱŽ›œŽ–ȱ •’Œ”ǰȱ Ž’Ž›ȱ–’ȱ£ Ž’Ž–ȱ •’Œ”ȱȱ Ž‘Ž—ȱ ’›ȱž—œȱ£žŽ›œȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ’–Ž›Ȭ›Ž’—’œȱŠ—DZȱ procedure TForm1.Timer1Timer(Sender: TObject); begin ScrollBar1.Position:=ScrollBar1.Position+10 end;

’Ž•ȱ ’—Ž›ŽœœŠ—Ž›ȱ ŠŽŽ—ȱ ’œȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ £ž–ȱ ›Ž’—’œȱ •’Œ”ȱ Šžȱ Ž—ȱ ž˜—ȱȮȱ’—ȱ’‘›ȱ ’›ȱ’Žȱ•Ž›—Š’ŸŽȱŠžœȱŽ–ȱǮŠŒ‘’œŒ‘•Š–™Ž—Ȭ›˜›Š––ȃȱŠžœȱ ‹œŒ‘—’ȱśǯŘǯŗȱ ’ŽŽ›‘˜•ȱž—ȱŠžœŽ‹Šžǯȱ t‹Ž›ȱ ’Žȱ ‹›ŠŽȱ Ž›ȱ ŽœŒ‘›’ž—ȱ Žœȱ ž˜—œȱ œŽ••ȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ Žœǰȱ  Ž•Œ‘Žȱ’žŠ’˜—ȱŽ›ŠŽȱŸ˜›•’ŽǯȱŽ‘ȱ’ŽȱŽœŒ‘›’ž—ȱŠžȱ Halt ȱǻŠ——ȱ•§žȱ Ž›ȱ’–Ž›Ǽǰȱ Ž›Ž—ȱ’ŽȱŽŽ‘•ŽȱŽœȱ ŠȬ Ž’ŽœȱŠžœŽû‘›DZȱ’ŽȱŽœŒ‘›’ž—ȱ ŽŒ‘Ȭ œŽ•ǰȱŽ›ȱ’–Ž›ȱ ’›ȱŠžœŽœŒ‘Š•Žǯȱȱ procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption='Halt' then begin

// JA-Zweig Button1.Caption:='Weiter'; Timer1.Enabled:=False

end else begin

// NEIN-Zweig Button1.Caption:='Halt'; Timer1.Enabled:=True

end end;

—Ž›—Š••œȱ  Ž›Ž—ȱ ’Žȱ ‹Ž’Ž—ȱ ŽŽ‘•Žȱ Žœȱ Ž’—Ȭ Ž’Žœȱ ŠžœŽû‘›DZȱ ’Žȱ ŽȬ œŒ‘›’ž—ȱ ŽŒ‘œŽ•ȱŽ›—ŽžǰȱŽ›ȱ’–Ž›ȱ ’›ȱ ’ŽŽ›ȱŠ—ŽœŒ‘Š•Žǯȱȱ ’Žȱžœ—Š‘–Ž›ŽŽ•ȱ”Š——ȱ‘’Ž›ȱ—’Œ‘ȱ’—ȱ—œ™›žŒ‘ȱŽ—˜––Ž—ȱ Ž›Ž—ǰȱŠȱœ˜ ˜‘•ȱ ’–ȱ ŠȬ Ž’ȱŠ•œȱŠžŒ‘ȱ’–ȱŽ’—Ȭ Ž’ȱ“Žȱ£ Ž’ȱŽŽ‘•ŽȱœŽ‘Ž—ǯȱȱ žȱ‹ŽŠŒ‘Ž—ȱœ’—ȱŽœ‘Š•‹ȱ’Žȱ‹Ž’Ž—ȱ›Ž——Ž—Ž—ȱŽ–’”˜•˜—œȱ£ ’œŒ‘Ž—ȱŽ—ȱ‹Ž’Ž—ȱ ŽŽ‘•Ž—ȱ’—ȱ ŠȬȱž—ȱŽ’—Ȭ Ž’ǯȱ

Ŝǯřȱȱ›‹Ž’ȱ–’ȱ’–Ž›—ȱ

ȱ

6.3.3

ŗŗş

Blinkende Schrift ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 6ȱȱ’ŽȱzipȬŠŽ’ȱ DKap06.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap06 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_633.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ  ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap06 ȱ’ŽȱŠŽ’ȱproj_633.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ žŠ‹ŽDZȱ ’—ȱ Š‹Ž•ȱ –’ȱ Ž›ȱ Š›‹ŽœŒ‘›’ž—ȱ Achtung!ȱ  ’›ȱ Šžȱ Ž–ȱ ˜›–ž•Š›ȱ ™•Š£’Ž›ǯȱ ’Žȱ Œ‘›’ȱ ”Š——ȱ œŒ‘ã—ȱ ›˜đȱ œŽ’—ǰȱ £ž–ȱ Ž’œ™’Ž•ȱ ŘŚ™ȱ ž—ȱ Žǯȱ ŠŒ‘ȱ £ Ž’ȱ Ž”ž—Ž—ȱ œ˜••ȱ ’Žȱ Œ‘›’ȱ û›ȱ Ž’—Žȱ Ž”ž—Žȱ ŸŽ›œŒ‘ ’—Ž—ǰȱ Š——ȱ  ’ŽŽ›ȱ £ Ž’ȱŽ”ž—Ž—ȱ£žȱ•ŽœŽ—ȱœŽ’—ǰȱŠ——ȱ ’ŽŽ›ȱû›ȱŽ’—ŽȱŽ”ž—ŽȱŸŽ›œŒ‘ ’—Ž—ǰȱž—ȱ œ˜ȱ Ž’Ž›ǯȱ’Žȱ’Žȱt‹Ž›œŒ‘›’ȱœŒ‘˜—ȱœŠȱȮȱŽœžŒ‘ȱ’œȱŽ’—Žȱ‹•’—”Ž—ŽȱŒ‘›’ǯȱȱ ȱȱȱ ’•ȱŜǯŗŜDZȱŠ‹Ž•ȱž—ȱ£ Ž’ȱ’–Ž›ȱ ’Žȱ”Š——ȱ–Š—ȱ’ŽœŽȱžŠ‹Žȱ•ãœŽ—ǵȱ’•ȱŜǯŗŜȱ£Ž’ȱŽ’—Ž—ȱ㜞—œŠ—œŠ£DZȱ’›ȱŠ›Ȭ ‹Ž’Ž—ȱ–’ȱ£ Ž’ȱ’–Ž›—ǰȱ’Žȱœ’Œ‘ȱŽŽ—œŽ’’ȱŽ’—Ȭȱž—ȱŠžœœŒ‘Š•Ž—ǯȱŽ›ȱŽ›œŽȱ’–Ž›ȱ’œȱ Š—Š—œȱŠ”’Ÿǰȱ”˜––ȱ—ŠŒ‘ȱŘŖŖŖȱ’••’œŽ”ž—Ž—ȱǻ’•ȱŜǯŗŝǼǯȱŽ›ȱ£ Ž’Žȱ’–Ž›ȱ’œȱ Š—Š—œȱ ŠžœŽœŒ‘Š•ŽDzȱ  Ž——ȱ Ž›ȱ Ž’—ŽœŒ‘Š•Žȱ ’œǰȱ –Ž•Žȱ Ž›ȱ œ’Œ‘ȱ —ŠŒ‘ȱ “Ž Ž’•œȱ ŗŖŖŖȱ’••’œŽ”ž—Ž—ǯȱȱ

ȱȱȱ ’•ȱŜǯŗŝDZȱ Ž’ȱ’–Ž›ȱ ’Žȱ‹Ž’Ž—ȱ›Ž’—’œ™›˜£Žž›Ž—ȱ•ŠœœŽ—ȱŠœȱ˜›Ž‘Ž—ȱŽ›”Ž——Ž—DZȱȱ procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=''; Timer1.Enabled:=False;

Timer2.Enabled:=True

end; procedure TForm1.Timer2Timer(Sender: TObject); begin Label1.Caption:='Achtung!'; Timer1.Enabled:=True; Timer2.Enabled:=False end;

ŗŘŖȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

ŠŒ‘ȱ Ž–ȱ Š›ȱ  Š›Žȱ Timer1ǰȱ Žœȱ ŸŽ›Ž‘Ž—ȱ £ Ž’ȱ Ž”ž—Ž—ǯȱ Š——ȱ ”˜––ȱ œŽ’—ȱ ’–Ž›Ȭ›Ž’—’œǰȱ Timer1ȱ •ãœŒ‘ȱ Ž—ȱ —‘Š•ȱ Žœȱ Š‹Ž•ǰȱ œŒ‘Š•Žȱ œ’Œ‘ȱ œŽ•‹Ž›ȱ Šžœǰȱ œŒ‘Š•ŽȱŠû›ȱTimer2ȱŠ—ǯȱȱ ž—ȱŸŽ›Ž‘ȱŽ’—ŽȱŽ”ž—Žǰȱ’—ȱŽ›ȱ’–ȱŠ‹Ž•ȱ—’Œ‘œȱœŽ‘ǰȱŠ——ȱ”˜––ȱŽ›ȱ Timer2ǯȱ ›ȱœŒ‘›Ž’‹ȱŽ›—Žžȱ’—œȱŠ‹Ž•ǰȱœŒ‘Š•Žȱœ’Œ‘ȱŠ——ȱœŽ•‹Ž›ȱŠžœǰȱœŒ‘Š•Žȱ Timer1ȱŽ’—ǯȱ Timer1ȱ Š›Žȱ ’ŽŽ›ȱœŽ’—Žȱ£ Ž’ȱŽ”ž—Ž—ǰȱŠ——ȱ”˜––ȱœŽ’—ȱ›Ž’—’œȱž—ȱœ˜ȱ Ž’Ž›ǯȱȱ t‹›’Ž—œȱ Ȯȱ œ˜ȱ Ž’—ȱ Š‹Ž•ȱ ‘Šȱ Ž’—Žȱ ‹Žœ˜—Ž›Žȱ ’Ž—œŒ‘ŠDZȱ œȱ ™Šœœȱ œ’Œ‘ȱ ’—ȱ œŽ’—Ž›ȱ ›ãđŽȱŽ–ȱ—‘Š•ȱŠ—ǯȱŠœȱ‹ŽŽžŽȱ’—ȱž—œŽ›Ž–ȱŠ••ȱǻ’•ȱŜǯŗŞǼǰȱŠœœȱŠœȱŠ‹Ž•ȱ Ž¡›Ž–ȱ”•Ž’—ȱ ’›ǰȱ Ž——ȱ—’Œ‘œȱ›’—ȱœŽ‘ǯȱ˜••Ž—ȱ ’›ȱŠœǵȱ ȱȱȱ ’•ȱŜǯŗŞDZȱ’›”ž—ȱŸ˜—ȱAutosize=Trueȱ Ž——ȱ—’Œ‘ǰȱ–ûœœŽ—ȱ ’›ȱ’–ȱ‹“Ž”’—œ™Ž”˜›ȱŽœȱŠ‹Ž•œȱ’Žȱ’Ž—œŒ‘Šȱǻ™›˜™Ž›¢Ǽȱ AutoSizeȱŠžȱFalseȱœŽ£Ž—ȱȮȱŠ——ȱ‹Ž‘§•ȱŠœȱŠ‹Ž•ȱœŽ’—Žȱ˜›–ǰȱŠžŒ‘ȱ Ž——ȱŽ›ȱ—Ȭ ‘Š•ȱœ’Œ‘ȱ§—Ž›ǯȱȱ

6.4

Permanente Prüfung im Hintergrund ŽŒ‘œŽ•—ȱ  ’›ȱ ˜Œ‘ȱ œŒ‘—Ž••ȱ Ž’—–Š•ȱ £žȱ ž—œŽ›Ž–ȱ žŽ—ȱ Š•Ž—ȱ Ž¡ŸŽ›Š›‹Ž’ž—œȬ ™›˜›Š––ȱ ȱ ž—ȱ œŠŽ—ȱ  ǯȱ Œ‘˜—ȱ Ž›œŒ‘Ž’—ȱ Šœȱ Ž—œ™›ŽȬ Œ‘Ž—Žȱ ’Š•˜Ž—œŽ›ǰȱ ž—ȱ •’—”œȱ ž—Ž—ȱ  Ž›Ž—ȱ  ’›ȱ Ž›Šǰȱ  Šœȱ  ’›ȱ Ž——ȱ œ˜ȱ ›žŒ”Ž—ȱ  ˜••Ž—ȱ ǻ’•ȱ ŜǯŗşǼǯȱ Š—Š›–§đ’ȱ ’œȱ ••Žœȱ Ÿ˜›Ž’—ŽœŽ••ǯȱ ›’ȱ ŠžŒ‘ȱ –Ž’œȱ£žǯȱȱ

ȱȱȱ ’•ȱŜǯŗşDZȱȬ’Š•˜Ž—œŽ›ȱ£ž–ȱŽ’Ž—‹Ž›Ž’Œ‘ȱ‹Ž’–ȱ›žŒ”Ž—ȱ Š—Œ‘–Š•ȱ Š••Ž›’—œȱ –㌑Žȱ –Š—ȱ —ž›ȱ Ž’—Žȱ ‹Žœ’––Žȱ Ž’Žȱ Šžœȱ Ž–ȱ ›žŒ”Ž›ȱ ”˜––Ž—ȱ•ŠœœŽ—ǯȱ˜••’Œ‘ȱ ŽŒ‘œŽ•ȱ–Š—ȱ’—ȱŠœȱŽ¡Ž—œŽ›ȱ—Ž‹Ž—ȱŽ–ȱŠ’˜‹žȬ ˜—ȱ–’ȱŽ›ȱŽœŒ‘›’ž—ȱ Seiten ȱž—ȱ›§ȱ’ŽȱŽ û—œŒ‘Ž—ȱŽ’Ž—£Š‘•Ž—ȱŽ’—ǯȱȱ Šœȱ™Šœœ’Ž›ȱŠ‹Ž›ȱ•Ž’Œ‘£Ž’’ǰȱ ’Žȱž›Œ‘ȱŽ’—ȱž—Ž›ǵȱžŒ‘ȱ Ž——ȱ ’›ȱŠ•œȱžȬ £Ž›ȱŽ—ȱŠ’˜‹ž˜—ȱ–’ȱ’ŽœŽ›ȱŽœŒ‘›’ž—ȱû‹Ž›‘Šž™ȱ—’Œ‘ȱ‹Ž’Ž—ȱ‘Š‹Ž—ȱȮȱŽ›ȱ Ž›‘§•ǰȱŸã••’ȱ˜‘—Žȱž—œŽ›ȱžž—ǰȱŠž˜–Š’œŒ‘ǰȱ™•ã£•’Œ‘ȱ’Žȱ—ž—ȱ£ž›ŽŽ—ŽȱŠ›Ȭ ”’Ž›ž—ȱǻ’•ȱŜǯŘŖǼǯȱȱ

ŜǯŚȱȱŽ›–Š—Ž—Žȱ›ûž—ȱ’–ȱ ’—Ž››ž—ȱ

ŗŘŗ

ȱȱ

ȱ ’•ȱŜǯŘŖDZȱ’—Ž›ŠŽ—ŽȱŽ’Ž—£Š‘•Ž—ȱ Ž›ȱŠ‹Ž›ȱŠȱŠœǵȱ Ž£ȱ ’œœŽ—ȱ ’›ȱŽœȱž—ȱ”ã——Ž—ȱŽœȱœŽ•‹œȱ™›˜›Š––’Ž›Ž—DZȱ–ȱ

’—Ž››ž—ȱ”ã——Žȱ£ž–ȱŽ’œ™’Ž•ȱŽ’—ȱ’–Ž›ȱ•ŠžŽ—ǰȱŽ›ȱœ˜ȱ˜ȱ ’Žȱ–㐕’Œ‘ȱŠœȱ Ž¡Ž—œŽ›ȱŽœŽǯȱ’›ȱŠ‹Ž’ȱ™•ã£•’Œ‘ȱŽ’—ȱ—‘Š•ȱŽœŽœŽ••ȱ ’›ȱŽ‹Ž—ȱŽ›ȱ™ŠœȬ œŽ—ŽȱŠ’˜‹ž˜—ȱ£žŽœŒ‘Š•Žǯȱȱ ȱ

›ûŽ—ȱ ’›ȱ”˜—œ›ž”’Ÿȱ—ŠŒ‘ǰȱ˜‹ȱž—œŽ›ŽȱŽ›–žž—ȱœ’––ǯȱ•Š£’Ž›Ž—ȱ ’›ȱ£žŽ›œȱ ŠžȱŽ–ȱ˜›–ž•Š›ȱŽ’—ŽȱŽ—œ™›ŽŒ‘Ž—ŽȱŠ’˜›ž™™Žȱ–’ȱŽ¡Ž—œŽ›ȱž—ȱ’–Ž›ǯȱ ȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱȱŽ›ȱ Šœȱ ˜•Ž—Žȱ Ž•™‘’Ȭ›˜“Ž”ȱ —’Œ‘ȱ œŽ•‹œȱ Ž— ’Œ”Ž•—ȱ –㌑Žǰȱ ”Š——ȱŸ˜—ȱhttp://www.w-g-m.de/delphi.htmȱû‹Ž›ȱȱDateien für Kapitel 6ȱȱ’ŽȱzipȬŠŽ’ȱ DKap06.zipȱ–’ȱ£ Ž’ȱ›—Ž›—ȱ‘Ž›ž—Ž›•ŠŽ—ǯȱ’›ȱ–’ȱž›‹˜ȱŽ•™‘’ȱȦȱŽ•™‘’ȱŝȱȦȱŽ•™‘’ȱ ŘŖŖşȱȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱ  ȱ[ȱ’–ȱ›—Ž›ȱ D7Kap06 ȱ’Žȱ›˜“Ž”ȬŠŽ’ȱ proj_64.dprȱŠžœ£ž §‘•Ž—ǯȱ’›ȱ–’ȱŽ•™‘’ȱŞȦŘŖŖśȱŽŠ›‹Ž’Žǰȱ’œȱ—ŠŒ‘ȱȱ   ȱ [ȱ’–ȱ›—Ž›ȱ

D8Kap06 ȱ’ŽȱŠŽ’ȱproj_64.bdsprojȱŠžœ£ž §‘•Ž—ǯȱȱ

ȱ —ȱ’‘›ȱœ˜›Ž—ȱ ’›ȱû‹Ž›ȱ’Žȱ’Ž—œŒ‘Šȱ Itemsȱ–’ȱŽ–ȱ›’—•’œŽ—Ȭ’˜›ȱû›ȱŽ—ȱ Š—§—•’Œ‘Ž—ȱ—‘Š•ǯȱ Šœȱ Ž’Œ‘Ž—ȱ &ȱ ”Ž——£Ž’Œ‘—Žȱ Š‹Ž’ȱ Ž—ȱ Œ‘—Ž•• Š‘•‹žŒ‘œŠȬ ‹Ž—ȱǻœ’Ž‘Žȱ‹œŒ‘—’ȱřǯŚǼǯȱ

ȱȱȱ ’•ȱŜǯŘŗDZȱŠ’˜›˜ž™ȱž—ȱ›’—•’œŽ—Ȭ’˜›ǰȱŠ›–Š›”’Ž›ž—ȱ Ž›ȱ ItemIndexȱŽ›ȱŠ’˜›ž™™Žȱ–’ȱŽ–ȱŠ–Ž—ȱ RadioGroup1ȱ ’›ȱŠžȱž••ȱŽȬ œŽ£ȱȮȱ’ŽȱŠ›”’Ž›ž—ȱœ˜••ȱŠ—Š—œȱ—Šû›•’Œ‘ȱŠžȱŽ›ȱŽ›œŽ—ȱŽ’•ŽǰȱŠžȱ••ŽœȱœŽȬ ‘Ž—ǯȱȱ Šœȱ ’–Ž›Ȭ¢–‹˜•ȱ  ’›ȱ ’›Ž— ˜‘’—ȱ Šžȱ Šœȱ ˜›–ž•Š›ȱ Ž£˜Ž—Dzȱ Ž›ȱ ’–Ž›ȱ  ’›ȱ Šžȱ Ž’—Žȱ ‘˜‘Žȱ ›ŽšžŽ—£ȱ ǻ£ǯǯȱ śśȱ –œǼȱ Ž’—ŽœŽ••ǰȱ ž—ȱ —Šû›•’Œ‘ȱ œ˜••ȱ Ž›ȱ Ÿ˜–ȱ Š›ȱ ŽȱŠ›‹Ž’Ž—ȱǻ’•ȱŜǯŘŘǼǯȱ

ŗŘŘȱ

Ŝȱȱ’–Ž›ȱž—ȱ’–Ž›Ȭ›Ž’—’œœŽȱ

ž—ȱ‹›ŠžŒ‘Ž—ȱ ’›ȱ—ž›ȱ—˜Œ‘ȱŽ’—ŽȱŽ’—£’Žȱ›Ž’—’œ™›˜£Žž›ȱ–’ȱ—‘Š•ȱ£žȱŸŽ›œŽȬ ‘Ž—ǰȱ—§–•’Œ‘ȱ’Žȱ›Ž’—’œ™›˜£Žž›ȱ£ž–ȱ’–Ž›Ȭ›Ž’—’œDZȱȱ procedure TForm1.Timer1Timer(Sender: TObject); begin if Edit1.Text'' then RadioGroup1.ItemIndex:=2 end;

ȱȱ ’•ȱŜǯŘŘDZȱŠ›Ž’—œŽ••ž—ȱû›ȱŽ—ȱ’–Ž›ȱ ˜ȱŽ’—ŠŒ‘ȱ’œȱŠœDZȱŽ——ȱŽ›ȱ’–Ž›ȱ’—ȱœŽ’—Ž›ȱŠ—ŠžŽ›—Ž—ȱ›û§’”Ž’ǰȱž—ŽȬ §‘›ȱŠŒ‘£Ž‘—ȱŠ•ȱ™›˜ȱŽ”ž—Žǰȱ™•ã£•’Œ‘ȱŽ’—Žȱ—’Œ‘•ŽŽ›ŽȱŽ¡‹˜¡ȱ‹Ž–Ž›”ǰȱœŒ‘Š•Ȭ ŽȱŽ›ȱŽ‹Ž—ȱ’—ȱŽ›ȱŠ’˜›ž™™ŽȱŠžȱŽ—ȱ›’Ž—ȱŠ’˜‹ž˜—ȱž–ǯȱȱ ••Ž›’—œȱ‘Š‹Ž—ȱ ’›ȱ—ž›ȱ’Žȱ §•Žȱ™›˜›Š––’Ž›ǯȱŠœȱ ’›ǰȱ Ž——ȱŽ›ȱž£Ž›ȱ œ’Œ‘ȱ ™•ã£•’Œ‘ȱ Š—Ž›œȱ ‹Žœ’——ȱ ž—ȱ ’Žȱ Ž’Ž—£Š‘•ȱ  ’ŽŽ›ȱ •ãœŒ‘ǵȱ Šœȱ –ŠŒ‘ȱ ȱŠ——ǵȱȱœŒ‘Š•ŽȱŠ——ȱŠžȱAllesȱ£ž›ûŒ”ǯȱŠœȱ”ã——Ž—ȱ ’›ȱŠžŒ‘DZȱȱ procedure TForm1.Timer1Timer(Sender: TObject); begin if Edit1.Text'' then RadioGroup1.ItemIndex:=2 else RadioGroup1.ItemIndex:=0 end;

Šœȱ Ž‘Ž’–—’œȱ’œȱŽ•ûŽDZȱȱ  Œ‘Ž’—‹Š›ȱ Šž˜–Š’œŒ‘Žœȱ žȬȱ ˜Ž›ȱ ‹œŒ‘Š•Ž—ȱ Ÿ˜—ȱ Ž’Ž—Ž•Ž–Ž—Ž—ȱ ’—ȱ ˜›ȱ ˜Ž›ȱ¡ŒŽ•ȱ˜Ž›ȱ˜ Ž›˜’—ȱ˜Ž›ȱ“ŽŽ›ȱŠ—Ž›Ž—ȱ’—˜ œȬ— Ž—ž—ȱ”Š——ȱ £ǯȱǯȱŠžȱ—’Œ‘œȱŠ—Ž›Ž–ȱŠ•œȱŠžȱ–’•ŠžŽ—Ž—ȱ›ûȬ’–Ž›—ȱ‹Šœ’Ž›Ž—ǰȱ’Žȱ’—ȱŽȬ ”ž—Ž—‹›žŒ‘Ž’•Ž—ȱ ’Žȱ ’žŠ’˜—ȱ Š—ȱ Ž—ȱ œ’Œ‘‹Š›Ž—ȱ Ž’•Ž—ȱ Š••Ž›ȱ ’—Ž›Žœœ’ŽȬ ›Ž—Ž—ȱŸ’œžŽ••Ž—ȱ‹“Ž”Žȱ‹Ž˜‹ŠŒ‘Ž—ȱž—ȱœ˜˜›ȱ™ŠœœŽ—ȱ›ŽŠ’Ž›Ž—ǯȱ

6.5

Rot-Gelb-Grün: Die Ampel an der Kreuzung

6.5.1

Ganze Zahlen in wiederholter Folge Š—Ž—ȱ  ’›ȱ ”•Ž’—ȱ Š—DZȱ ’—ȱ ’–Ž›ȱ ž—ȱ Ž’—Žȱ Œ›˜••‹Š›ȱ  Ž›Ž—ȱŠžȱ Ž’—Ž–ȱ ˜›–ž•Š›ȱ ™•Š£’Ž›ǯȱŽ›ȱ’–Ž›ȱ–’ȱŽ–ȱŠ–Ž—ȱ Timer1ȱœ˜••ȱœ˜˜›ȱŠ”’ŸȱœŽ’—ǰȱ’Žȱ›ŽšžŽ—£ȱ œ˜••ȱŽ’—ŽȱŽ”ž—Žȱ‹Ž›ŠŽ—ȱǻ’•ȱŜǯŘřǼǯȱ’ŽȱŒ›˜••‹Š›ȱ–’ȱŽ–ȱŠ–Ž—ȱ ScrollBar1ȱ  ’›ȱŸ˜›Ž’—ŽœŽ••ȱ–’ȱ’—’–ž–ȱŗǰȱŠ¡’–ž–ȱŚǰȱ˜œ’’˜—ȱŗǯȱȱ

Ŝǯśȱȱ˜Ȭ Ž•‹Ȭ ›û—DZȱ’Žȱ–™Ž•ȱŠ—ȱŽ›ȱ ›Žž£ž—ȱ

ŗŘř

Ž——ȱŠœȱ’–Ž›Ȭ›Ž’—’œȱŽ’—›’ȱœ˜••ȱœ’Œ‘ȱ’Žȱ˜œ’’˜—ȱŽœȱŽ•Ž›œȱž–ȱŽ’—Žȱ’—‘Ž’ȱ —ŠŒ‘ȱ ›ŽŒ‘œȱ ŸŽ›œŒ‘’Ž‹Ž—ǯȱ ˜••Žȱ ’Žȱ˜œ’’˜—ȱ “Ž˜Œ‘ȱŠžȱ Ž—ȱ Ž›ȱŚȱ”˜––Ž—ǰȱ ’œȱ œ’Žȱ  ’ŽŽ›ȱ £ž›ûŒ”ȱ Šžȱ ŗȱ £žȱ œŽ£Ž—ǯȱ Šœȱ ‘Ž’đǰȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱ œ˜••ȱ Šû›ȱ œ˜›Ž—ǰȱ Šœœȱ Ž›ȱ Ž•Ž›ȱ Ž›ȱ Œ›˜••‹Š›ȱ ™ŠžœŽ—•˜œȱ ’Žȱ Š‘•Ž—˜•Žȱ ŗŘřŚȱ ŗŘřŚŗŘǯǯǯȱž›Œ‘•§žǯȱȱ

ȱȱȱ ’•ȱŜǯŘřDZȱŠ›Ž’—œŽ••ž—Ž—ȱ Ž›ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ–žœœȱ˜Ž—œ’Œ‘•’Œ‘ȱ–’ȱ ’•ŽȱŸ˜—ȱŽœœȱ˜Ž›ȱŽ’—Ž›ȱ •Ž›—Š’ŸŽȱŠû›ȱœ˜›Ž—ǰȱŠœœȱŽ›ȱŽ•Ž›ȱ—’Œ‘ȱ›ŽŒ‘œȱ‘Ž›Šžœ Š—Ž›DZȱ procedure TForm1.Timer1Timer(Sender: TObject); begin if Scrollbar1.Position < 4 then Scrollbar1.Position:=Scrollbar1.Position+1 else Scrollbar1.Position:=1 end;

Ž›œžŒ‘Ž—ȱ ’›ǰȱ’ŽœŽ•‹Žȱ’›”ž—ȱ–’ȱ£ Ž’ȱŽ’—ŠŒ‘Ž—ȱŽœœȱ£žȱŽ›£’Ž•Ž—DZȱ procedure TForm1.Timer1Timer(Sender: TObject); begin if Scrollbar1.Position vergleich then anzahl:=anzahl+1; ShowMessage('Es sind '+IntToStr(anzahl)+' Länder') end;

şǯŗȱȱ‹£§‘•Ž—ȱ’—ȱ’œŽ—ȱ

ŗşř

•œȱ Ž›œŽœȱ  ’›ȱ Ž›ȱ §‘• Ž›”œœ™Ž’Œ‘Ž›™•Š£ȱ anzahlȱ ŸŽ›Ž’—‹Š›Dzȱ –’ȱ Ž’—Ž–ȱ ›ã𝎗ȱ Ž›ȱŸ˜—ȱ‘㌑œŽ—œȱŗŜȱ›Ž’Œ‘ȱŽ›ȱ¢™ȱ ByteȱŸã••’ȱŠžœǯȱŠ——ȱ‹›ŠžŒ‘Ž—ȱ ’›ȱŠ‹Ž›ȱ —˜Œ‘ȱŽ’—Ž—ȱ™Ž’Œ‘Ž›™•Š£ǰȱ’—ȱŽ–ȱ ’›ȱŽ—ȱŠ‘•Ž— Ž›ȱŠžœȱŽ›ȱ“Ž Ž’•’Ž—ȱŽ’•Žȱ Š‹•ŽŽ—ȱ–ûœœŽ—ǯȱ˜›ȱ›ŽŽ—ȱ’••’˜—Ž—ȱŠžȱȮȱ˜••’Œ‘ȱ¢™ȱIntegerǯȱȱ Šœȱ§‘• Ž›”ȱ ’›ȱŠžȱž••ȱŽœŽ£ǯȱŠ——ȱ‹Ž’——ȱ’Žȱ—Ž›œžŒ‘ž—ǯȱŽ›ȱǻŽ¡ǼȬ —‘Š•ȱŽ›ȱŽ›œŽ—ȱŽ’•Žȱ ’›ȱ–’ȱ ’•ŽȱŽ›ȱž—”’˜—ȱ StrToIntȱ£žȱŽ’—Ž–ȱŠ‘•Ž—Ȭ  Ž›ȱ Ž–ŠŒ‘ȱ ž—ȱ ’—ȱ Ž—ȱ ™Ž’Œ‘Ž›™•Š£ȱ wertȱ Ž‹›ŠŒ‘ǯȱ ˜––ȱ ˜›ȱ Ž’—Žȱ Š‘•ȱ ›ãđŽ›ȱ Š•œȱ śȱ ’••’˜—Ž—ȱ Š—ǰȱ  ’›ȱ –’Ž•œȱ Žœȱ ŽŽ‘•œȱ anzahl:=anzahl+1ȱ Šœȱ §‘•Ȭ  Ž›”ȱŽœŒ‘Š•Žǯȱ˜ȱŽ‘ȱŽœȱ Ž’Ž›ǯȱȱ û›ȱŽ—ȱŽ—”Ž—Ž—ȱŽ—œŒ‘Ž—ȱ’œȱŠ••Žœȱ”•Š›ǰȱž—ȱŽ›ȱ”Š——ȱ’Žȱ ›Ž’ȱž—”Žȱ™›˜‹Ȭ •Ž–•˜œȱ ’—Ž›™›Ž’Ž›Ž—DZȱ ž—ȱ œ˜ȱ  Ž’Ž›ȱ ǯǯǯȱ ‹’œǯȱ Ž›ȱ ˜–™žŽ›ȱ ”Š——ȱ Šœȱ —’Œ‘ǯȱ ›ȱ ”Š——ȱ —’Œ‘ȱŽ—”Ž—ǷȱŒ‘ŠŽǯȱȱ ˜ǰȱ ’ŽȱŽ›ȱ‹’œȱ“Ž£ȱŠœŽ‘ǰȱ’œȱŽ›ȱ—‘Š•ȱŽ›ȱ›Ž’—’œ™›˜£Žž›ȱ—’Œ‘ȱŸŽ›Š›‹Ž’Ȭ ‹Š›ǯȱ ûœœŽ—ȱ  ’›ȱ Š••Žȱ œŽŒ‘£Ž‘—ȱ Žœœȱ Ž’—£Ž•—ȱ ‘’—œŒ‘›Ž’‹Ž—!!ǵȱ Šœȱ ”Š——ȱ —’Œ‘ȱ œŽ’—ǰȱ Ž——ȱ‹Ž’ȱŠžœŽ—ȱŽ’•Ž—ȱ‘§Ž—ȱ ’›ȱŠ——ȱŠžœŽ—ȱŽœœȱ£žȱ™›˜›Š––’Ž›Ž—ǯȱȱ ’Žȱ㜞—ȱ‘Ž’đȱ§‘•œŒ‘•Ž’Žǯȱȱ Ž›—Ž—ȱ ’›ȱ’ŽȱœŽŒ‘œȱŒ‘›’ŽȱŠžȱŽ–ȱŽȱ£ž›ȱ§‘•œŒ‘•Ž’Žȱ”Ž——Ž—ǯȱȱ  Œ‘›’ȱ ŗDZȱ Ž›ȱ ŽŽ‘•ȱ ˜Ž›ȱ ’Žȱ ŽŽ‘•œ˜•Žǰȱ ’Žȱ œ’Œ‘ȱ  ’ŽŽ›‘˜•ǰȱ ’œȱ ’—ȱ beginȱ ž—ȱendȱŽ’—£žœŒ‘•’ŽđŽ—DZȱȱ begin wert:=StrToInt(ListBox5.Items[0]); if wert>vergleich then anzahl:=anzahl+1 end

 Œ‘›’ȱ ŘDZȱ Ž›“Ž—’Žȱ Š‘•Ž— Ž›ǰȱ Ž›ȱ œ’Œ‘ȱ Ÿ˜—ȱ Š•ȱ £žȱ Š•ȱ §—Ž›ǰȱ ’œȱ ž›Œ‘ȱ Ž—ȱ Š–Ž—ȱ Ž’—Žœȱ ™Ž’Œ‘Ž›™•Š£Žœȱ £žȱ Ž›œŽ£Ž—ǰȱ û‹•’Œ‘ȱ ’œȱ ‘’Ž›ȱ iǯȱ ȱ iȱ ‘Ž’đȱ Š——ȱ ŠžŸŠ›’Š‹•ŽDZȱȱ begin wert:=StrToInt(ListBox5.Items[i]); if wert>vergleich then anzahl:=anzahl+1 end

 Œ‘›’ȱřDZȱŠ›û‹Ž›ȱ ’›ȱŽ’—Žȱfor...to...doȬŽ’•ŽȱŽœŒ‘›’Ž‹Ž—DZȱȱ for i:=... to ... do begin wert:=StrToInt(ListBox5.Items[i]); if wert>vergleich then anzahl:=anzahl+1 end

ŗşŚȱ

şȱȱ§‘•œŒ‘•Ž’Ž—ȱ

 Œ‘›’ȱŚDZȱŽ›ȱŠ› Ž›ȱû›ȱ’ŽȱŠžŸŠ›’Š‹•Žȱiȱ ’›ȱŽ’—Ž›ŠŽ—DZȱ for i:=0 to ... do begin wert:=StrToInt(ListBox5.Items[i]); if wert>vergleich then anzahl:=anzahl+1 end

 Œ‘›’ȱśDZȱŽ›ȱ— Ž›ȱû›ȱ’ŽȱŠžŸŠ›’Š‹•Žȱiȱ ’›ȱŽ’—Ž›ŠŽ—DZȱ for i:=0 to 15 do begin wert:=StrToInt(ListBox5.Items[i]); if wert>vergleich then anzahl:=anzahl+1 end

 Œ‘›’ȱŜDZȱ’ŽȱŠžŸŠ›’Š‹•Žȱ ’›ȱ™ŠœœŽ—ȱŸŽ›Ž’—‹Š›ǯȱŽ’ȱž—œȱ›Ž’Œ‘ȱByteǯȱ Ž£ȱ ’œȱ ’Žȱ ›Ž’—’œ™›˜£Žž›ȱŽ›’ǰȱ ‹Ž’ȱ •’Œ”ȱ ŠžȱŽ—ȱ ž˜—ȱ Ž›Š‘›Ž—ȱ  ’›ǰȱ Šœœȱ Ž›ŠŽȱû—ȱŽžœŒ‘Žȱž—Žœ•§—Ž›ȱ–Ž‘›ȱŠ•œȱśȱ’••’˜—Ž—ȱ’— ˜‘—Ž›ȱ‘Š‹Ž—ǯȱ procedure TForm1.Button1Click(Sender: TObject); var anzahl,i

: Byte;

//Vereinbarungen

wert, vergleich : Integer; begin

//Ausführungsteil

anzahl:=0;

//Zählwerk auf Null setzen

vergleich:=5000000;

//Vergleichswert zuweisen

for i:=0 to 15 do

//Zählschleife

begin wert:=StrToInt(ListBox5.Items[i]); if wert>vergleich then anzahl:=anzahl+1 end;

//Semikolon nötig, da noch ein Be-

fehl kommt ShowMessage('Es sind '+IntToStr(anzahl)+' Länder') end;

ž›ȱt‹ž—ȱœ˜••Žȱ’Žȱ›ŠŽȱ’ŽȱŸ’Ž•Žȱ§—Ž›ȱ‘Š‹Ž—ȱ Ž—’Ž›ȱŠ•œȱŗŖŖŖȱžŠ›ŠȬ ”’•˜–ŽŽ›ǵȱ–’ȱŽ—œ™›ŽŒ‘Ž—Ž›ȱ›Ž’—’œ™›˜£Žž›ȱ‹ŽŠ— ˜›Žȱ Ž›Ž—ǯȱ ™§Ž›ȱ ”Š——ȱ Ž’—ȱ Ž¡Ž—œŽ›ȱ Ž›§—£ȱ  Ž›Ž—ǰȱ ’—ȱ Šœȱ Ž›ȱ ž£Ž›ȱ œŽ’—Ž—ȱ Ž›ȱ Ž’—Ȭ ›§ȱǻŠ•œŒ‘ŽȱŠœŽ—ȱŠ‹Ž’ȱ ŽŠ—Ž—ǼDzȱŠ——ȱ”Š——ȱŽ›ȱ—‘Š•ȱŽœȱ™Ž’Œ‘Ž›™•Š£Žœȱ vergleichȱ–’ȱ ’•ŽȱŽ›ȱStrToIntȬž—”’˜—ȱŠžœȱŽ–ȱŽ¡Ž—œŽ›ȱŽ‘˜•ȱ Ž›Ž—ǯȱȱȱ ž£Ž—ȱ ’›ȱ˜Œ‘ȱ•Ž’Œ‘ȱŽ’—–Š•ȱ’Žȱ—ŽžȱŽ•Ž›—Žȱ§‘•œŒ‘•Ž’Žǰȱž–ȱ–’Ž•œȱŽ›ȱ›Ȭ Ž’—’œ™›˜£Žž›ȱ£ž–ȱǻŠ—Š›ȬǼ›Ž’—’œȱ›£Žžž—ȱŽœȱ˜›–ž•Š›œȱŠû›ȱ£žȱœ˜›Ȭ Ž—ǰȱŠœœȱ’ŽȱŽ¡Ž’—›§Žȱ’—ȱŽ—ȱ’œŽ—ȱŸ’Ž›ȱž—ȱû—ǰȱ’Žȱ ’›ȱŠ•œȱŠ‘•Ž—ȱœŽ‘Ž—ȱ –㌑Ž—ǰȱ›ŽŒ‘œ‹û—’ȱŠ—Ž˜›—Žȱ Ž›Ž—ǯȱȱ

şǯŗȱȱ‹£§‘•Ž—ȱ’—ȱ’œŽ—ȱ

ŗşś

’ŽȱŽ‘Ž—ȱ ’›ȱŸ˜›ǵȱ’›ȱ™›ûŽ—ȱ“Ž Ž’•œǰȱ’—ȱ Ž•Œ‘Ž–ȱŽ›Ž’Œ‘ȱœ’Œ‘ȱŽ›ȱŠ‘•Ž— Ž›ȱ Žœȱ’—›Šœȱ‹Ž’—Žǯȱ—œ™›ŽŒ‘Ž—ȱ Ž›Ž—ȱ•’—”œȱŠ—ȱ’ŽȱŽ’•ŽȱŽ’—ȱ˜Ž›ȱ£ Ž’ȱŽŽ›Ȭ £Ž’Œ‘Ž—ȱŠ—Ž”ŽŽDZȱȱ procedure TForm1.FormCreate(Sender: TObject); var i

: Byte;

//Vereinbarungen

wert: Integer; begin

//Ausführungsteil

for i:=0 to 15 do begin wert:=StrToInt(ListBox4.Items[i]);

//4. Liste

if wert=1000) and (wertmax then max:=wert

Ž›ȱ’—ȱŽ›ȱ•Ž£Ž—ȱŽ’•Žǵȱȱ wert:=StrToInt(ListBox5.Items[15]);if wert>max then max:=wert

’Ž‘Ž—ȱ ’›ȱ’•Š—£ȱŽ›”Ž——Ž—ȱ ’›ǰȱŠœœȱ’Žȱœ˜Ž‹Ž—ȱŠžŽœŒ‘›’Ž‹Ž—Ž—ȱŽ’•Ž—ȱœ’Œ‘ȱ ’—ȱŽ’—Ž›ȱ§‘•œŒ‘•Ž’Žȱ£žœŠ––Ž—ŠœœŽ—ȱ•ŠœœŽ—ǯȱȱ žœŠ––Ž—ŽŠœœȱŽ›’‹ȱœ’Œ‘ȱ˜•Ž—Žȱ›Ž’—’œ™›˜£Žž›DZȱ

şǯŘȱȱ’—’–Š¡ȬžŠ‹Ž—ȱ

ŗşŝ

procedure TForm1.Button1Click(Sender: TObject); var i

: Byte;

//Vereinbarungen

max, wert: Integer; begin

//Ausführungsteil

wert:=StrToInt(ListBox5.Items[0]); max:=wert;

//Kandidat

for i:=1 to 15 do

//Zählschleife

begin wert:=StrToInt(ListBox5.Items[i]); if wert>max then max:=wert; end;

//Ende der Zählschleife

ShowMessage('Das Maximum lautet:'+ IntToStr(max)); end;

ȱȱȱ ’•ȱşǯřDZȱŠ¡’–ž–ȬžŒ‘Žȱȱ ’—ŽȱŠ—£ȱ”•Ž’—Žȱ —Ž›ž—ȱ‹›ŠžŒ‘ȱ–Š—ȱ—ž›ǰȱž–ȱŽ—ȱ”•Ž’—œŽ—ȱŽ›ȱ£žȱ’—Ž—DZȱ if wert 3141235!|!56789123456789123456789

% ›Ž’ (ŽȬAŠ—’œœŽ         œ’Ž‹Ž— 9Ž!’–Š•Ȭ"’Ž›— E ǻ”ž›œ’Ÿ Ž›žŒ”Ǽ 7 ŸŽ›œŒ‘ ’—Ž >  £7 )      7   *    Šœ(ŽȬ— Ž‹˜û›’ŽAŠ—’œœŽ  %$%¢$

7

       

 3$   5*   E      7££@

12.1.3 Datentyp Double 8    E  7 7

  ŞȬ(ŽȬ™Ž’Œ‘Ž›Ȭ ™•§!Ž¢*Double > var genau_x, genau_y: Double;

C ) 6$2     ˜™™Ž• Ž—ŠžŽ— 5*$ *@£ *   > ’— (Ž —’–– Ž— ¡™˜—Ž—Ž— Šžǰ ˜• •’Œ‘ ŸŽ›‹•Ž’‹Ž— ’Žœ–Š• œ’Ž‹Ž— (Ž û› ’Ž AŠ—’œœŽǯ % Single      %¢  Double       %¢      **    @    

      

 ) 

 ‹Ž’ ŝȬ (ŽȬAŠ—’œœŽ— 3  5*   E  $ ŗ-‹’œŗ1 û•’ Ž9Ž!’–Š•!’Ž›—@

Ř 

Ř;ś

12.1.4 Datentyp Extended '  ŗ+Ȭ(ŽȬ™Ž’Œ‘Ž›™•§!Ž¢* Extended > var sehr_genau_x, sehr_genau_y: Extended;

 )   * £7 x_normal:=3.14159 G        B

 $ )  “5**£ £ 

  @  £ $ > var

x_normal

: Single;

x_genau

: Double;

x_sehr_genau: Extended; begin x_normal

:=314.123456789123456789123456789;

x_genau

:=314.123456789123456789123456789;

x_sehr_genau:=314.123456789123456789123456789 end;

  ”Ž’—ŽŽ‘•Ž›–Ž•ž— H      5 C$     C 5**@££ &        

12.3

Ausgabe             7     £   





 C  ?Ž¡Ž•Ž›— IŠ‹Ž•œ I’œŽ—       ŠžœœŽ‘Ž—  ’Ž "Š‘•Ž—”Ž’—Ž  5     ?Ž¡Ž "Ž’Œ‘Ž—Ȭ ˜• Ž—

Ř;Ŝ

Ř5**@£7£7

8     *$6“     ) http://www.w-g-m.de/delphi.htm7Dateien für Kapitel!!12 zip$ DKap12.zip£J   8  *K*K* ŘŖŖ   6“     Ř      6“  proj_1231.dpr £ proj_1231.bdsprojǼ

 M    

  —‘Š•ŽŸ˜—"Š‘•Ž—Ȭ™Ž’Œ‘Ž›™•§!Ž—     $    )H£ )   ShowMessage$ B      M   ǻ ˜—ŸŽ›’Ž›ž— Ǽ     ) C   B  IntToStr  C  %¢$    ££5**£    $       5  B*$6    B     ' SingleToStr   @   )

12.3.1 Prozedur Str  

6£   'Str@      Ȯ  ›˜!Žž›     Šž Ž›žŽ—    N     ’›”ž—  8  6£  £      ǻ£ % '  5**@£Ǽ ) 7

     6£      &7  6£ Str)£>   Š–Ž—Žœ"Š‘•Ž—œ™Ž’Œ‘Ž›™•Š!Žœ 

C   8 )   Š–Ž— Ž’—Žœ StringȬ™Ž’Œ‘Ž›™•Š!Žœ     $ £   ǻ     

   Ǽ  *       > % £@*££   %   %   ’‹’Ž—‘Š•Ž–’Ž•œ‘˜ AŽœœŠ ŽŠžœ5     *£ £ ǻ5  $Ǽ›Ž’ —’œ •’Œ”>

Ř 

Ř;

procedure TForm1.Button1Click(Sender: TObject); var x_normal: Single; x_genau:Double; x_sehr_genau: Extended; x_normal_str,x_genau_str,x_sehr_genau_str:String; begin x_normal

:=314.123456789123456789123456789;

x_genau

:=314.123456789123456789123456789;

//Belegung

x_sehr_genau:=314.123456789123456789123456789; Str(x_normal,x_normal_str);

//Konvertierung zum String

Str(x_genau,x_genau_str); Str(x_sehr_genau,x_sehr_genau_str); ShowMessage('Ausgabe von x_normal: '+x_normal_str);

//Ausgabe

ShowMessage('Ausgabe von x_genau: '+x_genau_str); ShowMessage('Ausgabe von x_sehr_genau: '+x_sehr_genau_str); end;

%  5**@£ x_normal x_genau   x_sehr_genau“  Ŗ *     B@  žȬ ›ž  6£  Str    )   ShowMessage$   *$  % Ř Ř£ 7   ** @



 ’•ŗ,ǯŗDZ—‘Š•ŽœSingleȬ™Ž’Œ‘Ž›™•Š!Žœ

 ’•ŗ,ǯ,DZ—‘Š•ŽœDoubleȬ™Ž’Œ‘Ž›™•Š!Žœ

 ’•ŗ,ǯřDZ—‘Š•ŽœExtendedȬ™Ž’Œ‘Ž›™•Š!Žœ

Ř;#

Ř5**@£7£7

@£    %     $ 7 % Ř 

  

 *  £   4 $ Ȯ E   *  OP5$5*$ *£5    

£  >   * ŽŒ‘—Ž›Š—Šœ’ŽQ C % ŘŘ  Ř  M  £  H$ £  7H   *  3  



 ’•ŗ,ǯŚDZžœ Š‹Ž’—IŠ‹Ž•œ 8 % Ř; £ @   7 *      C IŠ‹Ž•œ   J  £87 >  C  )   * ** @  5**£$      ‘Š•‹•˜ Š›’‘–’œŒ‘Ž— ˜›– £   £   B  “  :  M  )     

  OE P £   )  Ž••Ž—!Š‘•Ž›žœ Š‹Ž  :

12.3.2 Formatsteuerung in alten und neuen Delphi-Versionen '7   žœ Š‹Ž˜›–Š               77

  Str$6£  '  $5**£  £ @£>    ŽœŠ–!Š‘•Š••Ž›Šžœ!ž Ž‹Ž—Ž—"Ž’Œ‘Ž—ǻ 4  £ Ȯ£ 6  &Ǽ    "Š‘•Ž›—ŠŒ‘Ž–?›Ž——!Ž’Œ‘Ž— £   x_normal

:=314.123456789123456789123456789;

x_genau

:=314.123456789123456789123456789;

x_sehr_genau:=314.123456789123456789123456789;

Ř 

Ř;