Probleme mit einer For-Schleife

[Nils_13]

Hi,

sl ist:

Code:

 #include 
 {
   class main = StdClass
   {
     #proc+
     main
     run
     #proc-
   }
 }
 
 proc main
 {
   CreateSButton(10, 10, 20, 50)
 }
 
 proc run
 {
   main
 }

proc ist:

Code:

 main
 run

Warum bekomme ich jeweils 2x die Meldung "main is correct" und "run is correct", statt nur 1x (gewünscht) ?

Delphi-Quellcode:

 for i := 0 to sl.Count - 1 do 
     if Copy(Trim(sl[i]), 1, 4) = 'proc' then
       for j := 0 to procs.Count - 1 do
         if Pos(sl[i], procs[j]) > -1 then
           ShowMessage(procs[j] + ' is correct.');

[Gruber_Hans_12345]

Delphi-Quellcode:

 for i := 0 to sl.Count - 1 do 
     if Copy(Trim(sl[i]), 1, 4) = 'proc' then
       for j := 0 to procs.Count - 1 do
         if Pos(procs[j], sl[i]) > 0 then      // <<<<< eventuell mal so probieren
           ShowMessage(procs[j] + ' is correct.');

[edit], wobei ich mir nicht ganz sicher bin, was du genau machen willst ...

[Nils_13]

Thx. Das war es :)