Código Delphi
[-]
If DataModule2.IBSQL1.FieldByName('ref_type').AsString = ['A','PA'] then
begin
StringGrid1.cells[0, i] := 'Alternador';
i := i+1;
StringGrid1.RowCount := i;
end
Quiero hacer algo asi, si es posible. Juntar dos condiciones para un if y que me realicen la misma operacion, dado que no puedo usar
case/of porque son strings y en la ayuda me especifica que con ese tipo de variables no funciona.
¿Alguna sugerencia?