Change Characters

Posted on 1997-10-20
Last Modified: 2010-04-04
I'm making an program to hold all my passwords.
Example: I have an word WATCH and I want to change every letter seperated. So letter CHR(W) gives an number + 10 gives another ASCII code how do I get the number back in to an ASCII character. And I need to get the next letters ATCH.
Question by:CyberChild

Accepted Solution

JimBob091197 earned 10 total points
ID: 1348345
Use the Ord & Chr functions.
Chr(65) -->  'A'
Ord('A') --> 65

for i := 1 to Length(MyString) do
    MyString[i] := Chr(Ord(MyString[i]) + 10);


Author Comment

ID: 1348346
It looks easy if you see the code.


Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Newbie Thread Programming 1 161
URL for downloading Google Chrome for Win XP 2 193
Dev express lookupcombo 3 35
Delphi: sending SMS on android platform 1 38
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question