@theomega: Und du bist dir sicher, dass der Code keine Schutzverletzung erzeugt?
Zitat:
Code:
[b]function[/b] texter: pchar; [b]stdcall[/b];
[b]begin[/b]
Result := pchar(datetimetostr(now));
[b]end[/b];
Den PChar den du hier zurücklieferst liegt auf dem Stack. Wenn du danach eine Funktion aufrufst, wird der "string" überschrieben.
Eine bessere Lösung wäre dies:
Code:
[b]function[/b] texter(P: PChar; MaxLen: Integer): Integer; [b]stdcall[/b];
[b]var[/b] S: [b]string[/b];
[b]begin[/b]
S := DateTimeToStr(Now);
[b]if[/b] P <> [b]nil then[/b] StrLCopy(P, PChar(S), MaxLen);
Result := Length(S);
[b]end[/b];