Ich verstehe eine kleine Sache bei einer Funktion nicht..

[kujin1000]

Hallo leute,
ich habe hier eine Funktion, die ich leider nicht richtig verstehe :oops: ,
vielleicht könnt ihr mir kurz helfen:

Delphi-Quellcode:

procedure TVigenere.SetSecretText(aSecretText: String);
var
  I: Integer;
begin
  //SecretText formatieren
  aSecretText := StringReplace(aSecretText, 'Ä', 'AE', [rfReplaceAll]);
  aSecretText := StringReplace(aSecretText, 'ä', 'AE', [rfReplaceAll]);
  aSecretText := StringReplace(aSecretText, 'Ö', 'OE', [rfReplaceAll]);
  aSecretText := StringReplace(aSecretText, 'ö', 'OE', [rfReplaceAll]);
  aSecretText := StringReplace(aSecretText, 'Ü', 'UE', [rfReplaceAll]);
  aSecretText := StringReplace(aSecretText, 'ü', 'UE', [rfReplaceAll]);
  aSecretText := StringReplace(aSecretText, 'ß', 'SS', [rfReplaceAll]);
  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;
end;

Diese Funktion brauche ich für einen Verschlüsselungsprogramm(genauer gesagt für Vigenere). Ich verstehe den letzten Teil nicht...

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;

Was bewirkt das Charakter dort? und wieso in der zweiten Schleife -32 ?
Vielen Dank

[Klaus01]

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

[SirThornberry]

-32 wandelt wohl zu kleinbuchstaben wenn ich nicht irre. und chr ist das gleiche wie ein cast auf char. String Replace erwartet Strings bzw. Chars. Die Schleife läuft auch alle benötigten durch wobei der Schleifenzähler natürlich ein ordinalwert sein muss. Damit StringReplace damit aber klar kommt muss man explizit sagen das es als char zu interpretieren ist.

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "Object-Pascal / Delphi-Language" verschoben.

[kujin1000]

danke schön :)
:dp:

[Klaus01]

Zitat:

Zitat von SirThornberry

-32 wandelt wohl zu kleinbuchstaben wenn ich nicht irre. u

Bist Du dir da sicher, wirf mal einen Blick auf die Ascii Tabelle.

Gute Nacht.
Klaus

[Chrissi91]

LOL! Kujin ... immer den Coder angeben ;) Hättest auch gleich mich am Telefon fragen können. :D