Код:
var
first, second, third:TStringList;
i,k:integer;
begin
first:=TStringList.Create;
second:=TstringList.Create;
third:=TstringList.Create;
first.Add('Oleg'); first.Add('Vladimir'); first.Add('Andrey');
second.Add('Oleg'); second.Add('Vladimir'); second.Add('Andrey'); second.Add('Sergey');
Memo1.Lines:=first;
Memo2.Lines:=second;
for I := 0 to second.Count do
я верно иду?
p.s. до этого не работал с StringList(( Я немного не понял StringList2.IndexOf(StringList1[index]);