Fórum Como ver se uma string consta dentro de um texto de um Memo #205047
08/01/2004
0
Olá... como faco pra descobrir se dentro de um texto de um memo, existe uma string?
Desde já agradeço.
Desde já agradeço.
Titanius
Curtir tópico
+ 0
Responder
Posts
08/01/2004
Leandro Amorim
Tente adaptar isto:
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;
Responder
Gostei + 0
08/01/2004
Titanius
ola.. eu so queria que ele tipo.. me retornasse true se achou.. mais nada... sera que consigo fazer com esta funcao?
valeu manow...
valeu manow...
Responder
Gostei + 0
08/01/2004
Cebikyn
Tente assim:
ou se quiser colocar numa variável boolean:
if Pos(´string que vcc quer achar´, Memo1.Lines.Text)>0 then //String Encontrda! else //String não encontrada
ou se quiser colocar numa variável boolean:
Variavel := (Pos(´string que vcc quer achar´, Memo1.Lines.Text)>0)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)