Hallo,
Zitat von
Snow Dragon:
Hallo,
ich hab ein Problem mit Leerzeichen, bzw. dem Umwandeln.
Und zwar schreibe ich gerade an einem Programm was Text im CeasarCode verschüsseln soll, das halt am besten mit Leerzeichen oder Umwandlung der Leerzeichen in _ oder der ähnlichen. Der Quellcode sieht immoment wie folgt aus:
Delphi-Quellcode:
begin
s:=edein.text;
sch:=StrToint(lbein.text);
FOR I:=1
TO length(s)
DO
BEGIN
c:=s[i];
case c
of
'
A' .. '
Z' : s1 := s1 + c;
'
a' .. '
z' : s1 := s1 + upcase(c);
'
ß' : s1 := s1 + '
SS';
'
ä' : s1 := s1 + '
AE';
'
ö' : s1 := s1 + '
OE';
'
ü' : s1 := s1 + '
UE';
'
Ä' : s1 := s1 + '
AE';
'
Ö' : s1 := s1 + '
OE';
'
Ü' : s1 := s1 + '
UE';
END;
END;
aus:='
';
for ii:=1
to length(s1)
do
begin
c:=s1[ii];
ASCII:=ord(c)+sch;
aus:=aus+CHR(
ASCII);
end;
edaus.lines.add(aus);
end;
Das ist der Programmteil fürs Verschlüsseln. Wenn ich da allerdings nun einen Satz mir Leerzeichen eingebe kommt unten ein zusammengequetschtes Zeug raus und ist nach dem Entschlüsseln kaum zu lesen.
Freu mic hschon auf eure Beiträge
erweitere doch Deine Case-Abfrage um ein
' ' : s1 := s1 + '_';
Welchen Wert enthält sch?
Wenn Ord(c) + sch > 255 wird, können aus Chr(
Ascii) nichtdarstellbare Zeichen werden.