相关疑难解决方法(0)

如何在Delphi中最好地实现三值逻辑？

我在想

type
  TExtBoolean = (ebTrue, ebFalse, ebUnknown);

同

function ExtOr(A: TExtBoolean; B: TExtBoolean): TExtBoolean;
begin
  if (A = ebTrue) or (B = ebTrue) then
    Result := ebTrue
  else if (A = ebFalse) and (B = ebFalse) then
    Result := ebFalse
  else
    Result := ebUnknown;
end;

等等.

但这似乎并不是很优雅.有更好的方法吗？

编辑:优雅我的意思是易于使用.实现越优雅越好.CPU效率对我来说并不重要.

作为Delphi 7转换的一部分,我们摆脱了shorttring.我想让它尽可能轻松,所以我们认为我们可以将ShortString更改为一些以相同方式起作用的记录.这是它的声明方式(还有更多内容,但这是基本结构,概述了问题):

TShortStringRec = record 
private
  FStuff: array [0..49] of Char;
public
  class operator Implicit(AStuff: TShortStringRec): String;
  class operator Implicit(S1: String): TShortStringRec;
end;

这适用于将字符串设置为记录.但是那时的功能就像format参数一样const array of const.有没有办法对我们想要传递给const数组的内容进行隐含转换？

function FunkyFunc : string;
var
  ssr : TShortStringRec;
begin
  ssr := 'Wall'; 
  result := format('Hello %s', [ssr]);  //<---error here
end;

编译时出现语法错误,因为ssr不是可以在其中一个数组上使用的参数类型.