Forum: Sonstige Fragen zu Delphi
Delphi
by Lemmy1,
25. Nov 2005
Müsste wohl daran liefen, dass da Linebreak drins sind. Ich geh halt immer von Space zu Space.
Bekommst Du sowas hin?
Forum: Sonstige Fragen zu Delphi
Delphi
by Lemmy1,
25. Nov 2005
Für Faule:
function HexStrToStr(s: string) : string;
var
s2 : string;
begin
Result := '';
while s <> '' do
begin
if Pos(' ', s) <> 0 then
Forum: Sonstige Fragen zu Delphi
Delphi
by Lemmy1,
25. Nov 2005
Doch das funktioniert, hab das auch mit deinen Hexwerten ausprobiert....musst halt sehen, dass die Konstante hart im Source steht. Mach ne praktische Funktion draus und schon hast Dus
Forum: Sonstige Fragen zu Delphi
Delphi
by Lemmy1,
25. Nov 2005
Sorry, zu schnell gelesen...wie wärs hiermit...?
procedure TForm1.FormCreate(Sender: TObject);
var
s, s2, Result : string;
begin
s := '35 D1 6F';
while s <> '' do
begin
if Pos(' ', s) <> 0 then
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Lemmy1,
25. Nov 2005
Benutz einfach StrToInt, häng aber ein '$' davor.
i := StrIntDef('$' + str);
Wohl aber sinnvoll, die Leerzeichen vorher raus zu nehmen.
Grüße