Suchen der Textteile

[djpaull]

Sorry, nix für Ungut aber ... Der letzte Part Ist etwas zu hoch für mich. Was macht diese Funktion? Bei deinem ersten Part kann ich alles nachvollziehen (das mit URL und .jpg). Wo ist der zusammenhang?

[Edit 1]
Ich schau mal hier nach.

[Edit 2]
Also, meine aktuelle Lösung ist folgende:

Delphi-Quellcode:

function tform1.ExtractURLPath(Name: string): String;
begin
  Name:=stringreplace(Name,'/','\',[rfreplaceall]);
  Name:=extractfilename(Name);
  Name:=ChangeFileExt(Name,'');
  Result:=Name;
end;

function tform1.FilePath(Name:String):String;
begin
  Name:=stringreplace(Name,'/','\',[rfreplaceall]);
  Name:=extractfilepath(Name);
  Name:=stringreplace(Name,'\','/',[rfreplaceall]);
  Result:=Name;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  edt2.Text := ExtractURLPath(edtadresse.Text);
  edt1.Text := FilePath(edtadresse.Text)
end;

Primärziel erreicht. Nur so nebenbei. Kann man in einem Text NUR nach Zahlen oder NUR nach Buchstaben suchen?