如何解决支持分隔文本的类中的错误 [关闭]

Question

关闭。 这个问题需要调试细节。 它目前不接受答案。

---

想改善这个问题吗？ 更新问题，使其成为 Stack Overflow的主题。

3 天前关闭。

改进这个问题

我有点被这个话题困住了，我不太清楚问题是什么。 我们以分号分隔的字符串形式将属性保存在数据库中。 在我们的应用程序中，我们在此字符串中设置属性的位置。 我们的一位客户报告了一个问题，即该应用程序给出的结果不正确，或者此时只是崩溃了一段时间。 由于 GDPR，我无法从客户端获取数据。

有bug的项目是用Delphi 2007编写的。实际上所有的逻辑都是由两个类TSeparatedString和TSplitter处理的，我可以将它们转换为用TStringList处理。 但是，由于这些类用于旧版 Delphi 中的过时项目，因此不允许我这样做。 这就是为什么我必须找出问题所在。 我准备了一个测试程序（包括在内），它应该允许我重现错误，但是我没有得到故障。 奇怪的是，一切都已经工作多年，突然出现问题。

看看这个，你可能会遇到一些事情。

测试：

    procedure TForm1.btnTestClick(Sender: TObject);
var
  AttrAtNo: Integer;
begin
  with TSeparatedString.Create('To;są;jakieś;atrybuty', ';') do
  begin
    try
      AttrAtNo := StringPartNo('jakieś');
    finally
      Free;
    end;
  end;
  ShowMessage(IntToStr(AttrAtNo));
end;

对象类：

unit SeparatedString;

interface

uses
  Splitter;

type
  TSeparatedString = class(TObject)
  private
    FSplitter: TSplitter;
    FSeparatedString: string;
    FSeparator: string;
    FPartsNo: Integer;
    FParts: array of string;
    procedure PrepareParts;
  public
    property SeparatedString: string read FSeparatedString;
    property Separator: string read FSeparator;
    property PartsNo: Integer read FPartsNo;
    function GetPartNo(PartNo: Byte): string;
    function StringPartNo(SearchedString: string): Integer;
    constructor Create(SeparatedString, Separator: string); reintroduce;
    destructor Destroy; override;
  end;

implementation

{ TSeparatedString }

constructor TSeparatedString.Create(SeparatedString, Separator: string);
begin
  Inherited Create;
  FSplitter := TSplitter.Create(SeparatedString, Separator);
  FPartsNo := FSplitter.PartsNo - 1;
  FSeparatedString := SeparatedString;
  FSeparator := Separator;
  PrepareParts;
end;

destructor TSeparatedString.Destroy;
begin
  FSplitter.Free;
  inherited;
end;

procedure TSeparatedString.PrepareParts;
var
  i: Integer;
begin
  SetLength(FParts, PartsNo + 1);
  with FSplitter do
  begin
    for i := 1 to PartsNo do
    begin
      FParts[i-1] := GetSplitFromStr(i);
    end;
  end;
end;

function TSeparatedString.StringPartNo(SearchedString: string): Integer;
var
  i: Integer;
  SplitStr: string;
begin
  Result := -1;
  for i := 0 to PartsNo do
  begin
    SplitStr := GetPartNo(i);
    if SplitStr = SearchedString then
    begin
      Result := i;
      Break;
    end;
  end;
end;

function TSeparatedString.GetPartNo(PartNo: Byte): string;
begin
  Result := FParts[PartNo];
end;

end.

unit Splitter;

interface

type
  TSplitter = class(TObject)
  private
    FStr: string;
    FSeparator: string;
    FPartsNo: Byte;
    function GetPartsNo: Byte;
  public
    function GetSplitFromStr(PartNo: Byte): string;
    property Str: string read FStr;
    property Separator: string read FSeparator;
    property PartsNo: Byte read FPartsNo;
    constructor Create(Str, Separator: string); reintroduce;
  end;

implementation

constructor TSplitter.Create(Str, Separator: string);
begin
  inherited Create;
  FStr := Str;
  FSeparator := Separator;
  FPartsNo := GetPartsNo;
end;

function TSplitter.GetSplitFromStr(PartNo: Byte): string;
var
  lStr: string;
  lSplit: string;
  lNum: Byte;
  lEnd: Byte;
begin
  lStr := Str;
  lNum := 1;
  lEnd := Length(lStr);
  while (lNum <= PartNo) and (lEnd <> 0) do
  begin
    lEnd := Pos(FSeparator, lStr);
    if lEnd <> 0 then
    begin
      lSplit := Copy(lStr, 1, lEnd-1);
      Delete(lStr, 1, lEnd);
      Inc(lNum);
    end
    else
      lSplit := lStr;
  end;
  if lNum >= PartNo then
    Result := lSplit
  else
    Result := '';
end;

function TSplitter.GetPartsNo: Byte;
var
  lStr: string;
  lRChar: Char;
  lNum: Byte;
  lEnd: Byte;
begin
  lStr := FStr;
  if FSeparator = '#' then
    lRChar := '*'
  else
    lRChar := '#';

  lNum := 0;
  lEnd := Length(lStr);
  while lEnd <> 0 do
  begin
    Inc(lNum);
    lEnd := Pos(FSeparator, lStr);
    if lEnd <> 0 then
      lStr[lEnd] := lRChar;
  end;
  Result := lNum;
end;

end.