FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
funcion que me regresa un arreglo
hola amigo hace 3 años no programo en delphi algunas cosas las he olvidado quiero crear una function que me regrese un array
ejemplo
mi pregunta es que tengo que enviarle 25 parametros a esta funcion para evaluarlos dentro de esta debo nombrar los 25 parametro y sus tipos de campo diciendo que NewEventlistArray me devolvera mi arreglo ya evaluado?? asi??
gracias si alguien me explica |
#2
|
||||
|
||||
Hola julyus.
Primero te comento que las funciones declaradas así: te van a dar error de sintáxis. Tendrías que declararlas así:
Ahora, si lo que enviás es un arreglo de strings y la función devuelve el mismo arreglo modificado, me parece, que te conviene usar TStrings. Por ejemplo esta función te devuelve los strings sin el primer caracter:
Un ejemplo de llamada:
Espero que sea eso lo que andas buscando... Saludos. Última edición por ecfisa fecha: 24-08-2010 a las 01:42:18. |
#3
|
||||
|
||||
confused ??
no se si te entendi bien
Código Delphi [-]type TEventslistArray = array[0..58] of string; function SearchEvents(sIMEI: string; iCompanyId : integer; sVehicleId : string; iCurrSpeed,iCurrRPM,iAccDeccValue :integer; bDIN1, bDIN2, bDIN3, bDIN4 : Boolean; fAIN1, fAIN2, fAIN3, fAIN4 : Extended; iGSMSignal, iCurrentProfile : integer; fAcelerometerData, fGPSSpeed, fPowerSuplyVoltage, fBatteryVoltage, fBatteryCurrent, fGPSPower, fPCBTemperature, fTempSensor1, fTempSensor2, fTempSensor3, fFuelCounter, sButtonInput, fCan0, fCan1, fCan2, fCan3, fCan4, fCan5, fCan6, fCan7, fCan8, fCan9 : Extended; bGeoZone1, bGeoZone2, bGeoZone3, bGeoZone4, bGeoZone5, bGeoZone6, bGeoZone7, bGeoZone8, bGeoZone9, bGeoZone10, bGeoZone11, bGeoZone12, bGeoZone13, bGeoZone14, bGeoZone15, bGeoZone16, bGeoZone17, bGeoZone18, bGeoZone19, bGeoZone20 : Boolean; fVirtualOdometer : string; sCurrOperatorCode : Extended; bMovement : Bool ) :TEventslistArray; nose si mi :TEventslistArray; devolvera mi arreglo ?? esto es un web service por eso no lo he probado en forms no se si funciones la otra duda es si tipo los campos se genere algun problema gracias... |
#4
|
||||
|
||||
confused ??
no se si te entendi bien
[-][/delphi] nose si mi :TEventslistArray; devolvera mi arreglo ?? esto es un web service por eso no lo he probado en forms no se si funciones la otra duda es si tipo los campos se genere algun problema gracias... |
#5
|
||||
|
||||
Hola julyus.
Si la función SearchEvents la declaraste para que devuelva un TEventslistArray y dentro de ella asignas a la variable Result un TEventsListArray, te va a devolver eso sin duda alguna. Si no comprendí bién tu duda, por favor hacemelo saber. Saludos. Última edición por ecfisa fecha: 24-08-2010 a las 19:43:09. |
#6
|
||||
|
||||
hola amigo por la ayuda
la duda que me queda es si miras los campos que envio tienen tipo, el
array es de tipo string esto me daria errores? ahora lo que quiero es lo siguiente NewArrayData es un array que va a recibir los resultados de SearchEvents el resultado del array lo voy a pasar a este para hacer un ulitimo proceso fVirtualOdometer, sCurrOperatorCode, bMovement); gracias por tu tiempo |
#7
|
||||
|
||||
No tenés nada que agradecer.
A ver si con esto solucionamos algo...
En este caso pasas y recibis un RecSearchEvents. (o el nombre que quieras darle) Tenés que cargar los valores en el record antes de llamar a la función por ej:
Nota: No es necesario, pero al ser tantos campos para una mayor claridad quizá te convenga declarar el registro así:
Es mas o ménos lo que buscabas ? Saludos. Última edición por ecfisa fecha: 24-08-2010 a las 21:42:37. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cosulta de BDF no regresa nada | eduardo_2009 | Tablas planas | 3 | 21-08-2007 15:00:49 |
??que regresa un query?? | david duarte | Tablas planas | 5 | 22-05-2006 17:04:53 |
Funcion SUM me regresa una cadena | paty_rlopez | Firebird e Interbase | 6 | 18-04-2006 15:13:10 |
SQLClientDataSet no regresa lo esperado | EITB | OOP | 2 | 27-09-2004 18:45:25 |
Como devuelvo un Arreglo en Función | Prophoenix | Varios | 1 | 30-05-2003 19:40:58 |
|