Die Idee hatte ich auch.
Jetzt bekomme ich eine EOutOfMemory-
Exception mit "Zu wenig Arbeitsspeicher."
Mein Test-Code aktuell:
Delphi-Quellcode:
procedure fktCopy (APointer : Pointer ; AText : WideString);
begin
// CopyMemory(APointer,PChar(AText),2*length(AText)+1);
PWideString(APointer)^ := AText;
end;
var
sStr , sData : WideString;
pStr : Pointer;
begin
sData := '123';
sStr := 'Hallo Welt';
pStr := PWideChar(sStr);
fktCopy (pStr,sData);
ShowMessage (sStr);
Ändere ich alle WideString in String und alle PWideChar in PChar, was mir lieber wäre, komme ich eine Schutzverletztung.
Das geht mir nicht in den Kopf
