Procedure in Procedure aufrufen klappt nicht

[Sir Rufo]

Du hast da wohl irgendwo etwas mit Position benannt und das knallt jetzt.

Versuch das einmal

Delphi-Quellcode:

implementation

{$R *.lfm}

{ TForm1 }


procedure String_Zaehler(const AStr : String; var APosition : Integer );
begin
  APosition := Pos( 'edit1.text', AStr );
end;

procedure zeichenanhaengen( var AStr : String );
begin

end;

procedure TForm1.Button1Click( Sender: TObject );
var
  LPosi : Integer;
  LDateiname, LS : String;
  LDatei : Textfile;
  LPosition : Integer;
begin
   if OpenDialog1.Execute then
   begin
     LDateiname := OpenDialog1.Filename;
     ShowMessage( LDateiname );
     AssignFile( LDatei, LDateiname );
     Reset( LDatei );
     while not Eof( LDatei ) do
     begin
       Readln( LDatei, LS );
       String_Zaehler( LS, LPosition );
       Label2.Caption := IntToStr( LPosition );
     end;
   end;
   CloseFile( LDatei );
end;