Einzelnen Beitrag anzeigen

Roaster

Registriert seit: 21. Jul 2004
Ort: bei mir zu Hause
107 Beiträge
 
#32

Re: Ist wahres Unicode mit Delphi überhaupt möglich?

  Alt 8. Aug 2008, 17:45
Zitat von Daniel:
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.
LOL - BIG LOL

Zitat von Daniel:
Der Zugriff auf einzelne String-Elemente ist wie bisher möglich. Oder wie meintest Du das jetzt?
Ja, das meinte ich...

Zitat von Daniel:
(* Auszug aus der unit1.poas ;-) *)
Hehe!
Zitat von Daniel:
Delphi-Quellcode:
procedure TForm11.Button2Click(Sender: TObject);
var MeinString : string;
begin
  MeinString:= 'Hallo';
  ShowMessage( MeinString ); // zeigt 'Hallo'

  MeinString[1]:= 'Y';
  ShowMessage( MeinString ); // zeigt 'Yallo'
end;
Ich nehme mal an, dass das hier aus Tiburon stammt. Mit anderen Worten, ich kann einzelne Zeichen eines Strings wie gewohnt ersetzen. Sieht so aus als ob sich der Compiler automatisch um die Länge eines einzelnen Zeichens beim Einfügen kümmert

Zitat von Daniel:
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;
Ja, auch das meinte ich damit. Wird wohl auch einwandfrei funktionieren, da PChar zukünftig ein PWideChar ist und somit alles paletti ist.

Danke! Man wird ja richtig heiß auf das neue Delphi
cu, Michael

Windows 7, WinXP Pro, Vista, WinXP Home, Win98 SE
D4 C/S, D7 Enterprise, Turbo Delphi Pro, Delphi 2009
  Mit Zitat antworten Zitat