StringListe

[sirius]

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var list:array of string;
    i:integer;
begin
  list:=@listB; 
  for i:=0 to 1 do memo1.lines.add(list[i]); //Achtung Index jetzt ab 0 egal womit die ursprüngliche Liste anfing
end;