从查询中提取逗号分隔的字符串值并将它们分配给 Delphi 4 上的不同变量

Question

我正在尝试从 Query 中拆分逗号分隔的字符串，并将每个字符串分配给不同的变量：

qValidation.Close;
qValidation.SQL.Clear;
qValidation.SQL.Add('SELECT VALUE FROM PARAMETER WHERE CODPARAMETER = ''XYM'' ');
qValidation.Open;

我从这段代码（VALUE）得到的字符串是'12.5,45.3,33.5,67.9 '

我想获取每个值并将它们分配给不同的变量，即：

X1 = 12.5
X2 = 45.3
X3 = 33.5
X4 = 67.9

这些变量必须是浮点类型

我读过您可以使用 TStringList 但我没有找到适合我的 Delphi4 清晰方法

Answer 1

TStringList在Classes单元中声明。 它有一个CommaText属性，它将输入文本解析为它的Strings[]属性。 对于每个单独的字符串，您可以使用SysUtils单元中的StrToFloat() function 将其转换为Extended ，然后根据需要将该值分配给Single / Double变量。

Answer 2

Delphi 4 库具有必要的功能。 这是单元Classes的TStrings.CommaText 。

TStrings是一个抽象的class，所以必须使用TStringList

program ProjectTest;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  vList: TStrings;
  i: Integer;
begin
  vList := TStringList.Create;
  try
    vList.CommaText := '12.5,45.3,33.5,67.9';

    for i := 0 to vList.Count - 1 do
      Writeln(vList[i]);
  finally
    vList.Free;
  end;

  Readln;
end.