Código Delphi [-] if (CompareStr(Edit1.Text, 'rep1') = 0) then // Imprime el reporte 1 else if (CompareStr(Edit1.Text, 'rep2') = 0) then // Imprime el reporte 2
if (CompareStr(Edit1.Text, 'rep1') = 0) then // Imprime el reporte 1 else if (CompareStr(Edit1.Text, 'rep2') = 0) then // Imprime el reporte 2