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