Fernando,
Tente assim:
---------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs;
type
MeuArray = Array of String ; // <<---- AQUI
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Function Minha_Funcao(sDados:String):MeuArray; // <<---- AQUI
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function TForm1.Minha_Funcao(sDados:String):MeuArray ; // <<---- AQUI
Var Teste : MeuArray; // <<---- AQUI
Begin
Teste[1]:='teste';
Teste[2]:='teste2';
Result:= Teste;
End;
end.
---------------------------------------------
[ ]´s
Moacir
Fernando Luiz Bortolanzza escreveu:
> Ola pessoal, estou com uma duvida cruel
>
> Como faço no Delphi para fazer 1 função que receba alguns parâmetros e
> retorne um array de strings?
>
>
>
> Tentei assim mas não deu.
>
> Alguém sabe como fazer?
>
>
>
>
>
> ==================================
>
> Function Minha_Funcao(sDados:String):Array;
>
>
>
> Function Minha_Funcao(sDados:String):Array;
>
> Var Teste : Array[1..2] of String;
>
> Begin
>
> Teste[1]:=’teste’;
>
> Teste[2]:=’teste2’;
> Result:= Teste;
>
> End;
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
