4 respuestas en este tema

[edgar_prospero]

que hay amigos tengo el siguiente codigo pero nomas me funciona una vez, lo que quiero hacer es que si en el combobox dice entradas en un edit llamado folio me muestre el folio correspondiente a entradas y si dice salidas me muestre el folio corrspondiente a salidas para entradas corresponde folio y para salidas folio2, pero añl correr el programa solo me funciona la priemera vez ya despues escojo entradas y salidas y ya no se cambia el folio

delphi

procedure TForm4.ComboBox1Change(Sender: TObject);
var A : String;
begin
 
if (ComboBox1.Text='ENTRADA') THEN
        begin
 query.Close;
     query.SQL.Text:='SELECT folio FROM entradas ORDER BY folio desc LIMIT 1';
     query.Open;
    folio.text := IntToStr(query.FieldByName('folio').asInteger +1);
 
        end
       else begin
 if (ComboBox1.Text='SALIDAS') THEN
 
 query.Close;
     query.SQL.Text:='SELECT folio2 FROM entradas ORDER BY folio2 desc LIMIT 1';
     query.Open;
    folio.text := IntToStr(query.FieldByName('folio2').asInteger +1) ;
 
       end;

[Fenareth]

Se me ocurre que el texto no esté coincidencio exactamente... porqué la condición no la manejas mejor con la propiedad ItemIndex del ComboBox que te da el índice del elemento que tienes seleccionado... ???

Saludox !

[edgar_prospero]

me puedes explicar eso ultimo que mencionas de la propiedad item index por favor

[edgar_prospero]

tenias toda la razon me estaba equivocando en entrada ya que es entradas jeje gracias por tu ayuda con ese cambio ya me funciono correctamente

[eduarcol]

Para que no tengas ese problema te sugiero utilices un TRadioGroup

Saludos