15. oktober 2005 - 12:55
Der er
3 kommentarer og
1 løsning
Finde ord i memo1 som også er i memo2
Jeg har to memo-bokse som skal undersøges, for om der første ord på linien også findes i den anden boks, men ikke nødvendigvis på samme linie...
Findes det skal linien fra memo2-boksen kopieres ind i en memo3..
Det er ikke altid at begge memo-bokse har lige mange linier, hvis det skulle have nogen betydning..
Er der en der har en ide til hvordan dette gøres nemest ??
15. oktober 2005 - 16:13
#3
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
