eingebunde Resourcen abfragen (RCDATA)

[thomasschaf]

Ok, das war dumm von mir.

Der Fehler ist natürlich offensichtlich, ABER es wird ja noch nicht mal die ShowMessage (1) angezeigt.

Mit Hilfe von try-except und den ShowMessages kann ich ja herausfinden, dass das Programm hier abstürzt:

Delphi-Quellcode:

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  try
    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);

// ------------- ## CUT ## -------------------------------------------------

    ShowMessage('(1)');
    RS.Free;
    ShowMessage('(2)');
    SetString(Result, RS.Memory, RS.Size);
  except
    ShowMessage(SysErrorMessage(GetLastError));
    Result := '';
  end;
end;

Woran kann das dann liegen *ratlos!*