So obiger Code führt angeblich zu einer AccessViolation. Hie rnoch mal eine Alternative:
Delphi-Quellcode:
var
szText: array of Char;
begin
setlength(szText, SendMessage(hFremdesMemo, WM_GETTEXTLENGTH, 0, 0)+1);
SendMessage(hFremdesMemo, WM_GETTEXT, length(szText), Integer(@szText));
Memo1.Text := String(szText);
end;
Eventuell hätte es beim ersten Code auch schon gereicht bei GetMem noch mal eins dazu zuaddieren.