IF-Abfrage genererieren

[wurz3l]

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 ^^