Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support |

#1
June 20th, 2012, 03:14 PM
 X-O-R
Registered User

Join Date: Jun 2012
Posts: 1
Time spent in forums: 26 m 45 sec
Reputation Power: 0
Help on understanding this code

hi everyone i'm beginner in delphi language and i need to understand this code :
repeat
s4:= UpperCase(Edit1.Text[4]);
X:=0;
for i := 1 to 3 do
s4:= s4 + chr(Random(25)+\$41);
for i := 1 to Length(s4) do
x:= x + Ord(s4[i]);
x:= x mod \$28;
until x = \$14;

so please any one explaine for me this code

#2
June 21st, 2012, 07:23 AM
 Marlon B
Registered User

Join Date: Jan 2012
Posts: 11
Time spent in forums: 2 h 43 m 13 sec
Reputation Power: 0
Quote:
 Originally Posted by X-O-R hi everyone i'm beginner in delphi language and i need to understand this code : repeat s4:= UpperCase(Edit1.Text[4]); X:=0; for i := 1 to 3 do s4:= s4 + chr(Random(25)+\$41); for i := 1 to Length(s4) do x:= x + Ord(s4[i]); x:= x mod \$28; until x = \$14; so please any one explaine for me this code
Hello,

First of all make sure you know what every part of the code means, never try to read chunks of code in it's entirety. For more info, here's a handy site I regularly consult - Delphibasics .

Having said that, here's basically what your code does:

Code:
```repeat
(code)
until  x = \$14;```
You've got a variable x (I'm assuming integer, you didn't specify), which has a certain value. The piece marked (code) will be run at least once, after which x will be checked. If it's equal to \$14 (which is the hexadecimal notation for 20), you've reached the end of the loop. If not, the part in between repeat and until will be ran again, until X equals 20.

Code:
```s4:= UpperCase(Edit1.Text[4]);
X:=0;```
s4 is a String, Edit1 is a component (probably of type TEdit) on a form. Here, the 4th character of the string currently in your editbox (Edit1) will be converted to uppercase, and stored in String s4; if you typed in the word "example" without quotes in the editbox, you'd end up with "M" (again, without quotes) in s4.
The integer value X will be set to zero.

Code:
```for i := 1 to 3 do
s4:= s4 + chr(Random(25)+\$41);```
This loop will add three letters after the character already in s4 (the for loop runs with i = 1, i = 2, i = 3).
Random(25) gives you a value ranging from 0 to 25, after which \$41 (or 65 in decimal) is added. Remember that 65 is Ascii for capital letter A.
So far you have an integer, so Chr(x) converts an integer to a character, after which you add it to the already existing String s4.
By now s4 should read something like MTFE (random).

Code:
```for i := 1 to Length(s4) do
x:= x + Ord(s4[i]);```
s4 has a Length of 4 characters by now, and x was 0 until now. So for each letter in the String s4, add the ordinal value of said latter to x.
With the example above, x will increase with the ordinal value of M, T, F and E (77, 84, 70 and 69 respectively).

Code:
`x := x mod \$28;`
Mod performs an integer division, and returns the remainder. So here you divide x by \$28 (decimal 40), and assign the remainder of the division back to x.

As mentioned before, this will repeat until x becomes 20.

Hope this helps - as far as the purpose of this particular code goes, I'll leave that one up to you.

Best regards,

Marlon

 Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > Help on understanding this code

## Developer Shed Advertisers and Affiliates

 Posting Rules You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off
 View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox Forum Jump Please select one User Control Panel Private Messages Subscriptions Who's Online Search Forums Forums Home -------------------- Programming Languages    PHP Development        PHP FAQs and Stickies    Perl Programming        Perl FAQs and Stickies    C Programming        C Programming FAQs and Stickies    Java Help        Java FAQs    Python Programming        Python Programming FAQs    Ruby Programming        Ruby Programming FAQs    Game Development        Game Development FAQs Programming Languages - More    ASP Programming        ASP Programming FAQs    .Net Development        .Net Development FAQs    Visual Basic Programming        Visual Basic Programming FAQs    Software Design        Software Design FAQs    ColdFusion Development        ColdFusion Development FAQs    Delphi Programming        Delphi Programming FAQs    Regex Programming        Regex Programming FAQs    XML Programming        XML Programming FAQs    Other Programming Languages        Other Programming Languages FAQs Web Design    HTML Programming        HTML Programming FAQs    JavaScript Development        JavaScript Development FAQs    CSS Help        CSS Help FAQs    Flash Help        Flash Help FAQs    Photoshop Help        Photoshop Help FAQs    Web Design Help        Web Design Help FAQs    Website Critiques        Website Critiques FAQs    Search Engine Optimization        Search Engine Optimization FAQs Mobile Programming    Mobile Programming        Mobile Programming FAQs    iPhone SDK Development        iPhone SDK Development FAQs    Android Development        Android Development FAQs    BlackBerry Development        BlackBerry Development FAQs Web Site Management    Business Help        Business Help FAQs    Development Software        Development Software FAQs    Scripts        Scripts FAQs Databases    Database Management        Database Management FAQs    DB2 Development        DB2 Development FAQs    MySQL Help        MySQL Help FAQs    PostgreSQL Help        PostgreSQL Help FAQs    Firebird SQL Development        Firebird SQL Development FAQs    MS SQL Development        MS SQL Development FAQs    Oracle Development        Oracle Development FAQs    LDAP Programming        LDAP Programming FAQs System Administration    Mail Server Help        Mail Server Help FAQs    Apache Development        Apache Development FAQs    Security and Cryptography        Security and Cryptography FAQs    Antivirus Protection        Antivirus Protection FAQs    DNS        DNS FAQs    IIS        IIS FAQs    Networking Help        Networking Help FAQs    FTP Help        FTP Help FAQs Operating Systems    BSD Help        BSD Help FAQs    Linux Help        Linux Help FAQs    UNIX Help        UNIX Help FAQs    Windows Help        Windows Help FAQs    Mac Help        Mac Help FAQs Web Hosting    Web Hosting        Web Hosting FAQs    Free Web Hosting        Free Web Hosting FAQs    Web Hosting Requests        Web Hosting Requests FAQs    Web Hosting Offers        Web Hosting Offers FAQs Computer Hardware    Computer Hardware    CPUs        CPUs FAQs    Cooling        Cooling FAQs    Embedded Programming        Embedded Programming FAQs    Motherboards        Motherboards FAQs    Multimedia Hardware        Multimedia Hardware FAQs Other    Dev Shed Lounge        Dev Shed Lounge FAQs    Development Articles        Development Articles FAQs    Beginner Programming        Beginner Programming FAQs    Hire A Programmer        Hire A Programmer FAQs    Project Help Wanted        Project Help Wanted FAQs Latest News Updated Hourly    Technology News    Business News    Science News Forum Information    Forum Rules/Guidelines        Forum Rules/Guidelines FAQs    Forum Announcements        Forum Announcements FAQs    Dev Shed Gaming Center        Go to the Dev Shed Battle Arena        Go to the Dev Shed Arcade Games        Go to the Legend of the Green Dragon    Suggestions & Feedback        Suggestions & Feedback FAQs

 Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support |