Program Project1; var i,c:Integer; a:array [0..10] of AnsiChar; begin a[0]:=#04; a[1]:='5'; a[2]:='5'; a[3]:='7'; a[4]:='7'; a[5]:=#0; val(PAnsiChar(@a[1])^, i,

Question

Program Project1; var i,c:Integer; a:array [0..10] of AnsiChar; begin a[0]:=#04; a[1]:='5'; a[2]:='5'; a[3]:='7'; a[4]:='7'; a[5]:=#0; val(PAnsiChar(@a[1])^, i,

c);
WriteLn(i);
ReadLn;
end.

Как имитировать ShortString? Выводит или 0, или один знак (в зависимости какой индекс подставлю(0/1))

#lazarus #programming #russian

0

20.04.2024

5 ответов

12 просмотров

notme Автор вопроса

Похоже, что никак... т.к. информация о типе теряется Ок, посоветуйте аналог IntToStr/FloatToStr/Val для PAnsiChar

0

21 день назад

notme Автор вопроса

notme
Похоже, что никак... т.к. информация о типе теряет...

Ой, блин, сорян, увидел ошибку у себя - PAnsiChar -> PShortString Теперь всё ок

0

21 день назад

Serg

Ужас-то какой... program Project1; var i, c: Integer; a: array [0..10] of AnsiChar = #4'5577'; begin Val(PShortString(@a)^, i, c); WriteLn(i); ReadLn; end.

0

21 день назад

notme Автор вопроса

Serg
Ужас-то какой... program Project1; var i, c: Int...

Красиво👍

0

21 день назад

Iluha Companets · Accepted Answer

Iluha Companets

notme
Ой, блин, сорян, увидел ошибку у себя - PAnsiChar ...

последний 0 не нужен

0

21 день назад

169 похожих чатов

Program Project1; var i,c:Integer; a:array [0..10] of AnsiChar; begin a[0]:=#04; a[1]:='5'; a[2]:='5'; a[3]:='7'; a[4]:='7'; a[5]:=#0; val(PAnsiChar(@a[1])^, i,

5 ответов

Похожие вопросы