Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren

[Phillip0405]

Ich habe noch etwas geändert und es kommt keine Fehlermeldung mehr, aber es passiert auch nichts, außer das alles gelöscht wird aus der Ursprungsdatei.

Delphi-Quellcode:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Inifiles,
  Vcl.RibbonLunaStyleActnCtrls, Vcl.Ribbon;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function Löschen(text:string;alt:string): string;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
sl:tstringlist;
MyInifile: TInifile;
sFile,a,test:string;
i:integer;
begin
MyIniFile:= TInifile.Create('C:\Users\Praktikant\Desktop\Phillip Beermann, Praktikant\`Rechnung´\MyConfig.ini');
sFile:= MyIniFile.ReadString('Verzeichnis','Quelle','Irgendetwas ist falsch!');
sl:=tstringlist.Create;
sl.LoadFromFile(sfile);


    for i:= 0  to  sl.Count -1 do begin
      sl.Text:=Löschen(sl.Text,'\A+');
      sl.Text:=Löschen(sl.Text,'\A-');
      sl.Text:=Löschen(sl.Text,'\S+');
      sl.Text:=Löschen(sl.Text,'\S-');
      sl.Text:=Löschen(sl.Text,'\U+');
      sl.Text:=Löschen(sl.Text,'\U-');
    end;
a:=MyIniFile.ReadString('Verzeichnis','Ziel','');
sl.SaveToFile(sfile);
MyIniFile.Free;
sl.Free;
end;

 function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
 begin
  while b>0 do begin
  b:=Pos(alt,text);
  a:=length(alt);

   text:=copy(text,b,a);
   Delete(text,b,a);
   b:=Pos(alt,text);
  end;
  result := Text;

end;
end.