Procedure in Procedure aufrufen klappt nicht

[EMS]

hallo
doch ich habe einfach in die Text datei nen paar mal das Wort "Test" zegefügt und dann passte
die Anzahl wie oft das Wort "Test" in meiner Textdatei vorkommt.

[Sir Rufo]

Zitat von EMS:

hallo
doch ich habe einfach in die Text datei nen paar mal das Wort "Test" zegefügt und dann passte
die Anzahl wie oft das Wort "Test" in meiner Textdatei vorkommt.

Logisch, wenn das Wort "Test" genauso häufig vorkommt, wie die Textdatei Zeilen hat, dann kommt das schon hin.

Du solltest dir auch mal ein vernüftiges Testszenario überlegen.

Code:

Test
nur so
oder so
und so
noch ein Test
Test Test Test

Dieser Text liefert bei der Suche nach "Test" 6. Sollte aber 5 sein.

Code:

Test Test Test
Test Test

Dieser Text liefert bei der Suche nach "Test" 2. Sollte aber 5 sein.

[Popov]

Ganz wichtig - nicht nur "Test Test", sondern auch "TestTest" ohne Leerzeichen. Aber auch "Testest". In dem Fall ist wohl alles in Ordnung, aber je nachdem wie man mit Delete umgeht, könnten hier mögliche Fehlerquellen liegen.

[EMS]

mhh ich hab das noch mal geprüft klappt doch irgendwie nicht mhh das ist doof
hab keine Ahnung mehr wie ich das richtig hinbekommen soll

[Sir Rufo]

Zitat von EMS:

mhh ich hab das noch mal geprüft klappt doch irgendwie nicht mhh das ist doof
hab keine Ahnung mehr wie ich das richtig hinbekommen soll

Es soll ja nur gezählt werden wenn der SuchText gefunden wird.
Wenn in deiner Suchroutine aber kein wenn if o.ä. auftaucht, dann weiß ich sofort, da tut was nicht

[EMS]

mhh hab da jetzt einfach raus gemacht und geht nich

Delphi-Quellcode:

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;

[mkinzler]

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