Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Free Pascal
»
Beginners
(Moderators:
FPK
,
Tomas Hajny
) »
[SOLVED] Ascii code to string
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
WIKI Timeout issues
Please read here if you have trouble connecting to the wiki
Recent
Variable number of button...
by
Fibonacci
[
Today
at 05:29:12 am]
LAMW complaining about "A...
by
nobody.00
[
Today
at 04:14:57 am]
FPC 3.2.4-rc1 available
by
dbannon
[
Today
at 02:18:35 am]
OpenDialog is too big and...
by
user5
[
Today
at 12:54:27 am]
Has anyone loaded ReactOS...
by
d2010
[June 23, 2025, 10:50:40 pm]
How do you place a breakp...
by
Hansvb
[June 23, 2025, 09:29:48 pm]
Output folder?
by
TBMan
[June 23, 2025, 08:32:57 pm]
TTask 'file not found' er...
by
sollapse
[June 23, 2025, 08:31:10 pm]
Sqlite & Zeos
by
Handoko
[June 23, 2025, 07:32:23 pm]
Why is -Cg forced and can...
by
n7800
[June 23, 2025, 06:42:42 pm]
TaurusTLS 1.0.0.25 beta 2...
by
Handoko
[June 23, 2025, 06:38:14 pm]
Replace controls dynamica...
by
n7800
[June 23, 2025, 06:14:54 pm]
Has the function of findi...
by
n7800
[June 23, 2025, 05:22:05 pm]
My second "paint" program
by
TBMan
[June 23, 2025, 05:05:26 pm]
DBF / DBGRID
by
Handoko
[June 23, 2025, 04:08:46 pm]
WinInet compiling errors.
by
PascalDragon
[June 23, 2025, 03:03:07 pm]
What WinAPI functions can...
by
PascalDragon
[June 23, 2025, 02:52:05 pm]
[SOLVED] Shenanigans with...
by
Gustavo 'Gus' Carreno
[June 23, 2025, 12:32:00 pm]
Color change without cons...
by
HMM
[June 23, 2025, 12:18:15 pm]
[SOLVED] Are there units ...
by
Gustavo 'Gus' Carreno
[June 23, 2025, 11:16:37 am]
Loop Iteration Speed Test
by
paweld
[June 23, 2025, 11:13:59 am]
Status and Maintenance of...
by
Thaddy
[June 23, 2025, 09:53:53 am]
Inheritance of Classes th...
by
Thaddy
[June 23, 2025, 09:31:25 am]
Trouble compiling fpc for...
by
ermok
[June 23, 2025, 09:22:20 am]
A Tutorial for LazReport
by
Thaddy
[June 23, 2025, 09:12:25 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: [SOLVED] Ascii code to string (Read 838 times)
CM630
Hero Member
Posts: 1408
Не съм сигурен, че те разбирам.
[SOLVED] Ascii code to string
«
on:
May 23, 2025, 08:35:22 am »
Oddly, I cannot find the answer.
I need to convert an ASCII code to a string.
In other words, I need to convert the number $48 to the string 'H'. How?
«
Last Edit: May 23, 2025, 08:43:37 am by CM630
»
Logged
Лазар 4,0 32 bit (sometimes 64 bit); FPC3,2,2
Fibonacci
Hero Member
Posts: 757
Internal Error Hunter
Re: Ascii code to string
«
Reply #1 on:
May 23, 2025, 08:37:28 am »
https://www.freepascal.org/docs-html/rtl/system/chr.html
or
Code: Pascal
[Select]
[+]
[-]
str
:
=
#
$48
;
Logged
CM630
Hero Member
Posts: 1408
Не съм сигурен, че те разбирам.
Re: [SOLVED] Ascii code to string
«
Reply #2 on:
May 23, 2025, 08:44:23 am »
Thanks, this seems to work:
Code: Pascal
[Select]
[+]
[-]
String
(
#
$48
)
or
Code: Pascal
[Select]
[+]
[-]
String
(
char
(
$48
)
)
Logged
Лазар 4,0 32 bit (sometimes 64 bit); FPC3,2,2
Thaddy
Hero Member
Posts: 17201
Ceterum censeo Trump esse delendam
Re: [SOLVED] Ascii code to string
«
Reply #3 on:
May 23, 2025, 12:44:46 pm »
The casts are not necessary. That puts people on the wrong foot imho.
Code: Pascal
[Select]
[+]
[-]
{$mode objfpc}
begin
writeln
(
#
$48
)
;
// this is already a string in hex notation: H.
end
.
Logged
Due to censorship, I changed this to "Nelly the Elephant". Keeps the message clear.
CM630
Hero Member
Posts: 1408
Не съм сигурен, че те разбирам.
Re: [SOLVED] Ascii code to string
«
Reply #4 on:
May 23, 2025, 09:47:01 pm »
Indeed. Both line result in
H
.
Code: Pascal
[Select]
[+]
[-]
procedure
TForm1
.
Button1Click
(
Sender
:
TObject
)
;
var
i
:
byte
=
$48
;
begin
ShowMessage
(
String
(
char
(
i
)
)
)
;
ShowMessage
(
char
(
i
)
)
;
end
;
Logged
Лазар 4,0 32 bit (sometimes 64 bit); FPC3,2,2
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Free Pascal
»
Beginners
(Moderators:
FPK
,
Tomas Hajny
) »
[SOLVED] Ascii code to string
TinyPortal
© 2005-2018