Procedure in Procedure aufrufen klappt nicht

[Bjoerk]

Bei String_Zaehler muß das var vor position und die Procedere hat 2 Parameter.

[EMS]

mhh was meinst du mit Parameter?

ich hab das jetzt so

procedure String_Zaehler(s:string;VAR position:integer);
aber das geht auch nicht

[Bjoerk]

jenau, und jetzt noch String_Zaehler(s, position); aufrufen

[EMS]

klappt nicht jetzt kommen ganz viele neue fehler ?

[Sir Rufo]

Delphi-Quellcode:

procedure String_Zaehler(s:string; var position:integer); // <-- da
begin
  position:=pos('edit1.text',s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
posi: integer;
dateiname,s: string;
datei:textfile;

position: integer; // <-- da

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, position ); // <-- da

         label2.caption:=inttostr(position);
         showmessage('Zeile: '+s);
         end;
      end;
   Closefile(datei);
end;

[EMS]

Ich hab das jetzt so und jetzt kommt wieder "Error Duplicate identifier"Position".

was ist denn falsch?

Delphi-Quellcode:

implementation

{$R *.lfm}

{ TForm1 }


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

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


procedure zeichenanhaengen(VAR s:string);

begin

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,position);
         label2.caption:=inttostr(position);
         end;
      end;
   Closefile(datei);
end;

[Sir Rufo]

Häng doch mal das gesamte Project als Anhang dran ...

[Popov]

Unabhängig des Problems, eine Zwischenfrage - hat es einen Grund wieso du die Textdatei über ASSIGNFILE öffnest? Mit modernen Delphi mitteln wäre das um einiges einfacher.

[EMS]

Schreiben Sie eine Procedure, die einen Text nach einem String durchsucht und die Anzahl über eine
Referenzvariable ausgibt.(Procedure String_Zaehler(VAR T:Textfile; s:string, VAR Anz: Integer)).
Schreiben Sie auch das Rahmenprogramm dazu in dem der Text über ein opendialog ausgewählt wird.
Der der zu suchende String wird über ein Editfeld eingegeben und die Anzahl in einem Label ausgegeben.


das ist die aufgabe

[Sir Rufo]

Zitat von EMS:

Schreiben Sie eine Procedure, die einen Text nach einem String durchsucht und die Anzahl über eine
Referenzvariable ausgibt.(Procedure String_Zaehler(VAR T:Textfile; s:string, VAR Anz: Integer)).
Schreiben Sie auch das Rahmenprogramm dazu in dem der Text über ein opendialog ausgewählt wird.
Der der zu suchende String wird über ein Editfeld eingegeben und die Anzahl in einem Label ausgegeben.


das ist die aufgabe

Wenn das die Aufgabe ist, warum ist dann deine procedure nicht so deklariert?

Deine

Delphi-Quellcode:

procedure String_Zaehler(const AStr : String; var APosition : Integer );
begin
  ...
end;

und so soll die laut Aufgabe aussehen

Delphi-Quellcode:

procedure String_Zaehler( var T : Textfile; s : string; var Anz : Integer );
begin
  ...
end;

UPDATE

Ich kann ja mal von Lehrerisch auf Deutsch übersetzen

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
);
begin
  ...
end;

und das geforderte Rahmenprogramm hast du ja schon fertig, darum baue ich dir diese Procedure da mal ein:

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
var
  LDateiname : String;
  LDatei : Textfile;
  LAnzahl : Integer;
begin
  if OpenDialog1.Execute then
  begin
    LDateiname := OpenDialog1.Filename;
    AssignFile( LDatei, LDateiname );
    Reset( LDatei );

    LAnzahl := 0;

    String_Zaehler( LDatei, Edit1.Text, LAnzahl );
     
    Label2.Caption := IntToStr( LAnzahl );
  end;
  CloseFile( LDatei );
end;