Hallo,
Du musst die Zeilen einzeln bearbeiten. Hab das mal mit einer Memo Komponente demonstriert in der eine Liste der URLs steht.
Geht natürlich mit einer Stringlist genauso
Delphi-Quellcode:
function GetFilename(str: String): String;
var
i : Integer;
begin
for i := Length(str) downto 1 do
if str[i] = '/' then
begin
Result := ChangeFileExt(Copy(str, i + 1, max_path), '');
Break;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to memo1.Lines.Count -1 do
memo1.Lines[i] := memo1.Lines[i] + '=' + GetFilename(memo1.Lines[i]);
end;