Hallo an alle,
ich habe folgendes Problem ich habe ein Editfeld wo mich Beträge eintrage dieses möchte ich mit folgender Abfrage prüfen und dementsprechend die Auswhlen treffen
procedure TForm1.BitBtn1Click(Sender: TObject);
var i, t, g, h: Real;
begin
i := strtofloat(edit1.text);
t := 2500;
g := 15000;
h := 15001;
if i > t then Checkbox1.Checked := true;
Checkbox2.Checked := false;
Checkbox3.Checked := false;
if i > t then Checkbox2.Checked := true;
Checkbox1.Checked := false;
Checkbox3.Checked := false;
if i < g and if i > h then Checkbox3.Checked := true;
Checkbox1.Checked := false;
Checkbox2.Checked := false;
if checkbox1.Checked = True then Combobox1.Visible := True;
Combobox2.Visible := False;
Combobox3.Visible := False;
if checkbox2.Checked = True then Combobox2.Visible := True;
Combobox1.Visible := False;
Combobox3.Visible := False;
if checkbox3.Checked = True then Combobox3.Visible := True;
Combobox2.Visible := False;
Combobox1.Visible := False;
end;
Ich hoffe es kann mir da jemand helfen ich bekomme es nicht hin das er den richtigen Wert ermittel und mir dann die entsprechende Combobox öffnet.
Bis denne
Michael
ich habe folgendes Problem ich habe ein Editfeld wo mich Beträge eintrage dieses möchte ich mit folgender Abfrage prüfen und dementsprechend die Auswhlen treffen
procedure TForm1.BitBtn1Click(Sender: TObject);
var i, t, g, h: Real;
begin
i := strtofloat(edit1.text);
t := 2500;
g := 15000;
h := 15001;
if i > t then Checkbox1.Checked := true;
Checkbox2.Checked := false;
Checkbox3.Checked := false;
if i > t then Checkbox2.Checked := true;
Checkbox1.Checked := false;
Checkbox3.Checked := false;
if i < g and if i > h then Checkbox3.Checked := true;
Checkbox1.Checked := false;
Checkbox2.Checked := false;
if checkbox1.Checked = True then Combobox1.Visible := True;
Combobox2.Visible := False;
Combobox3.Visible := False;
if checkbox2.Checked = True then Combobox2.Visible := True;
Combobox1.Visible := False;
Combobox3.Visible := False;
if checkbox3.Checked = True then Combobox3.Visible := True;
Combobox2.Visible := False;
Combobox1.Visible := False;
end;
Ich hoffe es kann mir da jemand helfen ich bekomme es nicht hin das er den richtigen Wert ermittel und mir dann die entsprechende Combobox öffnet.
Bis denne
Michael
Comment