2 pytanka [usuwanie tagów | wyszukiwanie plików ]

Jak zrobić, żeby program wyszukiwał w katalogu w którym się znajduje wszystki pliki i ładował je do ListBox-a?

Jak usuwaćtagi HTML?

PS: Korzystałem z wyszukiwarki i pół godziny szukałem i odpowiedzi nie znalazłem!

/* Jak w temacie wyrzuciło: "2 pytanka" to nic dziwnego, że znaleźć nie mogłeś */

Nie szukałem w wyszukiwarce 2 pytanka tylko usuwanie tahów HTML

function Delhtml(s: string): string; // Usuwanie tagów HTML
var  i : word;
      kasuj : shortint;

begin
  result:='';
  kasuj := 0;
  for i := 1 to length(s) do
  begin
   if s[i] = '<' then inc(kasuj);
   if kasuj = 0 then result := result + s[i];
   if s[i] = '>' then dec(kasuj);
 end;
end;

Oczywiście funkcja nie zwraca uwagi na to, czy jest to prawdziwy tag HTMLa, czy też słowo <szafka> na przykład. Aby usuwać tylko tagi HTML (rzeczywiste!) trzeba się zaopatrzeć w HTML parser (JVCL).

A skąd go wziąc ?

http://www.sourceforge.net

ad.1
najprostrze to tworz dynamicznie filelistboxa przypisuj directory i zmien items listboxa na items filelistboxa i potem zwolnij jego pamiec...
ad.2
w gotowcach na pewno widzialem funkcje do usuwania tagow. (byla ostatnio)

do wyszukiwania nazw plkow:
kod z pascala wiec musisz troszke przerobic:

a:array [1..1000] of string;

procedure szukaj;
var i :integer;
      info :searchrec;

      p :string;

begin
i:=1;
p:='C: \ *.*';     //bez spacji
findfirst(p,anyfile,info);
while doserror<>18 do
 begin 
 a[i]:=info.name;
 i:=i+1;
 findnext(info);
 end;
end;