Procedure in Procedure aufrufen klappt nicht

[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;

[EMS]

weil ich so bisher noch gar nix hinbekommen habe und jetzt so stückchen für stückchen auf diese procedur hinarbeiten wollte

und als ich am anfang die '' nicht hatte gabs immer den Fehler:

unit1.pas(42,24) Error: Identifier not found "edit1"
unit1.pas(78) Fatal: There were 1 errors compiling module, stopping

und danch nicht mehr

[Sir Rufo]

Zitat von EMS:

weil ich so bisher noch gar nix hinbekommen habe und jetzt so stückchen für stückchen auf diese procedur hinarbeiten wollte

und als ich am anfang die '' nicht hatte gabs immer den Fehler:

unit1.pas(42,24) Error: Identifier not found "edit1"
unit1.pas(78) Fatal: There were 1 errors compiling module, stopping

und danch nicht mehr

schau mal in den Beitrag #27

[delnu]

Zitat:

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

Vielleicht gibt es in der Hinsicht Spielraum ?

Zitat:

und als ich am anfang die '' nicht hatte gabs immer den Fehler:

unit1.pas(42,24) Error: Identifier not found "edit1"
unit1.pas(78) Fatal: There were 1 errors compiling module, stopping

Das sieht doch ganz so aus, als ob gar kein Editfeld vorhanden ist oder es anders benannt wurde.

[Sir Rufo]

Zitat von delnu:

Zitat:

und als ich am anfang die '' nicht hatte gabs immer den Fehler:

unit1.pas(42,24) Error: Identifier not found "edit1"
unit1.pas(78) Fatal: There were 1 errors compiling module, stopping

Das sieht doch ganz so aus, als ob gar kein Editfeld vorhanden ist oder es anders benannt wurde.

oder die procedure weiß nichts von Edit1, weil es ja keine Methode von TForm1 ist ...

[EMS]

so sieht das jetzt alles aus

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  Zeile,Zeilen:string;
  position:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure String_Zaehler(var text:string);
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;
 begin
     Readln(Ldatei,s);
     Position:=pos(Edit1.Text,s);
     laenge:=LENGTH(edit1.text);
     delete(s,position,laenge);
     inc(ANZ);

 end;



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;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Label2Click(Sender: TObject);
begin

end;

end.

[EMS]

und diese meldungen gibts nun

unit1.pas(50,19) Error: Identifier not found "Ldatei"
unit1.pas(51,25) Error: Identifier not found "Edit1"
unit1.pas(52,26) Error: Identifier not found "edit1"
unit1.pas(60,17) Fatal: Syntax error, ";" expected but "." found