GlobalLock und Unicode

[ATS3788]

Erst mal frohes neues Jahr

Habe dieses von den Kollegen aus der Schweiz

http://www.swissdelphicenter.ch/de/showcode.php?id=1403

Code:

procedure TMyDBRichEdit.WMPaste(var Message: TMessage);
var
  Accept: Boolean;
  Handle: THandle;
  CText: string;
  LText: string;
  AText: string;
begin
  if FPreventPaste then
    Exit;
  if IsClipboardFormatAvailable(CF_TEXT) then
  begin
    try
      OpenClipBoard(Self.Handle);
      Handle := GetClipboardData(CF_TEXT);
      if Handle = 0 then
        Exit;
      CText := StrPas(GlobalLock(Handle)); // Hier meckert er 
      GlobalUnlock(Handle);
      Accept := True;
      if Assigned(FOnPaste) then
        FOnPaste(Self, CText, Accept);
      if not Accept then
        Exit;
      LText := '';
      if SelStart > 0 then
        LText := Copy(Text, 1, SelStart);
      LText := LText + CText;
      AText := '';
      if (SelStart + 1) < Length(Text) then
        AText := Copy(Text, SelStart + SelLength + 1, Length(Text) - SelStart + SelLength + 1);
      Text := LText + AText;
    finally
      CloseClipBoard;
    end;
  end;
end;

Habe versucht diese Procedure zu verwenden nun habe ich diesen Fehler

Zitat:

[DCC Fehler] MyDBRichEdit.pas(58): E2251 Doppeldeutiger überladener Aufruf von 'StrPas'
SysUtils.pas(9705): Verwandte Methode: function StrPas(const PAnsiChar): AnsiString;
SysUtils.pas(9710): Verwandte Methode: function StrPas(const PWideChar): string;

Hat jemand eine Idee wie man das Unicode korrekt löst

[himitsu]

Seit Neustem (D2009) sind Funktionen wie StrPas überladen.

GlobalLock gibt einen untypisierten Pointer zurück, aber da es nun zwei Funktionen gibt, weiß der Compiler nicht, welche Funktion PWideChar oder PAnsiChar er aufrufen soll,
was er dir auch unmißverständlich gesagt hat. :zwinker:

Lösung: Caste des Pointer in den entsprechenden Typen.


PS:

Zitat:

Zitat von OH: StrPas

This function is provided for backwards compatibility only.

Laß die Funktion ganz weg, caste einfach nur in den entsprechenden PChar-Typen und Delphi castet es dann wiederum automatisch/implizit in den zugehörigen String-Typen.

PPS:
Warum nutzt du nicht einfach die vorhandene TClipboard-Instanz Clipboard und läßt jene diese Schweinerei für dich veranstalten?

[ATS3788]

Danke

PPS:
Warum nutzt du nicht einfach die vorhandene Delphi-Referenz durchsuchenTClipboard-Instanz Delphi-Referenz durchsuchenClipboard und läßt jene diese Schweinerei für dich veranstalten?

Habe ich schon, ich wollte nur mal wissen ob es dafür eine Lösung gibt.