масивы delphi

[hatulya]

есть 2 строковых массива. Оба выводятся в Memo1 и Memo2 соответственно. Необходимо найти в них одинаковые элементы и вывести их в ListBox посредством ButtonClick.

procedure TForm1.Button2Click(Sender: TObject);
const
SIZE=3; // размер массива
var
a:array[1..SIZE] of string;
n: integer; // количество строк, введенных в поле Memo
i:integer; // индекс элемента массива
st:string;
 
begin
n:=Memo1.Lines.Count;
for i:=1 to n do
a[i]:=Form1.Memo1.Lines[i-1]; // строки Memo пронумерованы с нуля
 
// вывод массива в окно сообщения
 
if n > 0 then begin
st:='Введенный массив:'+#13;
for i:=1 to n do
st:=st+IntToStr(i)+' '+ a[i]+#13; Form1.ListBox1.Items.Add(st);
end;
end;
 
   procedure TForm1.Button3Click(Sender: TObject);
const
SIZE=3; // размер массива
var
b:array[1..SIZE] of string;
n: integer; // количество строк, введенных в поле Memo
i:integer; // индекс элемента массива
st:string;
begin
n:=Memo2.Lines.Count;
for i:=1 to n do
b[i]:=Form1.Memo2.Lines[i-1]; // строки Memo пронумерованы с нуля
// вывод массива в окно сообщения
if n > 0 then begin
st:='Введенный массив:'+#13;
for i:=1 to n do
st:=st+IntToStr(i)+' '+ b[i]+#13; Form1.ListBox1.Items.Add(st);
end;
end;
 
 procedure TForm1.Button4Click(Sender: TObject);
  var
      z: integer;
begin
 
  z:= MessageDlg(' вывести общую характеристику? , да, или нет?', MtConfirmation, [mbYes,mbNo],0) ;
    if z=idYes
    then
   Form1.ListBox1.Items.Add('общее') ;
  end;

[MadReason]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to Memo1.Lines.Count do
for j:=0 to Memo2.Lines.Count do
if Memo1.Lines.Strings[i]= Memo2.Lines.Strings[j]
then ListBox1.Items.Add(Memo1.Lines.Strings[i])
end;

с тебя пиво))

[hatulya]

само сабой! вот спасибки!!!