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?