Ascii Tabelle
Delphi-Quellcode:
For I := 1 to 255 do
If ((I < 65) or (I > 90)) and ((I < 97) or (I > 122)) then aSecretText := StringReplace(aSecretText, Chr(I), '', [rfReplaceAll]);
For I := 97 to 122 do
aSecretText := StringReplace(aSecretText, Chr(I), Chr(I-32), [rfReplaceAll]);
SecretText := aSecretText;
Die erste for Schleife durchläuft den Zeichenbereich von 1 bis 255 der
Ascii-Tabelle.
Ist ein Zeichen dann nicht im Bereich von 'A'..'Z' und 'a'..'z' wird das
Zeichen im Text durch '' ersetzt.
Die zweite Schleife ersetzt jeden kleinen Buchstaben des Textes durch den entsprechenden Großbuchstaben.
'a' (97) -> 'A' (65 = 97-32).
Grüße
Klaus