StringListe

[Chaosente]

Delphi-Quellcode:

const listA:array[1..10] of string=('A','B','C','D','E','F','G','H','I','K');
const listB:array[1..7] of string=('H','G','D','R','E','F','G');

procedure test;
var
 list : array of string;
begin
  if ... then
    Showmessage(listA[i])
  else
    showmessage(listB[i])
end;

So vllt? Ungetestet, aber erscheint mir logisch, nur muss du aufpassen, das der index i bei dem jeweiligen Array überhaupt existiert!