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.