FoxPr� para Delphi----SEEK

Question

Pessoal...
estou com a seguinte fun��o em foxpr�:

FOR I := 1 to LENG(ALLTRIM(mseqcodbar))/2
mprocura := COPY(mseqcodbar,mpos,2);
SEEK mprocura

minha d�vida � o que �SEEK� faz???
como passar pro delphi esse c�digo???

Inutaishou · Answer

Catharina, o Seek � o mesmo que o FindKey(Ou Find) do Delphi...
N�o sei se est� certo, mas acho que para passar isso para Delphi � assim:

For I := 1 To Lenght(Trim(mseqcodbar))/2 Do Begin
mprocura := copy(mseqcodbar,mpos,2);
Tabela.FindKey(mprocura);
End;

Veja se funciona...

Inutaishou · Answer

Catharina, a tabela que voc� est� acessando � uma tabela dbf???...

Catharina · Answer

Eu tenho essa fun��o em fox que � dbf, mas na verdade estou reaproveitando essa fun��o no Delphi - Sql ....

Inutaishou · Answer

Ahhhh... Entendi......

Catharina · Answer

FUNCTION CONVERTECODBARRA(Str:String):Char;
var mpos, mprocura,mlinhacodigo :string;
I :integer;
begin
mlinhacodigo := �!�;
mpos := �1�;

FOR I := 1 downto (LENGTH(ALLTRIM(mseqcodbar))/2) do begin
mprocura := inttostr(COPY(mseqcodbar,mpos,2));
Tabela.FindKey(mprocura);
mlinhacodigo := mlinhacodigo + PROT069.ascii;
mpos := mpos + 2;
end;

Estou com v�rios erros nesta fun��o:
na linha do For:
[Error] rel_notificacao.pas(625): Incompatible types: �Integer� and �Extended�

na linha seguinte:(mprocura)
[Error] rel_notificacao.pas(626): Incompatible types

Inutaishou · Answer

Tente corrigir o For... Para:[code:1:4f899fb510]FOR I := 1 downto StrToInt(FloatToStr(LENGTH(ALLTRIM(mseqcodbar))/2)) do begin [/code:1:4f899fb510]E quanto ao outro erro, � necess�rio saber que tipo de vari�vel � mseqcodbar......

Catharina · Answer

mseqcodbar: string;Se poss�vel gostaria de tirar outra d�vida, � o seguinte:nessa mesma fun��o ele abre uma tabela asc, em resumo,n�o estou entendendo o pq, teria como me explicar essa fun��o? Isso tudo � pq estou fazendo um relat�rio pra impress�o de um boleto banc�rio BB, com codigo de barra.Se puder me ajudar, agrade�o... realmente estou confusa.//Essa fun��o � a original em Fox-Pr�FUNCTION CONVERTECODBARRA()PARAMETERS seqcodbarm.selecionado = ALIAS()SELECT PROT069m.linhacodigo = �!�m.pos = 1FOR I = 1 to LEN(ALLTRIM(m.seqcodbar))/2m.procura = SUBSTR(m.seqcodbar,m.pos,2)SEEK m.procuram.linhacodigo = m.linhacodigo + PROT069.asciim.pos = m.pos + 2ENDFOR m.linhacodigo = m.linhacodigo + CHR(34)RETURN m.linhacodigo...

F�rum FoxPr� para Delphi----SEEK #172094