Finde ord i memo1 som også er i memo2

er det kun første ord i linien eller et hvilket som helst ord i linien i memo1

Stoney

Kun det første..

function checkmemo( memosource,memocompare,memodist : Tmemo):boolean;
var
i,j : integer;
l : Tstringlist;
begin


  for i := 0 to  memosource.Lines.Count - 1 do
      begin
      L := TStringList.Create;
      L.Delimiter := ' ';  (*space*)
      L.DelimitedText := memosource.Lines[i];

            for j := 0 to memocompare.Lines.Count - 1 do

                begin
                  if pos(l[0],memocompare.Lines[j]) > 0 then

                  memodist.Lines.Add(memocompare.Lines[j]);
                end;


L.Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
checkmemo(memo1,memo2,memo3); // navnene på dine 3 memoer
end;

Stoney

Tak for det stoney :o) Det ser ud til at virke