StringListe

[Klaus01]

Delphi-Quellcode:

const listA:array[1..4] of string=('A','B','C','D');
const listB:array[1..3] of string=('1','2','3');

procedure test;
var
  list : array of string;
  i: Byte;
begin
  if ... then
    begin
      setLength(list,length(listA));
      for i:=0 to length(ListA)-1 do
        list[i]:=listA[i+1];
    end
  else
    begin
      setLength(list,length(listB));
      for i:=0 to length(ListB)-1 do
        list[i]:=listB[i+1];
    end;

  ShowMessage(list[2]);
  setLength(List,0);
end;

Vielleicht etwas zu umständlich, vielleicht gibt es auch noch
eine Möglichkeit den Speicher direkt zu kopieren (move)?

Grüße
Klaus