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...
Danke, das ist ein guter Ansatz.
http://rvelthuis.de/articles/articles-openarr.html
Es funktioniert so auch und ist auf jeden Fall besser als die alte Methode
Allerdings ist es immer noch nicht optimal... denn es wird mir der Speicher etwas zugemüllt, obwohl ich gewisse Arrays nicht nutze.
_____
Dazu eine etwas weiterführende Erklärung:
Programm wird mit Parametern gestartet.
Je nach Parameter durchläuft er eine andere Routine.
Jetzt müsste ich für jeden Parameter der mitgegeben wird ein eigenes Array basteln mit den vorgegebenen Konstanten.
Hier ein Beispiel:
Delphi-Quellcode:
[...]
const
ArrayOfFiles1: array[1..12] of String = (ab, ac, ad, ab, gs, hw,
qa, jq, wh, hw, qa, hw);
ArrayOfFiles2: array[1..12] of String = (ab, ac, ad, ab, gs, hw,
qa, jq, wh, hw, qa, hw);
ArrayOfFiles3: array[1..12] of String = (ab, ac, ad, ab, gs, hw,
qa, jq, wh, hw, qa, hw);
[...]
procedure TForm1.XX;
[...]
begin
[...]
if ParamStr(1) = 'aa' then
begin
[...]
for i := 0 to Length(ArrayOf2CopyFiles1) do
begin
AndereProzedurVonMir(ArrayOf2CopyFiles[i]);
end;
end
if ParamStr(1) = 'bb' then
begin
[...]
for i := 0 to Length(ArrayOf2CopyFiles2) do
begin
AndereProzedurVonMir(ArrayOf2CopyFiles2[i]);
end;
end;
end;
Gibt es nicht die Möglichkeit ein Array festzulegen, welches ich mit einer Zeile Code (Nämlich je nachdem welcher Parameter dem Programm mitgegeben wurde) füllen kann ?
Denn mit der jetzigen Methode würde er die Constanten immer in den Speicher schreiben, auch wenn er gar nicht drauf zugreift bzw. diese gar nicht braucht
(Und ich hätte > 20 Arrays, obwohl ich zur Laufzeit immer nur ein Einzige (!) benötige.)
EDIT1://
Ich war nicht mal mit dem Schreiben fertig, schon mehr als 4 Antworten zwischenzeitlich, der Hammer
Danke für die Function Patty.
EDIT2://
StringDynArray ist genau das, was ich gesucht habe, fabelhaft !
Klappt genau wie in deinem Beispiel
Wäre super wenn du mir sagst wie man auf so etwas kommen kann, wenn man es nicht kennt. (Ich suche meist 30min - 2 Std bevor ich eine Frage stelle, allerdings scheint meine Google suche nicht optimal zu sein... könnte man auch "so", auf die Antwort stoßen durch eine optimierte Suche wo anders ?
EDIT3://
Komme gar nicht zum abschicken, bei mir erscheint immer nur "Zwischenzeitlich sind neue Beiträge geschrieben worden."
Edit4://
Ich komme wirklich nicht zum abschicken des Posts...
"Zwischenzeitlich sind neue Beiträge geschrieben worden."
Ich kann nicht mehr
Edit5://
Jetzt hat das abschicken geklappt
