Procedure in Procedure aufrufen klappt nicht

[mkinzler]

inc(Position); //ANZ hochzählen Falsche Variable?

[Sir Rufo]

Man sieht es besser, wenn man den gesamten Kontext betrachtet und den alten Code auskommentiert:

Delphi-Quellcode:

procedure String_Zaehler(
  var T : Textfile; // Datei, in der gesucht werden soll (als Textfile-Referenz)
   s : string; // Suchtext
   var Anz : Integer // Anzahl der gefundenen Stellen
 );
var
  position,laenge:integer;
  text:string;
begin
  while not eof(T) do
  begin
     Readln( T, Text ); // lesen aus T(Tist LDatei) und in Text zwischen speichern
     Position := pos( s, Text ); // Position von s(Eingabe aus Edit1.text)in Text bestimmen
     laenge := LENGTH( s ); // Länge von dem Wort anzeigen
     delete( Text, position, laenge ); // Wort löschen (aus Text) an Position des Ersten Bustabens
                                       // mit der länge(aus laenge);
     // -- alt --
     // inc( ANZ ); // ANZ hochzählen

     // -- neu --
     IF Position > 0 then
     begin
       inc( Position ); // ANZ hochzählen
     end;
  end;
end;

[EMS]

ich denke wenn der ja bei position dann einen Wert hat dann soll der sich den merken und dann die ANZ hochzählen
Oder liege ich da falsch?

[mkinzler]

Nein:
1. Hast du ja den gefundenen Suchtext aus dem String entfernt, daher ist die ursprüngliche Postion uninteressnat.
2. Wenn due den Text an Position 100 gefunden hast hast du ihn 1 mal gefunden und nicht 101 mal
3. Postion wird mit der nächsten Fundpostion oder ein wieder überschrieben

[Sir Rufo]

Zitat von EMS:

ich denke wenn der ja bei position dann einen Wert hat dann soll der sich den merken und dann die ANZ hochzählen
Oder liege ich da falsch?

Dann zähl doch auch ANZ hoch ...

Damit inc( Position ); // ANZ hochzählen wird position hochgezählt, auch wenn der Kommentar etwas anderes verlauten lässt, aber es ist nur ein Kommentar

[EMS]

ich hab das jetzt so und es wird immer 0 angezeigt

Delphi-Quellcode:

procedure String_Zaehler(
  var T : Textfile; // Datei, in der gesucht werden soll (als Textfile-Referenz)
   s : string; // Suchtext
   var Anz : Integer // Anzahl der gefundenen Stellen
 );

var
  position,laenge:integer;
  text:string;

begin
while not eof(T) do
begin
     Readln(T,Text);        //lesen aus T(Tist LDatei) und in Text zwischen speichern
     Position:=pos(s,Text);   //Position von s(Eingabe aus Edit1.text)in Text bestimmen
     laenge:=LENGTH(s);     //Länge von dem Wort anzeigen
     delete(Text,position,laenge);  //Wort löschen (aus Text) an Position des Ersten Bustabens
                                    //mit der länge(aus laenge);
     IF Position > 0 then
     begin
     inc(position);                 //ANZ hochzählen
     end;

end;
end;

[Sir Rufo]

Du musst die Variable Anz erhöhen und nicht position .
Denn Anz wird zurückgegeben.

[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;