Du musst mit zwei geschachtelten Schleifen arbeiten.
Oder nimmst gleich ein TDictionary.
EDIT: Oder schreibst einfach:
Delphi-Quellcode:
// prüfen ob aktiver prozess existiert
bFound := false;
for K := 0 to (vProcList.Count - 1) do
begin
if vProzessID.Find(vProcList[K].ID, proc) then
begin
bFound := true;
end;
end;
Nehme an, das es sich um TStringList handelt?