Functions!

Question

Ol� pessoal estou colocando uma fun��o dentro de uma dll que me retorna 3 valores so que esta dando erro acho q seja algo relacionado com as variaveis pq para retornar 3 valores acho eu que eu tenha q...

Macario · Answer

colega nos passe um trecho da fun�a�...

Zacca · Answer

[quote:0f00574c25]function Divide(str:string;var ini:string;var fim:string;var meio:string):string;var  tini,tfim,i:integer;begin  ini:=��;  meio:=��;  fim:=��;  for i:= 1 to Length(str) do    begin      if pos(str,� �) > 0 then begin        tini:=pos(str,� �);        //ShowMessage(�str �+ini+� tamanho �+inttostr(tini));        Break;        end;      ini:=ini+str;    end;  for i:= length(str) downto 0 do    begin      if pos(str,� �) > 0 then begin        tfim:=pos(str,� �);        //ShowMessage(�str �+fim+� tamanho �+inttostr(tfim));        Break;        end;      fim:=str+fim;    end;  {meio1:=length(ini)+1;  meio2:=length(str)-length(fim);}  for i:=length(ini)+1 to length(str)-length(fim) do    begin      meio:=meio+str;    end;end;[/quote:0f00574c25]cara o problema � o retorno do �meio� acho q seja isso... pq quando eu tiro o for do �meio� nao da erro nenhum.......

Zacca · Answer

[quote:e27d152df1=�zacca�]Ol� pessoal estou colocando uma fun��o dentro de uma dll que me retorna 3 valores so que esta dando erro acho q seja algo relacionado com as variaveis pq para retornar 3 valores acho eu que eu tenha que enviar as variaveis de retorno dentrentro dos parametros da funcao, quando eu fecho o programa da erro de invalid pointer operation, acho q seja algo simples se alguem puder me ajudar... obrigadoo..[/quote:e27d152df1]...

Marcelo Saviski · Answer

se o erro for no for do �meio� tnta ent�o triocar esse for por um Copy:

trocar:

for i:=length(ini)+1 to length(str)-length(fim) do 
begin 
meio:=meio+str[i]; 
end;

por:

meio := Copy(str, length(ini)+1, length(str)-length(fim) - length(ini)+1);

Algo assim

Zacca · Answer

vou testar colocar o copy mas � que eu chamo as funcoes em um loop parece que o erro � por este motivo tem alguma coisa a ver..?/...

Marcelo Saviski · Answer

[quote:cfd1a904b4=�zacca�]vou testar colocar o copy mas � que eu chamo as funcoes em um loop parece que o erro � por este motivo tem alguma coisa a ver..?/[/quote:cfd1a904b4]at� pode, se voc� tentar acessar um indice v�lido, tipo str[-150], ou algo assim, mas acho que isso n�o ocorre na sua function...

Allen74 · Answer

zacca,A passagem de par�metros como var para DLLs n�o � recomendada porque a DLL e seu programa n�o compartilham a mesma �rea de mem�ria. N�o sei se com a utiliza��o da unit ShareMem da borland (mais informa��es no help do Delphi) poderia resolver este problema (se � que voc� j� n�o est� utilizando).O mais indicado seria utilizar PChar como par�metro para a fun��o.Consulte estes artigo para saber maiores detalhes sobre a cria��o de DLLs com o delphi://www.avdf.com/aug95/delf_dll1.html//www.avdf.com/aug95/delf_dll2.htmlDentro do segundo artigo, este trata mais especificamente das strings://www.avdf.com/aug95/samp2_dll2.htmlUm bom artigo em portugu�s, mais atualizado na quest�o das strings://www.cristianok.hpg.ig.com.br/art2/...

F�rum Functions! #179182