Diese Funktion verhindert nichts ... dafür hatte ich vorher doch schon auf die Eigenschaft .CharCase verwiesen
(z.B. siehe
OI beim TEdit)
Zitat von
speedax:
na gut da is dann wohl ne for to do schleife angesagt die bis maximale length geht und jedes zeichen versucht zu "floaten" oder?
AnsiUpperCase war aber als Antwort hierauf
[edit]
aber ich merke grad, er wollte ja nur Buchstaben ... irgendwie hatte ich vorhin nut Großbuchstaben gelesen
[edit2]
also um es mal zu lösen entweder du prüfst direkt bei Eingabe in das Edit, ob die Zeichen korrekt sind
z.B. in OnKeyPress oder OnChannge des Edits
oder beim Ende
Delphi-Quellcode:
var s: String; // da hättest du im anderen Thread aber auch drauf kommen können,
// wo doch Edit.Text schon ein String ist
i: Integer;
begin
s := Edit1.Text;
for i := 1 to Length(s) do
if not (s in ['a'..'z', 'A'..'Z', 'ä', 'ö', 'ü' {usw.}]) then
begin
ShowMessage('Bitte geben Sie im Feld "Vorname" Buchstaben ein!');
Edit1.SetFocus;
Break;
end;