StringListe

[Tim Henford]

Hallo,

irgendwie hab ich gerad ein Brett vorm Kopf und zwar wollt ich eine konstante Liste mit z.Bsp. 6 Einträgen erstellen.
Wobei ich diese Einträge dann in einer for i:=0 to liste.eof-1 do abarbeiten wollte und dann ShowMessage (liste[i]).

Geht das irgendwie eine Liste konstant zu definieren ohne TStringlist.create und ..add?

[sirius]

Meinst du das?
const liste:array[1..10] of string=('A','B','C','D','E','F','G','H','I','K');

[Tim Henford]

genau danke

[Tim Henford]

wie ist das, wenn ich 2 listen habe und mich in einer funktion für eine entscheide, also:

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  list:= listA else list:= listB
  ShowMessage(list[4]);
end;

geht das irgendwie?

[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!

[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

[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;

[Tim Henford]

Super. Danke funktioniert prima.

Ist es auch möglich folgendes Problem zu lösen:

Eine Liste mit Strings und Variablen:

Delphi-Quellcode:

 list: array[1..3] of string=('Abc','Beta','Ce'); 

var
  viAbc,viBeta,viCe : integer;


if edit.text=list[1] then
  inc(viAbc);
if edit.text=list[2] then
  inc(viBeta);
if edit.text=list[3] then
  inc(viCe)

einfach irgendwie zu sagen inc (vi[edit.text] ) Danke Tim

[sirius]

Nee, das dürfte nicht gehen. für die Interpretation von Code ist Delphi nicht ausgelegt. Da müsstest du einen Weg über Objekte wählen.

[Tim Henford]

Danke. Gibt es ein kurzes Exempel dazu mit Objekten?