Hi Freunde,
ich glaub ich seh mal wieder den Wald vor Bäumen nicht oder aber es ist Zeit für den nächsten Lernschritt ...
ich habe auf nem Form mehrere DBEdit-Felder, Labels und (zunächst leere) Edit-Felder. Bezugnehmend auf die
DB-Edit-Felder sollen in den Edit-Feldern Berechnungen durchgeführt werden; jedoch sind die Berechnungen auch unter den Edit-Feldern abhängig. Kurz gesagt: Bisher ist es so, dass ausgehend vom ersten Edit-Feld, in dem ein Eintrag vorgenommen wird (und anschließend in einer ComboBox ein Berechnungswert ausgewählt wird) in den restlichen Edit-Feldern berechnete Ergebnisse angezeigt werden - das funktioniert auch! Aber:
Was wenn der User einen Wert in einer der Edit-Felder unabhängig vom Wert des ersten Edit-Feldes eingeben will? (Das wäre zumindest wünschenswert)
Wenn z.B. der User den VK-Wert eines Artikels nicht mit dem vorgeschlagenen Wert (also des automatisch errechneten) sondern mit einem frei einzugebenden Wert versehen will, sollten sich die Ergebnisse in den anderen Feldern entsprechend ändern.
Hat jemand ne Idee wie ich das angehen kann?
Freue mich auf Eure Antworten
Emilio
Achso, anbei der bisherige Code
Delphi-Quellcode:
procedure TForm1.cxLookupComboBox1PropertiesCloseUp(Sender: TObject);
var a, c, d , e, f , g, h, i, j, k, l, m, n : Double;
b : Integer;
begin
a := StrToFloat(cxTextEdit1.Text);
b := StrToInt(cxLookupComboBox1.Text);
c := a+(a*b/100);
d := (a/60*100);
e := (d-a);
f := (d-a)*100/d;
g := (d-c)*StrToFloat(cxDBLabel13.Caption)/100;
h := (d*116/100);
i := StrToFloat(cxDBLabel5.Caption);
j := ((c/i)-1)*100;
k := StrToFloat(cxDBLabel9.Caption);
l := ((d/k)-1)*100;
m := StrToFloat(cxLabel28.Caption);
n := ((h/m)-1)*100;
cxLabel14.Caption := Format('EUR ' + '%8.2f', [a+(a*b/100)]);
cxTextEdit5.Text := Format('EUR ' + '%8.2f', [d]);
cxTextEdit2.Text := Format('EUR ' + '%8.2f', [e]);
cxTextEdit3.Text := Format('%5.2f', [f]) + '%';
cxTextEdit6.Text := Format('EUR ' + '%8.2f', [g]);
cxTextEdit4.Text := Format('EUR ' + '%8.2f', [h]);
cxLabel18.Caption := Format('%4.2f', [j]) + '%';
cxLabel19.Caption := Format('%4.2f', [l]) + '%';
cxLabel24.Caption := Format('%4.2f', [n]) + '%';
end;