Procedure in Procedure aufrufen klappt nicht

**EMS**

Hallo mal wieder...Neues Programm neues Problem

Ich möchte gerne einen Text öffnen mit Opendialog --> das klappt.
Dann möchte ich diesen Auf ein Wort durchsuchen was ich im editfeld eingebe klappt auch
Jetzt soll das ganze aber mit einer extra procedure laufen das klappt nicht.

Es gibt immer einen Fehler mit der Zeile wo ich die Procedure aufrufen möchte mit dem jeweiligen 's'

Mir fällt aber keine Lösung mehr ein

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

{$R *.lfm}

{ TForm1 }

procedure String_Zaehler(VAR s:string;position:integer);

begin

  position:=pos('edit1.text',s);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

posi: integer;

dateiname,s: string;

datei:textfile;

//position: integer;

begin

   if opendialog1.execute then

      begin

         dateiname:=opendialog1.filename;

         showmessage(dateiname);

         ASSIGNFILE(datei,dateiname);

         RESET(datei);

         while not eof(datei) do

         begin

         Readln(datei,s);

         String_Zaehler(s);

         label2.caption:=inttostr(position);

         showmessage('Zeile: '+s);

         end;

      end;

   Closefile(datei);

end;

end.

Procedure in Procedure aufrufen klappt nicht

Procedure in Procedure aufrufen klappt nicht

Forumregeln