Procedure in Procedure aufrufen klappt nicht

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

[EMS]

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 Label2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;


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;

procedure TForm1.Label2Click(Sender: TObject);
begin

end;

end.

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

[EMS]

jetzt kommt das

unit1.pas(63,38) Hint: Local variable "Lposition1" does not seem to be initialized
unit1.pas(64,44) Error: Identifier not found "LPosition"
unit1.pas(67,19) Error: Identifier not found "datei"
unit1.pas(77) Fatal: There were 2 errors compiling module, stopping

[Sir Rufo]

Zitat von EMS:

jetzt kommt das

unit1.pas(63,38) Hint: Local variable "Lposition1" does not seem to be initialized
unit1.pas(64,44) Error: Identifier not found "LPosition"
unit1.pas(67,19) Error: Identifier not found "datei"
unit1.pas(77) Fatal: There were 2 errors compiling module, stopping

Kann es sein, dass du die Vorschläge hier in dein Programm eintippst und nicht per Copy'n'Paste überträgst?

[EMS]

ja ich ändere das programm nach den vorschlägen

[Sir Rufo]

Zitat von EMS:

ja ich ändere das programm nach den vorschlägen

ich sag da jetzt mal nichts mehr zu