Ver Mensaje Individual
  #2  
Antiguo 24-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola julyus.

Primero te comento que las funciones declaradas así:
Código Delphi [-]
function TFMListenerService.SearchEvents( NewEventlistArray: TEventslistArray);
te van a dar error de sintáxis. Tendrías que declararlas así:
Código Delphi [-]
function TFMListenerService.SearchEvents( NewEventlistArray: TEventslistArray): Resultado;

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:
Código Delphi [-]
function TForm1.FuncionDemo(Lista: TStrings): TStrings;
var
  i: Integer;
begin
  for i:= 0 to Lista.Count - 1 do
   Lista[i]:= Copy(Lista[i],2,Length(Lista[i]));
  Result:= Lista;
end;

Un ejemplo de llamada:
Código Delphi [-]
var
  Ts: TStrings;
begin
  Ts:= TStringList.Create;
  try
    Ts.Add('Uno');    
    Ts.Add('Dos');
    Ts.Add('Tres'); 
    Ts:= FuncionDemo(Ts);
    ListBox1.Items:= Ts;
  finally
    Ts.Free;
  end;

Espero que sea eso lo que andas buscando...

Saludos.

Última edición por ecfisa fecha: 24-08-2010 a las 01:42:18.
Responder Con Cita