Hallo alle zusammen,
ich wundere mich, warum mein Programm nicht das macht was es soll:
Es soll einfach aus einer Linklist, gewisse Zeichen filtern.
Beispiel eines ungefilterten Links:
https://www.google.de/index.php?help
Daraus sollte das werden:
http://www.google.de/index.php
Ich hoffe ihr seht den Fehler im gegensatz zu mir ^.^
Vielen Dank
Code:
unit UCompare;
var
Form1: TForm1;
Alte : TSTringlist;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
aI :string;
begin
Alte := TStringlist.Create;
Alte.Sorted := true;
Alte.LoadFromFile('alte.txt');
i := 0;
while i <= Alte.Count-1 do begin
aI := Alte[i];
if AnsiContainsStr(aI,'?') then
setlength(aI, pos('?',aI)-1);
if AnsiContainsStr(aI,'https://') then
delete(aI,5,1);
inc(i);
end;
Alte.SaveToFile(sAlte);