Solved

Change Characters

Posted on 1997-10-20
2
127 Views
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.
0
Comment
Question by:CyberChild
2 Comments
 
LVL 5

Accepted Solution

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

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

JB
0
 

Author Comment

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

Thanks,
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
This video discusses moving either the default database or any database to a new volume.
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…

706 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now