Hi!
Ich stell mich gerade zu glatt an was die Logik angeht. Ich habe eine while mit drei Bedingungen die ALLE erfüllt sein müssen bevor das Programm weiterspringen darf.
Delphi-Quellcode:
while (i_arr_global_Ausgabe_Kat_Art_Schleifenwert <> Length(i_arr_global_Ausgabe_Kat_Art))
and (i_arr_global_Ausgabe_Kat_Schleifenwert <> Length(i_arr_global_Ausgabe_Kat))
and (i_arr_global_Ausgabe_Sehenswue_Schleifenwert <> Length(i_arr_global_Ausgabe_Sehenswue)) do
begin
ausgabe_i_arr_global_ausgabe_kat_art;
ausgabe_i_arr_global_ausgabe_kat;
ausgabe_i_arr_global_ausgabe_sehenswue;
end;
Das sind jeweils Integer und Arrays. Ich bekomms nur hin, wenn ich eine der drei Sachen prüfen. Und verschachteln geht auf keinen Fall.