Das mit dem Funktionszeiger ist mir dann doch ein bischen zu 'hoch'
Habt ihr aber beide gut beobachtet, habe oben ein Fehler in den Abfragen
himitsu hatte das schon ganz richtig gesehen, das vereinfachen der Abfrage bringt doch schon einiges...
Habe mal ein StringGrid mit meinen Qualitätsstufen gefüllt und dann per Button frage ich es ab.
Nicht gerade die eleganteste Möglichkeit, aber es reicht mir
Delphi-Quellcode:
procedure TfrmConfig.Button1Click(Sender: TObject);
var
i: Integer;
begin
LabelQGrade.Caption := '';
for i := StringGrid1.RowCount-1 downto 1 do
begin
if ((StringGrid1.Cells[2,i] = '>=') and (StrToFloat(EditValue1.Text) >= StrToFloat(StringGrid1.Cells[3,i]))) or
((StringGrid1.Cells[2,i] = '>') and (StrToFloat(EditValue1.Text) > StrToFloat(StringGrid1.Cells[3,i]))) or
((StringGrid1.Cells[2,i] = '<=') and (StrToFloat(EditValue1.Text) <= StrToFloat(StringGrid1.Cells[3,i]))) or
((StringGrid1.Cells[2,i] = '<') and (StrToFloat(EditValue1.Text) < StrToFloat(StringGrid1.Cells[3,i]))) then
LabelQGrade.Caption := StringGrid1.Cells[1,i]
end;
end;
Vielen Dank an euch, dann mache ich mich mal an das abspeichern des Grids ^^