erstmal muss eine Funktion einen Ergebniswert haben, wenn dus aber so lassen willst, nimm eine prozedur.
Delphi-Quellcode:
Procedure SucheBild;
Var Text, Suchtext : String;
Suchindex, Bildlaenge : Integer;
begin
Text:= edtadresse.Text;
Suchtext := '.jpg';
Suchindex := Pos(Suchtext, Text);
Bildlaenge := Length(Text)-Suchindex;
edt2.Text:=Copy(Text, Suchindex - 3, Bildlaenge); //Der Dritte Parameter ist hier NICHT, BIS ZU WELCHEM, sondern WIE VIELE Zeichen er kopieren soll!
edt1.Text:=Copy(Text, 1, Suchindex - 4);
end;
Mfg