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.

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

mhh was meinst du mit Parameter?

ich hab das jetzt so

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

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

klappt nicht jetzt kommen ganz viele neue fehler ?

zusammenfalten · markieren

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;

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.

hat jemand für mich auch eine Lösung ??
in Object-Pascal versuche ich folgendes:

procedure TForm1.Pg3ausgabeExit(Sender: TObject);
begin
Dbf2Bestand.Filtered:=true;
// hier soll die untere procedure nochmal aufgerufen werden,klappt aber nicht
end;


procedure TForm1.Dbf2BestandFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Dbf2Bestand.FieldByName('ORT').AsString = 'LAGER';
end;

danke für hilfe.....

Zitat von muschelknacker:

// hier soll die untere procedure nochmal aufgerufen werden,klappt aber nicht

Wieso nicht?
Text der Fehlermeldung oder so.

Für deine Prozeduren Methoden gibt es in der Typ-Deklaration quasi eine Forward-Deklaration, womit diese Funktion an jener Stelle natürlich bereits bekannt ist. (innerhalb des selben Typen)

PS:
[DELPHI]
dein Delphi-Code
[/DELPHI]


[EDIT]
Du willst die Funktion nicht selber aufrufen, sondern es soll "neu" gefiltert werden?
Hängt die Methde auch wirklich am DataSet.OnFilterIrgendwas dran?
Oder wenn sich das Filterkriteitum geändert hat (die Auswertung im Dbf2BestandFilterRecord), dann einfach

markieren

Delphi-Quellcode:

procedure TForm1.Pg3ausgabeExit(Sender: TObject);
begin
  Dbf2Bestand.Filtered:=false;
  Dbf2Bestand.Filtered:=true;
end;

PS: Wie bei vielen Events bekommt man das "richtige" Objekt als Parameter (z.B. oftmals das "Sender") mit rein.

markieren

Delphi-Quellcode:

procedure TForm1.Dbf2BestandFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := DataSet.FieldByName('ORT').AsString = 'LAGER';
end;

Ist praktischer, um solche Funktionen wiederverwenden zu konnen und knall nicht, wenn man sich mal beim Namen verschreibt (Dank Autovervollständigung den falschen Namen erwischt) oder wenn die Komponente umbenannt wurde.

Guten Abend,
nein nein, keine Fehlermeldung.
Im Kopf klappt es nicht.
Ich mach nochmal gaaaaaanz langsam :

In meiner Anwendung gibt es unter anderem ein PageControl mit 3 Seiten.
Sagen wir mal P1, P2, P3.
Auf jeder Seite befindet sich ein DBGrid und soll von einer einzigen Datenmenge über dieselbe DataSource jeweils
ein anderes Filterkriterium darstellen.
Für P1 sieht das so aus und klappt :

markieren

Code:

procedure TForm1.Dbf2BestandFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
   Accept := (Dbf2Bestand.FieldByName('SCHUBLADE').AsString = 'ALLE') or (Dbf2Bestand.FieldByName('SCHUBLADE').AsString = 'BE');

end;

Für P2 muss das so aussehen :

markieren

Code:

   Accept := Dbf2Bestand.FieldByName('SCHUBLADE').AsString = 'BE';

Für P3 muss es so aussehen :

markieren

Code:

 Accept := Dbf2Bestand.FieldByName('SCHUBLADE').AsString = 'RAUS';

Wie krieg ich das alles in einen Topf ???



Danke fürs nachdenken.............