Procedure in Procedure aufrufen klappt nicht

[mkinzler]

Position ist die falsche Variable!

[EMS]

ja mit ANZ kommt eine 1 im Label aber es sind 2 mal "Test" im text

[Bjoerk]

Das Wort kann ja in der Zeile auch mehrfach vorkommen. Statt des if also zum Beispiel eine while Schiefe:

Delphi-Quellcode:

    Position := Pos(S, Text);
    while Position > 0 do
    begin
      Inc(Anzahl);
      Delete(Text, Position, Length(S));
      Position := Pos(S, Text);
    end;

[EMS]

Damit scheint es jetzt richtig zu sein