Datei durchsuchen

[Techcrawler]

Zitat von himitsu:

hmmm , komm in HexCodeList z.B. die #0 als Zeichen vor?

Danke für den Tipp, hab da mal gedebugged und siehe da, Steuerzeichen werden von dem Parser nicht übersetzt.
Da lag auch der Fehler, da der HexString also unvollständig war (es fehlten die Steuerzeichen in der Mitte).

Jetzt suche ich natürlich einen Weg, meine 'ParseHex' Funktion entsprechend aufzubohren.
Ganz 'Quick & Dirty' natürlich mit if...then, aber das ist ja nur eine Notlösung.
Wie werte ich die Steuerzeichen nun mit aus?
Anbei mal meine Funktion (nicht meckern, quick´n´dirty eben).

StrToHex übersetzt die Zeichen, aber eben keine Steuerzeichen

Delphi-Quellcode:

function TForm2.ParseHex(SourceBuffer: array of Char): String;
var
    i: Integer;
    StringBuffer: string;
begin
    StringBuffer := '';
    for i := 0 to Length(SourceBuffer)-1 do
    begin

        if SourceBuffer[i] = #17 then
            StringBuffer := StringBuffer + '11'
        else if SourceBuffer[i] = #0 then
            StringBuffer := StringBuffer + '00'
        else if SourceBuffer[i] = #1 then
            StringBuffer := StringBuffer + '01'
        else if SourceBuffer[i] = #2 then
            StringBuffer := StringBuffer + '02'
        else if SourceBuffer[i] = #3 then
            StringBuffer := StringBuffer + '03'
        else if SourceBuffer[i] = #4 then
            StringBuffer := StringBuffer + '04'
        else if SourceBuffer[i] = #5 then
            StringBuffer := StringBuffer + '05'
        else if SourceBuffer[i] = #6 then
            StringBuffer := StringBuffer + '06'
        else if SourceBuffer[i] = #7 then
            StringBuffer := StringBuffer + '07'
        else if SourceBuffer[i] = #8 then
            StringBuffer := StringBuffer + '08'
        else if SourceBuffer[i] = #9 then
            StringBuffer := StringBuffer + '09'
        else if SourceBuffer[i] = #10 then
            StringBuffer := StringBuffer + '0A'
        else if SourceBuffer[i] = #11 then
            StringBuffer := StringBuffer + '0B'
        else if SourceBuffer[i] = #12 then
            StringBuffer := StringBuffer + '0C'
        else if SourceBuffer[i] = #13 then
            StringBuffer := StringBuffer + '0D'
        else if SourceBuffer[i] = #14 then
            StringBuffer := StringBuffer + '0E'
        else if SourceBuffer[i] = #15 then
            StringBuffer := StringBuffer + '0F'
        else if SourceBuffer[i] = #16 then
            StringBuffer := StringBuffer + '10'
        else if SourceBuffer[i] = #26 then
            StringBuffer := StringBuffer + '1A'
        else if SourceBuffer[i] = #32 then
            StringBuffer := StringBuffer + '20'

        else
            StringBuffer := StringBuffer + StrToHex(SourceBuffer[i]);
    end;
    Result := StringBuffer;
end;