Listen vergleichen

[Fritzew]

So wie ich das sehe hat TiGü recht,
sein Code sollte reichen, könnte man sogar noch etwas beschleunigen wenn man nach dem Finden abbricht.

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;
      break;   // Abbrechen da wir den Process haben
    end;
  end;

[EWeiss]

Zitat von Fritzew:

So wie ich das sehe hat TiGü recht,
sein Code sollte reichen, könnte man sogar noch etwas beschleunigen wenn man nach dem Finden abbricht.

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;
      break;   // Abbrechen da wir den Process haben
    end;
  end;

Ich habe es versucht und das Ergebnis ist leider negativ.
Wenn ich nur so prüfe ist bFound immer true und das Ergebnis wäre mein Task mit der ID die nicht mehr existiert wird nicht beendet.

gruss

[Fritzew]

Wenn es so ist steht der Process in vProcessID.
Dein Problem ist in diesem Fall ein anderes......
Wie wäre es mit Debuggen?

[EWeiss]

Zitat von Fritzew:

Wenn es so ist steht der Process in vProcessID.
Dein Problem ist in diesem Fall ein anderes......
Wie wäre es mit Debuggen?

Das nutzt mir nichts und ja habe ich schon.
Ich muss alle Prozesse mit den ID's in der Liste vergleichen und auf dem wege geht es nicht
weil beim ersten vergleich ich schon dein "Beispiele" mit break.. aus der Liste rausspringe.

False wird nie auftreten.

gruss

[Fritzew]

Emil dann steht das auch da drin,

Delphi-Quellcode:

var
   k, i: integer;
begin
   bFound := false;
   for k := 0 to (vProcList.Count - 1) do
      begin
         for i := 0 to vProzessID.Count do
               vProcList[k].ID = vProzessID[i].ID then
               begin
                  bFound := true;
                  break;
               end;

        if bfound then break;

      end;
end;

Das ist jetzt das gleiche ohne die Find function.....

[EWeiss]

Danke werde es gleich mal versuchen..

Nur nochmal zur vorherigen Version.. mit deinem Break

Bilder sagen mehr als worte.

Beim ersten prüfen durchlauf ich die Liste und wenn der erste Eintrag gefunden wurde schaltest du auf true und springst raus
aus der Funktion es wird also niemals auf die anderen Einträge hin in meiner Liste geprüft.

Deshalb wird false niemals eintreten.
Was ist dann mit der ID 2260 und der 4932 ? die werden in deinem Fall niemals geprüft.

Deine neue Version werde ich mal testen Danke.

EDIT:
vProcList[k].ID hat nur lese Eigenschaft.
deshalb der Umweg über Find

gruss

[Fritzew]

Ok dann fassen wir zusammen, Du willst überprüfen ob einer der einträge in vProzessID in vProcList ist?
Dann lass das break einfach weg.