Statt ITraegertyp den Wert aus dem Array Traegertyp zuzuweisen, solltest du dir besser den Index merken:
Delphi-Quellcode:
//Berechnung des Gewichtes eines I-Träger + Typzuweisung
for a := 1 to 6 do
begin
if (Widerstandsmomente_array[a] >= 1) and (Widerstandsmomente_array[a] <= 20) then
begin
KGItraeger_array[a] := (LaengeITraeger_array[a]/1000) * MproKilo[1]; //MproKilo= kg/m ; LaengeITraeger in m umrechnen
idxTraegerTyp := 1;
end;
Wenn du den Arraywert wirklich brauchst, schreibst du einfach sowas wie:
ITraegertyp := Traegertyp[idxTraegertyp];
Dann kannst du später in der case-Anweisung einfach schreiben:
Delphi-Quellcode:
begin
//1.
case idxTraegertyp of
1,2,3,4: begin
if (GewichtItraeger_array[a] > 0) and (GewichtItraeger_array[a] <= 399)
then
...