procedure TForm1.Los1Click(Sender: TObject);
var i,j:integer;
Buchstaben, Zahlen, Interpunktion, Mathe, Sonderzeichen:set of char;
zeichen:set of char;
temp, temp2:string;
begin
RichEdit2.Clear;
buchstaben:= ['a'..'z','A'..'Z','ß','ä','Ä','ö','Ö','ü','Ü',' '];
zahlen:= ['1'..'9'];
Interpunktion:= ['.',',',':',';','!','?','-','_'];
Mathe:= ['²','³','+','-','*','/','(',')','{','}','{','}','%','='];
Sonderzeichen:= ['^','°','"','§','$','&','/','´','`','~','#','''','@','€','<','>','|',#13];
zeichen:= buchstaben + zahlen + interpunktion + mathe + sonderzeichen;
temp:=RichEdit1.Text;
for i:=0 to length(temp)-1 do if temp[i] in zeichen then temp2:=temp2+temp[i];
for i:=length(temp)-2 downto 0 do
begin
if (temp[i]=temp[i+1]) and (temp[i]=' ') then delete(temp,i,1);
if (temp[i]=temp[i+1]) and (temp[i]=#13) then delete(temp,i,1);
end;
RichEdit2.Lines.Add(temp2);
end;