Procedure in Procedure aufrufen klappt nicht

[Popov]

Eigentlich kein Fehler, aber ich würde statt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
...
    LAnzahl := 0;

den Punkt so lösen

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
Anz := 0; //<<< HIER auf Null setzten <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
while not eof(T) do

Die Lösung von dir klappt zwar auch, aber da muss man vor der Nutzung der Prozedur zuerst die Variable löschen. Und das ist eine mögliche Fehlerquelle für die Zukunft. Und so erledigt man das Problem gleich in der Prozedur mit.

[Sir Rufo]

@EMS

Du hast jetzt ein Programm, was die Anzahl der Textzeilen in einer Datei ermittelt.
Die Anzahl der Vorkommnisse des Such-Strings in der Datei bekommst du so nicht.

@Popov

Da die procedure die Anzahl als var Parameter übergeben bekommt, muss die Variable vorher initialisiert werden.

Die genauen Anforderungen kennen wir nicht. Evtl. soll diese procedure (in den nächsten Schritten) auch mehrfach aufgerufen werden (mehrere Dateien) und die Anzahl soll immer weiter erhöht werden.

Wenn wirklich nur die Anzahl zurückgegeben werden soll, dann wäre Anzahl in der Vorgabe ein out Parameter gewesen
(gut, kann auch sein, dass der Lehrer diesen feinen Unterschied gar nicht kennt)

[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