Re: [delphi-br] Passar TStringList como Parâmet ro

[Adriano Santos]

Ricando, como o Rubem disse qualquer tipo de parâmetro pode ser passado. 
Até uma outra procedure (TPROCEDURE) pode ser passado. Olha só:

procedure TForm1.Button1Click(Sender: TObject);
const
  ArrayTeste : array [0..2] of string = ('adriano', 'jose', 'felipe');

  function ComArray(AArray : array of string; AElemento: string): Integer;
  var
    I : Integer;
  begin
    for I := Low(AArray) to High(AArray) do
      if AArray[I] = AElemento then
      begin
        Result := I;
        Break;
      end;
  end;
begin
  ShowMessage('O índice do elemetro no array é: ' + 
IntToStr(ComArray(ArrayTeste, 'adriano')));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MinhasStrings: TStrings;
  function ComTStringList(AStrings : TStrings; AElemento: string): Integer;
  var
    I : Integer;
  begin
    for I := 0 to AStrings.Count do
      if AStrings[I] = AElemento then
      begin
        Result := I;
        Break;
      end;
  end;
begin
  MinhasStrings:= TStringList.Create;
  MinhasStrings.Add('adriano');
  MinhasStrings.Add('jose');
  MinhasStrings.Add('felipe');

  ShowMessage('O índice do elemetro no stringlist é: ' +
    IntToStr(ComTStringList(MinhasStrings, 'felipe')));

  MinhasStrings.Free;
end;


Ricardo César Cardoso respondeu:
>
> Calma lá Rubem... larga as pedras.
>
> Seguinte: estou SEM o Delphi pra testar se terei algum erro de 
> compilação ao passar uma TStringList como parâmetro em uma function. 
> Eu sei que não posso passar um array, mas quanto ao TStringList não 
> tenho certeza. Era apenas uma dúvida. Mas pela resposta dá pra 
> perceber que não há problemas então.
>
> Sds,
> Ricardo.
>
> Rubem Nascimento da Rocha <[EMAIL PROTECTED] 
> <mailto:djpardalrocha%40hotmail.com>> escreveu:
> Ué, qual é o problema? Num tô entendendo! Pode ser usado qualquer tipo 
> de dados nos parâmetros em uma procedure ou function. Explica melhor 
> (em detalhes) qual é a tua dificuldade. Sds.
>
> To: [EMAIL PROTECTED] 
> <mailto:delphi-br%40yahoogrupos.com.brFrom>: 
> [EMAIL PROTECTED] 
> <mailto:ricardo_engsoft%40yahoo.com.brDate>: Thu, 26 Jul 2007 13:57:59 
> -0300Subject: [delphi-br] Passar TStringList como Parâmetro
>
> Boa tarde amigos!A dúvida é meio bobinha, mas como estou sem o Delphi 
> pra testar, preciso de sua ajuda.É possível passar um TStringList como 
> parâmetro de uma function? Algo como no exemplo abaixo:[code]Function 
> Faz_Alguma_Coisa(Alguns_Parametros: TStringList): 
> Real;[/code]Grato,Ricardo.Flickr agora em português. Você cria, todo 
> mundo vê. Saiba mais.[As partes desta mensagem que não continham texto 
> foram removidas]
>
> __________________________________________________________
> Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao 
> Messenger!
> http://spaces.live.com/signup.aspx <http://spaces.live.com/signup.aspx>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> Mensagens neste tópico (1) Responder (através da web) | Adicionar um 
> novo tópico
> Mensagens | Arquivos | Fotos | Links | Banco de dados
>
>
> Alertas do Yahoo! Mail em seu celular. Saiba mais.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
> ------------------------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition. 
> Version: 7.5.476 / Virus Database: 269.10.20/919 - Release Date: 26/7/2007 
> 09:56
>   

-- 

------------------------------------------------------------------------
*Adriano Santos*