Array mit mehreren Strings auf einmal füllen

[Klaus01]

Guten Morgen,

dies hier, könnte vielleicht noch mit Hilfe einer Ini Datei vereinfacht werden:

Delphi-Quellcode:

c
onst
    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;

Delphi-Quellcode:

var
 iniFile: TIniFile;
 fileList: TStringList;

...
begin
  // ...
  try
    iniFile := TiniFile.create(PathToIniFile);
    fileList := TStringList.create;
    fileList.delimetedText := iniFile.ReadString(Paramstr(1),'FileList','');
    for i:=0 to fileList.count -1 do
      AndereProzedurVonMir(fileList[i]);
  finally
    iniFile.free;
    fileList.free;
  end;
  // ...
end;

Wobei der Aufbau der Ini-Datei dann so aussehen müsste:

Code:

[aa]
  FileList=aa bb cc dd ee ff gg
[bb]
  FileList=ab bc cd de ef fg gh
[cc]
  ...

.. nur mal so ein Gedanke

Grüße
Klaus

[Mike_]

Zitat von Klaus01:

Guten Morgen,

dies hier, könnte vielleicht noch mit Hilfe einer Ini Datei vereinfacht werden:

Delphi-Quellcode:

c
onst
    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;

Delphi-Quellcode:

var
 iniFile: TIniFile;
 fileList: TStringList;

...
begin
  // ...
  try
    iniFile := TiniFile.create(PathToIniFile);
    fileList := TStringList.create;
    fileList.delimetedText := iniFile.ReadString(Paramstr(1),'FileList','');
    for i:=0 to fileList.count -1 do
      AndereProzedurVonMir(fileList[i]);
  finally
    iniFile.free;
    fileList.free;
  end;
  // ...
end;

Wobei der Aufbau der Ini-Datei dann so aussehen müsste:

Code:

[aa]
  FileList=aa bb cc dd ee ff gg
[bb]
  FileList=ab bc cd de ef fg gh
[cc]
  ...

.. nur mal so ein Gedanke

Grüße
Klaus

Klaus,

bist du ein Hellseher ?
Genau das hatte ich heute vor einzubauen und du lieferst gleich noch den Quellcode mit.

Fabelhaft !