代码之家 › 专栏 › 技术社区 › gammatester

system.str的警告

delphi

gammatester · 技术社区 · 7 年前

如果用delphi10.2.3编译以下程序

{$apptype console}
var
  spi: string;
begin
  str(pi:10:5, spi);
  writeln(spi);
end.

tst.pas(5) Warning: W1057 Implicit string cast from 'ShortString' to 'string'

虽然 spi 声明为string,并且system.str的原型也有一个字符串(根据 http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Str 以及联机帮助):

procedure Str(const X [: Width [:Decimals]]; var S: String);

功能 :

function _Str2Ext(val: Extended; Width, Precision: Integer): _ShortStr;

显然,编译器在这里发挥了某种魔力,但是

第一次尝试

str(pi:10:5, ShortString(spi));

将抛出错误消息:

tst.pas(5) Error: E2064 Left side cannot be assigned to

左侧 .

1 回复 | 直到 7 年前

David Dubois 7 年前

编译器确实在做一些魔术 “在幕后。

STR 是图书馆的老套路。从涡轮帕斯卡时代就开始了。当它被创建时,唯一的字符串是 ShortString S当然,在那些日子里,他们只是被叫来 string S

该例程不使用标准语法来调用Delphi中的过程或函数,因此编译器执行“魔术”将其内部转换为标准函数调用,并且该函数返回 短字符串

为了避免出现警告,可以使用实际的 短字符串 ,然后将其显式转换为 一串 .

var
  aShortString : ShortString;
  aString      : string;
begin
  str ( pi:10:5, aShortString );
  aString := string(aShortString);
  writeln ( aString );

或者你可以不用 STR公司 使用更现代的方法:

uses
  System.SysUtils;
var
  S : string;
begin
  S := Format ( '%10.5f', [ pi ] );
  writeln ( S );

STR公司

推荐文章

zeus · 如何在调整数组大小后保持指向动态数组的指针有效?

1 年前

Arthur Araujo · Delphi类层次结构中TCustomXXX类的原因是什么

1 年前

Wolfgang Bures · 如何解决idHTTP中的错误10054

1 年前

IceCold · 由于TStyleManager,消息丢失。尝试设置样式

1 年前

SignalOne · 德尔福(FMX)循环参考

1 年前

Sascha Ott · 如何从线程调用线程的方法?

1 年前

user1580348 · 问题:如何在上次最小化后还原应用程序?

1 年前

user14668421 · 如何在Delphi VCL中将图像从PNG转换为BMP?

2 年前

tua · Delphi的TLinkLabel坏了吗?

2 年前

Frank.Wu · delphi:RGB到HSL不正确

2 年前