这在所有情况下都适用于我,但有一个：

var
  BOMLength: integer;
  Buffer: TBytes;
  Encoding: TEncoding;
  Value: string;

SetLength(Buffer,2048);
CurFileStream.Read(Buffer[0],2048);

Encoding := nil;
BOMLength := TEncoding.GetBufferEncoding(Buffer,Encoding);
Value := Encoding.GetString(Buffer);

在一种情况下,它不起作用,文件是一个简单的小文件,并以UTF8字节顺序标记(BOM)开始,即十六进制：’EF BB BF’并包含以下内容：

0 HEAD
0 @I1@ INDI
1 NAME Barthel Lee /Brenner/
2 CONT MAURICE F. weaveR
2 CONT  When I was eleven or twelve years old,I went to Camp Marguette for a w
2 CONC eek or two in the summertime. It was operated by Catholic Charities and w
0 TRLR

在调用CurFileStreamRead之后,当我检查Buffer的值时,它包含BOM后跟文件,0填充Buffer的2048个字符的其余部分.编码正确检测到UTF8 BOM并将BOMLength设置为3.

但是,在Encoding.GetString语句之后,Value的值是空字符串：”.

我在其周围放了一个try-except块来尝试捕获任何异常,但没有.

该代码适用于500个不同类型的其他文件,但不适用于此类.

有谁知道我可以做些什么来解决这个问题,以便正确读取文件？

或者文件可能有问题,但我不确定它有什么不同,或者如何识别可能有什么不同或错误.

跟进：

雷米的回答是正确的.我现在已经确定它只是小文件,小于缓冲区大小(在我的情况下为2048字节),如果不设置长度就无法工作.

正如我所指出的,缓冲区的剩余部分填充为零.这必然是导致Encoding.GetString函数无法返回值的原因.但是当它知道何时停止时,它没关系.

var
  BOMLength: integer;
  Buffer: TBytes;
  BufLength: Integer;
  Encoding: TEncoding;
  Value: string;
begin
  SetLength(Buffer,2048);
  BufLength := CurFileStream.Read(Buffer[0],Length(Buffer));

  Encoding := nil;
  BOMLength := TEncoding.GetBufferEncoding(Buffer,Encoding);
  Value := Encoding.GetString(Buffer,BOMLength,BufLength - BOMLength);
end;

如果仍然不起作用,则源数据很可能在其中包含非法字节.

'SomeName'

并希望在case语句中返回值。这可以吗在这样的case语句中可以使用字符串

Case 'SomeName' of

   'bobby' : 2;
   'tommy' :19;
   'somename' :4000;
else
   showmessage('Error');
end;

但存在另一种选择

>构建一个基于字符串返回整数(散列)的函数
>使用泛型和匿名方法(A generic case for strings)
>使用接收字符串数组的函数(Making a case for Strings,the sane way)>等等。

type

  IBla<T> = interface(IInvokable)
    ['{34E812BF-D021-422A-A051-A492F25534C4}']
    function GetIntFromIface(): Integer;
    function Duplicate(): IBla<T>;
  end;

  TClassA<T> = class(TInterfacedobject,IBla<T>)
  protected
    function GetInt(): Integer; virtual;
  public
    function GetIntFromIface(): Integer;
    function Duplicate(): IBla<T>;
  end;

  TClassB = class(TClassA<Integer>,IBla<Integer>)
  protected
    function GetInt(): Integer; override;
  end;

function TClassA<T>.Duplicate: IBla<T>;
begin
  Exit(TClassA<T>.Create());
end;

function TClassA<T>.GetInt: Integer;
begin
  Exit(1);
end;

function TClassA<T>.GetIntFromIface: Integer;
begin
  Exit(GetInt());
end;

function TClassB.GetInt: Integer;
begin
  Exit(2);
end;

procedure TestRandomStuff.Test123;
var
  o1,o2: IBla<Integer>;
begin
  o1 := TClassB.Create();
  o2 := o1.Duplicate();    
  Assert.AreEqual(o2.GetIntFromIface,2);
end;

uses
  System.Rtti;

....

function TClassA<T>.Duplicate: IBla<T>;
var
  ctx: TRttiContext;
  typ: TRttiType;
  mthd: TRttiMethod;
  inst: TValue;
begin
  typ := ctx.GetType(ClassInfo);
  mthd := typ.getmethod('Create');
  inst := mthd.Invoke((typ as TRttiInstanceType).Metaclasstype,[]);
  inst.AsObject.GetInterface(IBla<T>,Result);
end;

很可能有一种更简洁的方法来使用RTTI来调用构造函数(我对Delphi中的RTTI几乎一无所知),所以你可以很好地阅读该主题而不是将上述内容作为规范的方法来实现.

当然,这假设所有子类都使用TObject中定义的无参数构造函数.这可能是相当有限的.如果您发现自己不得不以更基本的方式重新思考设计,我不会感到惊讶.

如果你的子类都没有实现构造函数,那么你可以使它更简单,而根本不使用RTTI：

function TClassA<T>.Duplicate: IBla<T>;
begin
  Classtype.Create.GetInterface(IBla<T>,Result);
end;

但请注意,这会调用TObject中定义的构造函数,并且不会调用子类中定义的任何构造函数.

例如,假设我有以下字符串,并希望计算其中的逗号数：

S := '1,2,3';

那么我想获得2的结果.

function OccurrencesOfChar(const S: string; const C: char): integer;
var
  i: Integer;
begin
  result := 0;
  for i := 1 to Length(S) do
    if S[i] = C then
      inc(result);
end;