Filtern...von zahlen/zeichen aus texteingabe

**speedax**

habt ihr ne idee wie cih zahlen aus ner eingabe rausfiltern kann?bzw ne fehlermeldung bekomme?

Delphi-Quellcode:

			for i:=0 to length(edit1.text) do

 begin

  b:=edit1.text;

  try

  b[i]:=upcase(b[i]);

  except

   showmessage('Bitte geben Sie im Feld "Vorname" Buchstaben ein!');

   edit1.setfocus;

  end;

 end;

wen ich b als char nehme kommt "inkompatible typen str und char

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen Mfg, SirThornberry[/edit]

**Lannes**

Hallo,

markieren

Delphi-Quellcode:

			s := Edit1.Text;

for i:= 1 to length(s) do 

  if s[i] in ['0'..'9'] then

    //keine Zahlen bitte

Ein String beginnt bei Index = 1

**speedax**

was ist s bei dir?

**DeddyH**

markieren

Delphi-Quellcode:

			for i := 1 to Length(Edit1.Text) do

  if not (AnsiLowerCase(Edit1.Text)[i] in ['a'..'z','ä','ö','ü','ß']) then

    ShowMessage('Nur Buchstaben');

**Luckie**

Bitte gib deinem Beitrag einen aussagekräftigen Titel. Der jetzige Titel lässt nicht erkennen, um was für ein Problem oder Frage es sich handelt. Um den Titel zu ändern, editiere einfach deinen ersten Beitrag. Damit erleichterst du das Auffinden deines Beitrages mit der Suche und ersparst anderen Mitglieder ein unnötiges Öffnen deines Beitrages.

**himitsu**

PS: es ist auch kein .NET

**Lannes**

Hallo,

Zitat von speedax:

was ist s bei dir?

ist ein String, aber das ergibt sich auch logischerweise aus dem Code,
da Edit1.Text auch ein String ist.

**Klaus01**

Guten Morgen,

die könntest auch im Delphi-Referenz durchsuchen

Tedit.onKeyPress Ereignis des
Editfeldes nicht zulässige Zeichen abfangen.

Grüße
Klaus

**DeddyH**

OnChange wäre IMHO der bessere Ansatz, sonst kann man über die Zwischenablage immer noch Unsinn hineinbringen.

**Lannes**

Mein Vorschlag: OnKeyPress + OnChange + eventuel OnExit

Link

Filtern...von zahlen/zeichen aus texteingabe

Filtern...von zahlen/zeichen aus texteingabe

Re: Fltern...

Re: Fltern...

Re: Fltern...

Aussagekräftiger Titel

Re: Fltern...

Re: Fltern...

Re: Filtern...von zahlen/zeichen aus texteingabe

Re: Filtern...von zahlen/zeichen aus texteingabe

Re: Filtern...von zahlen/zeichen aus texteingabe

Forumregeln

Lannes Registriert seit: 30. Jan 2005 Ort: Münster 745 Beiträge Delphi 3 Professional	#2 Re: Fltern... 7. Okt 2009, 20:13 Hallo, markieren Delphi-Quellcode: s := Edit1.Text; for i:= 1 to length(s) do if s[i] in ['0'..'9'] then //keine Zahlen bitte Ein String beginnt bei Index = 1 MfG Lannes (Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
	Zitat

speedax Registriert seit: 18. Mär 2009 Ort: Cottbus 36 Beiträge	#3 Re: Fltern... 7. Okt 2009, 20:15 was ist s bei dir?
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.372 Beiträge Delphi 12 Athens	#6 Re: Fltern... 7. Okt 2009, 20:32 PS: es ist auch kein .NET Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

Lannes Registriert seit: 30. Jan 2005 Ort: Münster 745 Beiträge Delphi 3 Professional	#7 Re: Fltern... 7. Okt 2009, 20:42 Hallo, Zitat von speedax: was ist s bei dir? ist ein String, aber das ergibt sich auch logischerweise aus dem Code, da Edit1.Text auch ein String ist. MfG Lannes (Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.780 Beiträge Delphi 10.4 Sydney	#8 Re: Filtern...von zahlen/zeichen aus texteingabe 8. Okt 2009, 06:41 Guten Morgen, die könntest auch im Tedit.onKeyPress Ereignis des Editfeldes nicht zulässige Zeichen abfangen. Grüße Klaus Klaus
	Zitat

Lannes Registriert seit: 30. Jan 2005 Ort: Münster 745 Beiträge Delphi 3 Professional	#10 Re: Filtern...von zahlen/zeichen aus texteingabe 8. Okt 2009, 10:00 Mein Vorschlag: OnKeyPress + OnChange + eventuel OnExit Link MfG Lannes (Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
	Zitat