Na gut, jetzt kann ich sie dir geben.
Delphi-Quellcode:
for i := 1 to Length(s) do
begin
case s[i] of
#142: Result := Result + #196; {Ž}
#153: Result := Result + #214; {™}
#154: Result := Result + #220; {š}
#132: Result := Result + #228; {„}
#148: Result := Result + #246; {”}
#129: Result := Result + #252; {}
#225: Result := Result + #223; {á}
else
Result := Result + s[i];
end;
end;
Hat der Lehrer nichts gesagt in Richtung
ASCII/
ANSI ?
