Hi,
also ich habe deinen Code jetzt so eingebaut...
Code:
sField := ADOQuery1.FieldByName('objectSid').AsString;
sSid := '';
sSID2 := '';
for i := 1 to Length(sField) do begin
ch := Copy(sField,i,1)[1];
sSID2 := sSID2 + ch;
// ch := sField[i]; // <-- wäre auch eine Möglichkeit.
b := Ord(ch);
sHex := IntToHex(b,2);
sSid := sSid + sHex + ' ';
// sSid := sSid + '$' + sHex; // <-- wenn's denn mit $ vorneweg sein soll.
end;
// showmessage(sSid);
Memo1.Lines.Add('FName: ' + lsi.FName + #13#10+
'SID: ' + sSID + #13#10+
'SID2: ' + sSID2 + #13#10);
Irgendwas mache ich noch falsch,... bei mir kommt anstelle der SID immernoch irgendwelche Zeichen. Ich habe dir einen Screen angefügt, damit du siehst was ich meine.