procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
j:Integer;
Posicion:Integer;
begin
for j:= 0 to listbox1.Items.Count - 1 do
begin
for i:=0 to memo1.lines.count-1 do
begin
if Pos(Listbox1.Items[j],memo1.lines[i]) <> 0 then
begin
ShowMessage('Encontrada '+Listbox1.Items[j]);
end;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
nBlanco:Integer;
nCont:integer;
cPalabra:String;
begin
for nCont:=1 to Length(Edit1.text) do
begin
cPalabra:=cPalabra + edit1.text[nCont];
if edit1.text[nCont] = ' ' then
begin
ListBox1.Items.Add(cPalabra);
cPalabra:=''
end;
end;
ListBox1.Items.Add(cPalabra);
end;