Array mit mehreren Strings auf einmal füllen

[Mike_]

Guten Abend,

es ist mir fast peinlich die Frage zu stellen, da Arrays m.E.n. zu den Grundfunktionen gehören, die selbst ein Anfänger wissen müsste bzw. man zur not ergoogeln sollte.

Weder google noch die Boardsuche hat mir dabei jedoch etwas wirklich gebracht.

Aufgabe:
Ich möchte mehrere Strings in ein Array packen.

"Problem":
Die Strings sind bereits dem Programm vorgegeben, so dass ich bisher als einzige Lösung folgendes tat:

[...]
var
ArrayWithData: Array of String;
begin
ArrayWithData[0] := 'a';
ArrayWithData[1] := 'b';
[...]
ArrayWithData[15] := 'c';


Aber dass muss doch auch effizienter gehen ?!
Ich habe im Internet auf einer FreePascal Seite folgenden Quellcode gefunden (Umgeformt auf mein Beispiel):

[...]
ArrayWithData := ('a','b','c');


Das "schluckt" Delphi 2007 aber nicht...
Ich bin ratlos... wie kann ich ein Array fortlaufend füllen ohne den Quellcode "künstlich" aufquillen zu lassen ?

EDIT://
Alternativ kam mir die Idee die Strings in eine StringList zu packen und von dort in ein Array zu verschieben... jedoch habe ich auch bei der Stringlist nur die Möglichkeit gefunden ein Item je Zeile hinzuzufügen...

[patti]

Handelt es sich bei den Strings um Konstanten? Wenn ja, dann kannst du das Array sofort als Konstante definieren und an dieser Stelle einfach befüllen...

[Klaus01]

.. spräche etwas dagegen ein TStringList zu nutzen?

Delphi-Quellcode:

sl := TStringList.create;
sl.Delimiter := ' ';
sl.DelimitedText := 'a b c';

Nachtrag:
zum Schluss das Freigeben der StringList nicht vergessen

Grüße
Klaus

[mkinzler]

Zitat:

. spräche etwas dagegen ein TStringList zu nutzen?

Würde ich auch so mache; ist allerdings kein Array.

[Klaus01]

Zitat von mkinzler:

Zitat:

. spräche etwas dagegen ein TStringList zu nutzen?

Würde ich auch so mache; ist allerdings kein Array.

..läst sich aber ähnlich wie ein Array ansprechen sl[0]..

Grüße
Klaus

[mkinzler]

Wie gesagt, habe ich beim Lesen der Frage auch an eine gedacht.

[patti]

Hab hier grad mal ne Routine geschrieben, die ein String-Array mit Werten befüllt:

Delphi-Quellcode:

procedure FillArray(var AArray : array of string; const AValues : array of string);
var i1 : integer;
var i2 : integer;
begin
     //--
     i1 := Low(AArray);
     i2 := Low(AValues);
     //
     while (i1 <= High(AArray)) and (i2 <= High(AValues)) do
     begin
          AArray[i1] := AValues[i2];
          //
          i1 := i1 + 1;
          i2 := i2 + 1;
     end;
end;

Beispiel-Aufruf:

FillArray(ZuBefuellendesArray,['5','5','4']);

Am besten ist es dabei, wenn beide Arrays gleich groß sind. Man kann das ganze auch mit einem Dynamischen Array machen, dann könnte man in der Routine vorher per SetLength die Länge des zu befüllenden Arrays setzen und an die Anzahl der zu speichernden Werte anpassen.

mfg

[Hawkeye219]

Hallo,

mit etwas weniger Schreibaufwand geht es so:

Delphi-Quellcode:

uses Types;

var
  A: TStringDynArray;
begin
  A := TStringDynArray.Create('a', 'b', 'c', 'd', 'e', 'f');
end;

Gruß Hawkeye

[Klaus01]

.. TStringDynArray kennt Delphi 2006 noch nicht,
ob das bei Delphi 2007 der Fall ist - keine Ahnung.

Grüße
Klaus

[mkinzler]

Gab es den nicht schon vorher?
http://www.delphipraxis.net/186083-post3.html