case abfrage

[Uwe Raabe]

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
...