Danke für die Rückinfo. Bei den diversen Test die ich zwischenzeitlich gemacht habe, weiß ich wieder warum ich Pointern immer aus dem Weg gegangen bin.
Bei mir hat die Umsetzung des Beispiels von Michael Puff zu unregelmässigen Exceptions geführt.
Letztlich konnte ich es auf folgendes reduzieren. Komischerweise tritt hier der
Exception aber konsequent auf
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
var
sValue :
String;
begin
sValue := '
Nur ein Test';
TuWas(sValue);
end;
function TForm5.DoWhat(sValue):
String;
var
pBuffer: pChar;
begin
GetMem(pBuffer, sizeof(sValue));
// length(sValue) + 1 ändert nichts
pBuffer := pChar(sValue);
Result :=
string(pBuffer);
// Auch wenn das auskommentiert ist tritt Exception auf. So wäre es aber korrekt oder?
FreeMem(pBuffer);
// Creates an Access Violation
end;
Was mache ich falsch? Ich verwende Delphi XE