string methoden

[Skyruner2]

ah super funzt

da es ja immer ganz interessant ist:

Delphi-Quellcode:

function urlfix(fixme:string; removethis:string; replacewith:string):string;
begin
  delete(fixme,pos(removethis,fixme),length(removethis));
  fixme:=replacewith+fixme;
  urlfix:=fixme;

end;

procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
opendialog1.Execute;
  for i:=0 to opendialog1.Files.Count-1 do
    begin
      memo1.Lines.Add('[img]'+urlfix(opendialog1.Files[i],opendialog1.InitialDir+'\',edit2.Text)+'[/img]');
    end;
end;