@Klabautermann
man bin ich blööööd du hast natürlich die richtige Antwort zu meiner
falschen Frage gegeben sorry,
ich muß mein Beispiel abändern das ganze ist doch komplizierter als ich
dachte...
so, und jetzt die neue Frage
1. es findet eine Berechnung statt
2. das Ergebnis der Berchnung lass ich vergleichen mit diesem array
Quelltext
1:
2:
| kv1: array[1..23]of real=(0.025,0.04,0.063,0.1,0.25,0.4,0.63,1.0,1.6,
2.5,4.0,6.3,10.0,16,25.0,40.0,63.0,100.0,160,250.0,360,400.0,630.0); |
3. die Berechnung und Wahl des wertes der rot hervorgehoben werden soll
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| kvs:= (mar/1000)*sqrt(1/p1);
indexko:= 24;
sk:= 0;
for ik:= 1 to 23 do begin
if kvs = kv1[ik] then sk:= ik;
end;
for ik:= 23 downto 1 do begin
if kvs < kv1[ik] then indexko:= ik;
end;
if sk > 0 then begin
kvs1:= kv1[sk];
end;
if sk = 0 then begin
kvs1:= kv1[indexko];
end;
Form2.combobox1.Items.Add(formatfloat('0.000',kvs1)); |
z.b. Ergebnis der Berechnung=0.063
dann steht in die Combobox kommt nun 0.063
ist das Ergebnis = 0.05 dann steht in der Combobox der nächst höhere
Wert in dem Fall auch 0.063 so der Wert(kvs1), der aus der Berechnung zugewiesen wird, soll nun immer eine Rote Farbe haben
4. zuzüglich stehen in der Combobox noch die beiden nächst größeren
werte aus dem array und die beiden nächst kleineren werte(wenn es welche gibt)
das funktioniert auch alles, wie gesagt ich möchte jetzt farblich den Wert
aus Punkt 3. hervorheben lassen
jo, das ist nun mein Problem
Gruß
Major
Code-Tags hinzugefügt. Tino
.
)
