F
Jochen Kalmbach schrieb:
Ich weiss immer noch nicht was "Text" ist... geht doch mal mit dem Cursor auf "Text" und drücke F12... was dann kommt, poste bitte hier... sonst muss ich leider aufgeben... vielleicht ist jemand anders in der Lage Dich zu verstehen... ich bin es (bisher) nicht...
Das hab ich vorhin bereits gemacht - da komm ich zur Definition:
extern "C++"
{
namespace fmx
{
...
inline const Text &DataVect::AtAsText ( ulong position ) const
{
_fmxcpt _x;
const Text &_rtn = FM_DataVect_AtAsText ( this, position, _x );
_x.Check ();
return _rtn;
}
...
}
Vielleicht hilft ja der Code eines funktionierenden Beispiels:
FMX_PROC(fmx::errcode) MyFunction1(short funcId, const fmx::ExprEnv& environment, const fmx::DataVect& dataVect, fmx::Data& result)
{
fmx::errcode errorResult = 0;
environment;
// Append an arbitrary number of strings together.
fmx::TextAutoPtr resultTxt;
fmx::ulong nParams = dataVect.Size();
fmx::ulong j;
if (nParams > 0)
{
for ( j = 0; j < nParams; j++ )
{
resultTxt->AppendText( dataVect.AtAsText(j), 0, static_cast<fmx::ulong>(-1) );
}
result.SetAsText( *resultTxt, dataVect.At(0).GetLocale() );
}
else
{
errorResult = -1; // This is just an example of returning an error.
};// nParams > 0
return(errorResult);
}
Fons
