Adriano Santos wrote:
> 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;
function ComArray(...): Integer;
begin
for Result := Low(AArray) to High(AArray) do
if SameText(AArray[Result], AElemento) then
Exit;
Result := -1;
end;
--
Joao Morais
> 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
>>
>
