Código Delphi [-] with table1 do begin Cadena=FindField('nombre').AsString; end; Delete(Cadena,5,2);
with table1 do begin Cadena=FindField('nombre').AsString; end; Delete(Cadena,5,2);