Registriert seit: 7. Okt 2008
13 Beiträge
|
case abfrage
12. Okt 2008, 17:46
so,da sind wir wieder unser nächstes problem ist nun eine case abfrage
Delphi-Quellcode:
const TraegerTyp: array [1..18] of integer = (80,100,120,140,160,180,200,220,240,270,300,330,360,400,450,500,550,600);
//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
ITraegerTyp := TraegerTyp[1];
end;
usw. das funktioniert auch alles.
aber dann wollen wir abhängig vom ausgegebenen itraeger den gesamtpreis berechnen und dann kommt die fehlermeldung array type required...hilfe!
Delphi-Quellcode:
for a := 1 to 6 do
begin
//1.
case ITraegertyp of Traegertyp [1,2,3,4]:
if (GewichtItraeger_array[a] > 0) and (GewichtItraeger_array[a] <= 399)
then
GesamtpreisI_array[a] := (GewichtItraeger_array[a])/1000 * EuroproTonne[1]
else begin
if (GewichtItraeger_array[a] >= 400 ) and (GewichtItraeger_array[a] <= 999)
then
GesamtpreisI_array[a] := (GewichtItraeger_array[a])/1000 * EuroproTonne[2]
else begin
if (GewichtItraeger_array[a] >=1000)
then
GesamtpreisI_array[a] := (GewichtItraeger_array[a])/1000 * EuroproTonne[3];
end;
end;
|
|
Zitat
|