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

 
function Namefiltern(Datengefiltert: array of string): String;
const
Buchstaben = '[a-zA-Z\.\s]';
var
r : TRegExpr;
i: integer;
begin
      r := TRegExpr.Create;
      r.Expression := Buchstaben;
    for D:= 8 to high(Daten) do
      begin
      if  r.Exec (hextostr(Daten[D])) then
      Result:=Result+r.Match[0];
    end;
end;					

1:
2:
3:
4:
5:
6:

function OemToUnicode(const S: WideString): WideString;
begin
  SetLength(Result, Length(S));
  if Length(Result) > 0 then
    OemToCharBuffW(PWideChar(S), PWideChar(Result), Length(Result));
end;					

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

 
Function HexToStr(s: String): String;
Var i: Integer;
Begin
  Result:=''; i:=1;
  While i<Length(s) Do Begin
    Result:=Result+Chr(StrToIntDef('$'+Copy(s,i,2),0));
    Inc(i,2);
  End;
End;					

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

function Namefiltern(Datengefiltert: array of string): String;
const
Buchstaben = '[a-zA-Z]';
var
r : TRegExpr;
i: integer;
ergebnis: string;
begin
      r := TRegExpr.Create;
      r.Expression := Buchstaben;
    for D:= 8 to high(Daten) do
      begin
      if  r.Exec (hextostr(Daten[D])) then
      ergebnis:=ergebnis+r.Match[0];
    end;
    Result:= OemToCharBuffA(PChar(ergebnis),PChar(ergebnis),Length(ergebnis));
end;					

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

Function HexToStr(s: String): String;
Var i: Integer;
ansi: string;
Begin
  Result:=''; i:=1;
  While i<Length(s) Do Begin
    ansi:=ansi+Chr(StrToIntDef('$'+Copy(s,i,2),0));
    Inc(i,2);
  End;
    OemToCharBuffA(PChar(ansi),PChar(Result),Length(ansi));



End;