Pos - ele só retorna a posição de uma palavra?
24/09/2004
0
procedure TF_PesErroCli.SpeedButton1Click(Sender: TObject);
Var
posicao:Integer;
copia,pa: String;
begin
DM.ADOT_Cad_Rel.First;
if not DM.ADOT_Cad_Rel.Eof then
repeat
posicao := pos(Edit1.Text,DM.ADOT_Cad_RelERRO.Value);
If posicao > 0 then
Begin
Memo1.Lines.Add(DM.ADOT_Cad_RelERRO);
showmessage(inttostr(posicao));
End;
DM.ADOT_Cad_Rel.Next
until DM.ADOT_Cad_Rel.Eof;
end;
Será que alguem pode me dar uma força
Agradeço desde já!!!
Fábio Feltrin
Posts
24/09/2004
Fábio Feltrin
24/09/2004
Lucas Silva
.... Qual é o texto do memo??
Parece que não existe este texo ´by´ no memo´!
24/09/2004
Pehdepano
ex: pos(´By´, ´abcde/e*f/by/allll´); {retorna 11}
procedure TF_PesErroCli.SpeedButton1Click(Sender: TObject);
Var
posicao:Integer;
copia, pa: String;
begin
DM.ADOT_Cad_Rel.First;
while not DM.ADOT_Cad_Rel.Eof then
begin
posicao := pos(Edit1.Text,DM.ADOT_Cad_RelERRO.Value);
If posicao > 0 then
Begin
Memo1.Lines.Add(DM.ADOT_Cad_RelERRO);
showmessage(copy(DM.ADOT_Cad_RelERRO.AsString, posicao, lenght(Edit1.text));
End;
DM.ADOT_Cad_Rel.Next ;
end;
end;
24/09/2004
Fábio Feltrin
Clique aqui para fazer login e interagir na Comunidade :)