?
Delphi-Quellcode:
program Project6;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
const
Array1 :
array[0..1]
of string = ('
asdf', '
qwer');
Array2 :
array[0..2]
of string = ('
asdf', '
qwer', '
jklö');
Array3 :
array[0..3]
of string = ('
asdf', '
qwer', '
jklö', '
uiop');
procedure DoStuffWithAnArray(IrgendeinArray:
array of string);
var
str:
string;
begin
for str
in IrgendeinArray
do
begin
Writeln(str);
end;
Writeln;
end;
begin
try
DoStuffWithAnArray(Array1);
DoStuffWithAnArray(Array2);
DoStuffWithAnArray(Array3);
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
Readln;
end.
Ich geh davon aus, dass du meine letzte Nachricht noch nicht hier mit einbezogen hast.
Zum einen brauche ich Array of Array of String, deine Variante hat gerade mal eine Ziele meiner Arraygröße. Zweitens gehen Konstanten nicht, da ich mir die Daten zur Laufzeit aus externen Dateien hole, die sich häufig ändern. Den Inhalt über den Quellcode zu pflegen wäre ein enormer Aufwand und ein ziemlicher Rückschritt.