如何从字符串 delphi 中获取变量 7

Question

unit Test;

interface

var number: Integer;
    num1, num2: string;

implementation
begin
  number:=1;
  if number=1 then begin
    num+number:='value 1';
  end
  else if number=2 then begin
    num+number:='value 2';
  end;

  showmessage(num+number,''); 
end.

我想显示这个结果 "value 1" if number = 1 和 "value 2" if number = 2.

Answer 1

您可以使用数组，因为数字是连续的，例如：

unit Test;

interface

var
  number: Integer;
  num: array[1..2] of string;

implementation

begin
  number := 1;
  if number = 1 then begin
    num[number] := 'value 1';
  end
  else if number=2 then begin
    num[number] := 'value 2';
  end;

  ShowMessage(num[number]); 
end.

Answer 2

使用格式

var number: integer;
value: string;
begin
  value := format('value %d', [number]);
end;

如果你在 variabel

中输入 1，它会像 "value 1" 那样给出 "Value (n)"

如何从字符串 delphi 中获取变量 7

How to get variable from string delphi 7

variables

delphi-7