[SOLVED] Convert String to ASCII code as Integer

[RobWitcher]

Hi

I am trying to convert a string (it has to be a string, not a char) of one letter (A/B/C/D/...) into it's ASCII code stored as an integer.
For example the letter 'A' in ASCII is the number 65 as an integer and 'B' is 66, and so on.
This seems like a fairly simple thing to do but I've been coding my program for many hours and I can barely think now.
Any help is appreciated, thanks.

Rob

[typo]

Code: [Select]

ShowMessage(Chr(Ord('A')));

[RobWitcher]

I tried that before but get this message:

unit1.pas(110,19) Error: Ordinal expression expected

[typo]

Click on the word "Select" on post above, copy it and try again.

[Silvio Clécio]

To get ASCII code of A char, you can do:

Code: [Select]

Write(#$41);
or:

Code: [Select]

Write(Char($41));
or:

Code: [Select]

with TFileStream.Create('out.txt', fmCreate) do
try
  WriteByte($41);
finally
  Free;
end;

[RobWitcher]

Click on the word "Select" on post above, copy it and try again.

it works like that but I want it similar to this

Code: [Select]

ShowMessage(IntToStr(Ord('A')));
So it outputs the number, but instead of using 'A', I want to do it with a string, for example

Code: [Select]

ShowMessage(IntToStr(Ord(MyString)));

But that doesn't work.

 

[RobWitcher]

To get ASCII code of A char, you can do:

Code: [Select]

Write(#$41);
or:

Code: [Select]

Write(Char($41));
or:

Code: [Select]

with TFileStream.Create('out.txt', fmCreate) do
try
  WriteByte($41);
finally
  Free;
end;

Thanks but I'm not after it from a char.
The data I want converted is a string eg

Code: [Select]

MyString : String;
...
MyString := 'A';

and I want to be able to convert that string of 'A' into an integer value, which would be 65, to do calculations etc with it.

[Silvio Clécio]

Ah, OK.

So you can:

Code: [Select]

var
  S: string;
begin
  S := 'A';
  Write(IntToStr(Ord(S[1])));
end;

[RobWitcher]

Ah, OK.

So you can:

Code: [Select]

var
  S: string;
begin
  S := 'A';
  Write(IntToStr(Ord(S[1])));
end;

Thank you so much...
...I don't suppose you know what the

[1]

does? I've never seen that before.

Thanks, again.

[typo]

Code: [Select]

var
  S: string;
begin
  S := 'SomeString';
  for i := 1 to Length(S) do
    Write(IntToStr(Ord(S[i])));
end;


[RobWitcher]

Code: [Select]

var
  S: string;
begin
  S := 'SomeString';
  for i := 1 to Length(S) do
    Write(IntToStr(Ord(S[1])));
end;


Thanks for your help, I guess that could help too.

[Silvio Clécio]

Ah, OK.

So you can:

Code: [Select]

var
  S: string;
begin
  S := 'A';
  Write(IntToStr(Ord(S[1])));
end;

Thank you so much...
...I don't suppose you know what the

[1]

does? I've never seen that before.

Thanks, again.

S[1] is same to Copy(S, 1, 1), ie, it return the first char of a string.

[RobWitcher]

Ah, OK.

So you can:

Code: [Select]

var
  S: string;
begin
  S := 'A';
  Write(IntToStr(Ord(S[1])));
end;

Thank you so much...
...I don't suppose you know what the

[1]

does? I've never seen that before.

Thanks, again.

S[1] is same to Copy(S, 1, 1), ie, it return the first char of a string.

Ohhhh... I see now. My bad, I have used that before, it just didn't click in my mind.
Cheers.

[typo]

It is not 1 (one) but i (I).

[Silvio Clécio]

... and, if you want to get code of char by char, you can use a small code like:

Code: [Select]

var
  C: Char;
  S: string;
begin
  S := 'SomeString';
  for C in S do
    WriteLn(IntToStr(Ord(C)));
end;
PS1: sorry for my english plz.
PS2: I love Free Pascal. S2