Como ver se uma string consta dentro de um texto de um Memo
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
Curtidas 0
Respostas
Leandro Amorim
08/01/2004
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;
GOSTEI 0
Titanius
08/01/2004
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...
GOSTEI 0
Cebikyn
08/01/2004
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)
GOSTEI 0