Einzelnen Beitrag anzeigen

Hellcat

Registriert seit: 27. Feb 2003
60 Beiträge
 
Delphi 6 Personal
 
#7
  Alt 13. Mär 2003, 20:49
Hi Leute,

Danke für die schnelle Hilfe - jetzt stellt sich mir in dem zusammenhang ein anderes Problem: Ich speichere zunächst einen Farbwert (Hexadezimal) in einer Textdatei
writeln (save, TimeToStr(Now)+ '#' + HName + '#' + IntToStr(HFarbe) + '#' + BoolToStr(Schloss) + '#'); doch wenn ich den Wert wieder auslese und versuche einem Objekt diese Farbe zuzuweisen wird das Objekt schwarz...

Delphi-Quellcode:
repeat
    begin
      Fabezaehler := Fabezaehler + Zeile[Zaehler];
      inc (Zaehler);
    end;
  until Zeile[Zaehler] = '#';
  HalFarbe := StrToInt(Fabezaehler);
  inc (Zaehler);
Panel1.Color := HalFarbe; Beim Speichern wird das "$" abgeschnitten, daher vermute ich mal stark daß es daran liegt, aber wie integriere ich das wieder in meinen Farbwert?