AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Checkbox aktivieren bei bestimmten buchstaben in TEdit

Checkbox aktivieren bei bestimmten buchstaben in TEdit

Ein Thema von rhodan · begonnen am 25. Aug 2015 · letzter Beitrag vom 26. Aug 2015
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von rhodan
rhodan

Registriert seit: 4. Okt 2005
Ort: Hamburg
150 Beiträge
 
Delphi 7 Personal
 
#11

AW: Checkbox aktivieren bei bestimmten buchstaben in TEdit

  Alt 26. Aug 2015, 00:49
"Kaum macht man's richtig - schon funktioniert's"

bin überfordert - ich bleibe beim einzeiler..lach!
schöner code.
  Mit Zitat antworten Zitat
idefix2

Registriert seit: 17. Mär 2010
Ort: Wien
1.027 Beiträge
 
RAD-Studio 2009 Pro
 
#12

AW: Checkbox aktivieren bei bestimmten buchstaben in TEdit

  Alt 26. Aug 2015, 01:22
Das ganze erscheint mir wirklich unnötig aufwändig.
Eine Stringlist, die zu jedem String als Objekt die zugehörige Checkbox hat.

Delphi-Quellcode:
type
  TForm1 = class( TForm )
    Edit1 : TEdit;
    procedure Edit1Change( Sender: TObject );
  private
    MyStrings : TStringlist;
  end;

....

Procedure TForm1.Formcreate;
var ch: char;
begin
...
MyStrings:=TStringlist.Create;

MyStrings.AddObject('a', checkbox1);
MyStrings.AddObject('b', checkbox2);

// oder für jeden Buchstaben eine Checkbox:
for ch:='ato 'z'
    Mystrings.AddObject(ch, findcomponent('checkbox'+inttostr(ord(ch)-ord('a')+1))
end;

procedure TForm1.Edit1Change( Sender: TObject );
var i: integer;
begin
for i:=0 to MyStrings.count-1 do
    TCheckbox(MyStrings.objects[i]).checked := pos(MyStrings[i],edit1.text)>0
end;
Nebenbei: Wenn du wirklich für jeden Buchstaben eine Checkbox brauchen solltest, dann würde ich die überhaupt erst zur Laufzeit im Formcreate anlegen und bei der Gelegenheit gleich in die Stringlist hängen.

@Sir Rufo
Dein Code ist ein schönes Beispiel für das Hantieren mit Interfaces, und im Gegensatz zur StringList braucht man am Ende nichts freigeben. In diesem konkreten Fall wären es aber für eine einfache Aufgabe reichlich komplizierte Konstrukte, die das Programm nicht unbedingt lesbar machen. Wenn sich dann jemand in den Code einlesen soll, der ihn nicht geschrieben hat, braucht der sicher eine hübsche Weile, um draufzukommen, was wo wie bewerkstelligt wird.

Geändert von idefix2 (26. Aug 2015 um 01:48 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz