Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi EditBox Groß und Kleinschreibung ignorieren (https://www.delphipraxis.net/103351-editbox-gross-und-kleinschreibung-ignorieren.html)

gasty 14. Nov 2007 17:14


EditBox Groß und Kleinschreibung ignorieren
 
also ich wollte fragen wie man bei der editbox die schreibung ignorieren kann.
ich hab son prog, dass nen bestimmter sound kommt, wenn man was eingibt, aber die schreibung muss halt 1:1 sein, aber ich möchte, dass man auch alles klein bzw groß oder wie man will halt schreiben kann. ich weiß ich laber wieder zu viel lol aber ich denke es war verständlich o.o

DeddyH 14. Nov 2007 17:16

Re: EditBox Groß und Kleinschreibung ignorieren
 
Willkommen in der DP :dp:
Zeig doch mal den Code zum Abspielen des Sounds.

marabu 14. Nov 2007 17:20

Re: EditBox Groß und Kleinschreibung ignorieren
 
Hallo,

manchmal hilft schon die gewünschte Einstellung der Eigenschaft CharCase einer TEdit Komponente im Object Inspector.

Grüße vom marabu

Muetze1 14. Nov 2007 17:21

Re: EditBox Groß und Kleinschreibung ignorieren
 
Schau dir mal Delphi-Referenz durchsuchenAnsiSameText() an.

DeddyH 14. Nov 2007 17:22

Re: EditBox Groß und Kleinschreibung ignorieren
 
Hallo marabu, das wollte ich eigentlich auch schon posten, aber der Satz
Zitat:

..., aber ich möchte, dass man auch alles klein bzw groß oder wie man will halt schreiben kann.
hat mich dann doch davon abgehalten :D

gasty 14. Nov 2007 17:22

Re: EditBox Groß und Kleinschreibung ignorieren
 
ok, hier isser:
Delphi-Quellcode:
  if Edit1.Text = ('CHEAT') then PlaySound(PChar(4), hInstance, SND_ASYNC or SND_MEMORY or SND_RESOURCE);
  if Edit1.Text = ('Max') then PlaySound(PChar(6), hInstance, SND_ASYNC or SND_MEMORY or SND_RESOURCE);
  if Edit1.Text = ('Chicken') then PlaySound(PChar(5), hInstance, SND_ASYNC or SND_MEMORY or SND_RESOURCE);
  if Edit1.Text = ('Headshot') then PlaySound(PChar(4), hInstance, SND_ASYNC or SND_MEMORY or SND_RESOURCE);
also der sound klappt, aber halt nur 1:1 im text.

DeddyH 14. Nov 2007 17:24

Re: EditBox Groß und Kleinschreibung ignorieren
 
Delphi-Quellcode:
if AnsiLowerCase(Edit1.Text) = 'cheat' then...
Du musst halt darauf achten, dass Du die Konstanten dann auch klein schreibst.

gasty 14. Nov 2007 17:27

Re: EditBox Groß und Kleinschreibung ignorieren
 
ja danke es funktioniert !!!
ich hab ja schon auf schnelle hilfe gehofft aber das war ja wirklich fast wie instant-messager
echt gut ! :hello:

DeddyH 14. Nov 2007 17:30

Re: EditBox Groß und Kleinschreibung ignorieren
 
Mal nebenbei: wäre eine ComboBox in diesem Fall nicht besser geeignet als ein Edit?

gasty 14. Nov 2007 17:41

Re: EditBox Groß und Kleinschreibung ignorieren
 
ja eigentlich, aber in meinem fall soll das ne art "cheat box" sein, wo man halt die commands eingeben kann un dann was bestimmtes passiert, also der sound kommt

Tommy1988 14. Nov 2007 18:00

Re: EditBox Groß und Kleinschreibung ignorieren
 
Als ich AnsiSameText() gelesen habe, dachte ich
"geht nicht auch AnsiLowerCase?"

Wollte es schon schreiben, aber DeddyH war schneller :-D

DeddyH 14. Nov 2007 18:03

Re: EditBox Groß und Kleinschreibung ignorieren
 
AnsiStrIComp wäre auch noch ne Option gewesen ;)

gasty 14. Nov 2007 18:53

Re: EditBox Groß und Kleinschreibung ignorieren
 
wenn ich hier schon fragen stell, brauch ich ja keinen neuen thread ;P
also ich wollt fragen, wieso das hier nich klappt, der zeigt immer alle messages an, sollte doch aber eigentlich nur die, wo checkbox oder nich is anzeigen(un das mit dem if not sieht irgendwie unschön aus, is zwar nich wichtig aber gibts da keine "sauberere" lösung?

Delphi-Quellcode:
  if not CheckBox1.Checked and not CheckBox2.Checked then
  ShowMessage('Tip 1: Huhn auf Englisch');
  ShowMessage('Tip 2: Kopfschuss...');
  ShowMessage('Tip 3: Best Dog in da World !');
  if CheckBox1.Checked then
  ShowMessage('Tip 1: Huhn auf Englisch... Chi****');
  ShowMessage('Tip 2: Kopfschuss... Head*****');
  ShowMessage('Tip 3: Best Dog in da World !... M**');
  if CheckBox2.Checked then
  ShowMessage('Tip 1: Huhn auf Englisch... CHICKEN DU VOLLDEPP !');
  ShowMessage('Tip 2: Kopfschuss... HEADSHOT, SCHEIßE BIST DU DUMM !!!');
  ShowMessage('Tip 3: Best Dog in da World ! MAX DAS WEIß DOCH JEDER !');
Danke schonmal für die hoffentlich schnelle hilfe :-D

DeddyH 14. Nov 2007 18:57

Re: EditBox Groß und Kleinschreibung ignorieren
 
Delphi-Quellcode:
if not (CheckBox1.Checked or CheckBox2.Checked) then
  begin
    ShowMessage('Tip 1: Huhn auf Englisch');
    ShowMessage('Tip 2: Kopfschuss...');
    ShowMessage('Tip 3: Best Dog in da World !');
  end
else if CheckBox1.Checked then
  begin
    ShowMessage('Tip 1: Huhn auf Englisch... Chi****');
    ShowMessage('Tip 2: Kopfschuss... Head*****');
    ShowMessage('Tip 3: Best Dog in da World !... M**');
  end
else
  begin
    ShowMessage('Tip 1: Huhn auf Englisch... CHICKEN DU VOLLDEPP !');
    ShowMessage('Tip 2: Kopfschuss... HEADSHOT, SCHEIßE BIST DU DUMM !!!');
    ShowMessage('Tip 3: Best Dog in da World ! MAX DAS WEIß DOCH JEDER !');
  end;
So?

[edit] Bitte ein Thema pro Thread [/edit]

gasty 14. Nov 2007 19:02

Re: EditBox Groß und Kleinschreibung ignorieren
 
und nochmal danke hat alles geklappt :mrgreen:

//also hätte ich doch ein neues thema anfangen sollen? ich dachte nur weil das dann halt bisschen voll wird
naja werds mir merken :thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:58 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