como achar uma linha dentro de um memo

[cezarhlima 0]

Tenho dois memo, sendo que um deles pega um arquivo do banco de dados e outro de uma pasta especifica, eu comparo os dois para ver se sao iguais, se nao sao entao eu tenho um listbox que me mostra em qual linha esta a diferença, agora preciso que quando eu clique na linha do listbox ele vá direto para a linha do memo que esta diferente, alguem pode me ajudar?

[quintelab 91]

Movido Delphi > Laboratório de scripts (Delphi) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Delphi

 

cezarhlima, seja bem vindo ao Fórum iMasters, conheça as regras do Fórum: Regras do Fórum

[Raficcha 1]

Tente isto

 

Procedure SelecionarLinha(Texto: String; Memo: TMemo);
var
	Cont : integer;
	Caracteres: Integer;
begin
	Caracteres := 0;
	for cont := 0 to Memo.Lines.Count-1 do
	begin
		if (Memo.Lines[Cont] = Texto) then
		begin
			Memo.SetFocus;
			Memo.SelStart := Caracteres;
			Memo.SelLength := Length(Memo.Lines[Cont]);
			Break;
		end
		else
			Inc(Caracteres, Length(Memo.Lines[Cont])+2);
	end;
end;

:D