Tjekke memo for indhold

P*s så glemte jeg lige at skrive, at hvis der findes 2 ens linjer, skal linjen i memo1 farve rød...

Ikke at jeg ved hvordan du kan tjekke det, men hvis du vil farve én linje skal du i stedet bruge en TRichEdit :)

nårh ja, så ændre vi lige memo1 til richedit1..., men er der ikke nogen som har løsning på problemet

for i := 0 to memo1.lines.count-1 do
if memo2.lines.indexof(memo1.lines[i]) <> -1 then
begin
    // Dub. fundet
end;

Hvad med det her? Er ikke testet, da jeg ikke har Delphi her.

for i := 0 to Memo1.Lines.Count-1 do
begin
  for j := 0 to Memo2.Lines.Count-1 do
  begin
    if (Memo1.Lines[i] = Memo2.Lines[j]) then
    begin
      Label1.Caption := 'Memo1 linie ' + Memo1.Lines[i] + ' = ' +
      'Memo2 linie ' + Memo2.Lines[j];
    end;
  end;
end;

hvordan farver man den fundne linje rød?

Skal det være TMemo'er? Bliver der skrevet i nogen af memoerne? Hvis ikke virker det mere fornuftigt at bruge en TListBox med style sat til OwnerDrawFixed. Derefter er det let at tegne vha. dens OwnerDraw-event. I en TMemo er det svært at finde positionen af en given tekst for gennemløb af dens Lines kan ikke bruges. Du må gennem dens Text-property - hver gang.

I en TRichEdit skal du først finde startposition, dernæst længden af teksten og endelig vælge en farve:

  RichEdit.SelStart := 12; // Markørposition 12
  RichEdit.SelLength := 10; // og 10 karakterer frem
  RichEdit.SelAttributes.Color := clRed; // farv'n' rød

I en almindelig Memo kan du ikke farve en enkel linie roed, som scorpe siger.

takker