Image aus XML-File in Imagelist laden

[geofranz01]

Hi,

weiß nicht, ob meine Methode besonders schon ist (kanst du ja noch ändern):

Delphi-Quellcode:

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;

procedure TForm30.Button1Click(Sender: TObject);
var
   HexBild:string;
   picfile:TextFile;
begin
HexBild:=Edit1.Text;  //XML-Daten ('424DE...DD9D9') auslesen und als String in HexBild speichern
HexBild:=Hextostr(HexBild);
assignfile(picfile,'D:\test.bmp');
Rewrite(picfile);
Write(picfile,HexBild);
closefile(picfile);
end;

//Und jetzt das bmp in die Imagelist laden

Viele Grüße,
geofranz