Ist wahres Unicode mit Delphi überhaupt möglich?

[Daniel]

Zitat von Roaster:

Heißt die wirklich System.poas jetzt?

Ja. Alle .PAS-Dateien müssen per Hand in .POAS umbenannt werden. Und zwar vor jedem Compilieren - und danach wieder zurück. Aber vielleicht habe ich da auch nur etwas falsch verstanden, etwas aufwändig ist es nämlich schon.

Zitat von Roaster:

Daniel, hast du zufällig eine Ahnung, ob Konstrukte wie MeinString[1] noch so funktionieren wie bisher? Man hat dies ja teilweise ausgiebig verwendet um auf die Anfangsadresse des Strings zu verweisen.

Der Zugriff auf einzelne String-Elemente ist wie bisher möglich. Oder wie meintest Du das jetzt?

Delphi-Quellcode:

(* Auszug aus der unit1.poas ;-) *)
procedure TForm11.Button2Click(Sender: TObject);
var MeinString : string;
begin
  MeinString:= 'Hallo';
  ShowMessage( MeinString );  // zeigt 'Hallo'

  MeinString[1]:= 'Y';
  ShowMessage( MeinString );  // zeigt 'Yallo'
end;

// EDIT:

Oder meinst Du vielleicht sowas wie da im Aufruf von DrawText() ?

Delphi-Quellcode:

(* Quick & Dirty aus der uni1.poas *)
procedure TForm11.Button2Click(Sender: TObject);
var MeinString : string;
         oRect : TRect;
begin
  MeinString:= 'Hallo';

  oRect:= Rect( 10, 10, 200, 200 );
  DrawText( form1.canvas.handle, PChar(@MeinString[1]), 5, oRect, DT_SINGLELINE );
end;