1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function TForm1.HoldChars_in_Range(Dummy_String: string; Dummy_Char_Range: array of char): string;
var
  x: Integer;
begin

  { Zeichen aus dem Strings beibehalten }
  Result := '';
  showmessage(Dummy_Char_Range);
  for x := 1 to Length(Dummy_String) do
    if (Dummy_String[x] in Dummy_Char_Range) then // hier wird geschimpft, dass der Operator nicht auf den Operantentyp anwendbar ist
      Result := Result + Dummy_String[x];

end;

// Der Aufruf sollte wenn möglich so aussehen:

Dummy_String := HoldChars_in_Range(Edit1.Text, ['0'..'9' , 'A'..'Z', 'a'..'z']);
// hier wird wieder gemeckert, ']' erwartet, aber '..' gefunden					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type
  TChar_Range=set of Char;


function TForm1.HoldChars_in_Range(Dummy_String: string; Dummy_Char_Range:TChar_Range): string;
var
  x: Integer;
begin

  { Zeichen aus dem Strings beibehalten }
  Result := '';
  for x := 1 to Length(Dummy_String) do
    if (Dummy_String[x] in (Dummy_Char_Range)) then
      Result := Result + Dummy_String[x];

end;

Aufruf bleibt gleich.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var se:set of char;
            s:string;
            e:string;
            i:integer;
begin
  s:='123Hal323lo565';
  se:=['a'..'z','A'..'Z'];
  e:='';
  for i:=1 to length(s) do
    if s[i] in se then
      e:=e+s[i];
  Writeln(e); //ergebniss: Hallo
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TMyCharSet = set of Char;

function HoldChars_in_Range(Dummy_String; Dummy_Char_Range: TMyCharSet): String;
  var
    X: Integer;
begin
  Result := '';
  for X := 1 to Length(Dummy_String) do
    if (Dummy_String[X] in Dummy_Char_Range) then
      Result := Result + Dummy_String[X];
end;