Fernando,
Troque o array por tstrings !!
Isto deve funcioanr 100% ..
[ ]´s
Moacir
Fernando Luiz Bortolanzza escreveu:
> Mais uma peguntinha, e se for uma unit exclusive para funções que é o meu
> caso?
> Não tenho type .. e se eu colocar esse array (MeuArray = Array of String ; )
> embaixo da interface ou uses ele não reconhece, como faria neste caso?
>
>
>
> Minha Unit:
>
> =========
>
> unit uFuncoes;
>
>
>
> interface
>
>
>
> Uses
>
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>
> Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, FMTBcd, DB, SqlExpr, ImgList,
>
> ComCtrls;
>
>
>
>
>
> // PROTOTIPAÇÃO DE FUNÇOES
>
> function Formata_Campo(iTipo:Integer; sDados: String): String;
>
>
>
> implementation
>
>
>
> uses Math, uConexao, uPrincipal;
>
>
>
> // FUNÇÕES
>
> function Formata_Campo(iTipo:Integer; sDados: String): String;
>
> begin
>
> end;
>
>
>
>
>
> Atenciosamente,
>
> Fernando
>
>
>
>
>
>
>
> De: Moacir - Prisma <[EMAIL PROTECTED]>
> Data: Qua Jun 28, 2006 10:41 am
> Assunto: Re: [delphi-br] Function retornando Array
>
> 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;
>
>
>
>
>
> [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
