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