從查詢中提取逗號分隔的字符串值並將它們分配給 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.