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,

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]

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:

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 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