VCL Unicode, AnsiString übergeben!

[Mavarik]

Hallo Zusammen...

Nachdem ich jetzt meine Software auf XE2 umgestellt habe, habe ich an vielen Stellen chinesische Schriftzeichen....

Das Problem liegt warscheinlich hier:

Delphi-Quellcode:

procedure TCustomMaskEditOwn.SetEditText(const Value: Ansistring);
begin
  if GetEditText <> Value then
  begin
    SetTextBuf(PChar(Value)); // <---
    CheckCursor;
  end;
end;

Wie unterdrücke ich beim Typcasten eine interpreation der Zeichen im String?
SetTextBuff erwartet nunmal eine PChar!

Mavarik

[Bernhard Geyer]

Ändere deine Methodensignatur auf String.

[DeddyH]

PChar = PAnsiChar bei Delphi < 2009, danach PWideChar. Wenn Du also einen AnsiString verwendest muss es dann wohl explizit PAnsiChar sein.

[edit] Oder besser so wie Bernhard sagt, auf jeden Fall nicht die Typen mischen. [/edit]

[Mavarik]

Zitat von Bernhard Geyer:

Ändere deine Methodensignatur auf String.

Damit verlagere ich das Problem doch nur eine Stufe nach außen, oder?

Ich habe intern doch "nur" AnsiString.. Nur wenn ich mit der VCL "reden" will muss ich die ja an irgend einer Stelle mal von AnsiString an WideString zuweisen!

Mavarik

[himitsu]

Oder den String in eine temporäre Variable vom Type String, bzw. bei Übergabe doppelt casten.
SetTextBuf(PChar(String(Value))); .


Oder du stellst deinen Code auf Unicode um.



Wenn du außerhalb einen AnsiString oder einen PAnsiChar an eine String/UnicodeString-Variable, bzw. an soeinen Parameter übergibst, dann konvertiert Delphi das automatisch.

Zitat:

habe ich an vielen Stellen chinesische Schriftzeichen....

Vermutlich?
Delphi sollte dir genau sagen, daß es dort ein Problem gibt. (es müßte eine Compiler-Warnung vorhanden sein)

[Bernhard Geyer]

Zitat von Mavarik:

Damit verlagere ich das Problem doch nur eine Stufe nach außen, oder?

Ich habe intern doch "nur" AnsiString.. Nur wenn ich mit der VCL "reden" will muss ich die ja an irgend einer Stelle mal von AnsiString an WideString zuweisen!

Nicht ganz (Abgesehen davon das du "intern" auf Strings (=UnicodeString) umstellen solltest.
Einen AnsiString->Unicodestring "bestraft" dich der Compiler nur mit einer Compilerwarnung (Evtl. Datenverlust), aber Wandlung macht er korrekt. Bei P(Wide/Ansi)Char's kann er das nicht. Da müsstest du selbst mit Hilfsvariablen + 1-2 Codezeilen umschiffen.

[Mavarik]

Zitat von himitsu:

Oder den String in eine temporäre Variable vom Type String, bzw. bei Übergabe doppelt casten.
SetTextBuf(PChar(String(Value))); .


Oder du stellst deinen Code auf Unicode um.



Wenn du außerhalb einen AnsiString oder einen PAnsiChar an eine String/UnicodeString-Variable, bzw. an soeinen Parameter übergibst, dann konvertiert Delphi das automatisch.

Zitat:

habe ich an vielen Stellen chinesische Schriftzeichen....

Vermutlich?
Delphi sollte dir genau sagen, daß es dort ein Problem gibt. (es müßte eine Compiler-Warnung vorhanden sein)

Ups... Der Text ist erst nach dem Quoten da.. Cool... Fehler in der DP?!

Warnings... ja noch 17900! Ich denke ich gebe es mal auf....

Mavarik

[mquadrat]

17.900????

Ach herrje.. Alles von der Unicode-Umstellung? Jeden Tag 1000, dann biste in knapp drei Wochen durch

[himitsu]

War ich wohl schneller mit Editieren, als du mit dem Lesen

Joar, bei uns in der Software gibt es auch noch gefühlte 2 Milliarden Warnungen, angefangen von nichtinitialisierten Variablen und Results, bis hin zu ein paar dieser Unicodewarnungen (bin auch schon fleißig am entfernen ... im FinalBuilder muß man manchmal ganz schön suchen, bis man den Fehler zwischen den unzähligen Warungen und Hinweisen findet ... das nervt etwas )

[Mavarik]

Zitat von mquadrat:

17.900????

Ach herrje.. Alles von der Unicode-Umstellung? Jeden Tag 1000, dann biste in knapp drei Wochen durch

Das Problem ist die Verschachtelung...

Das beseitigen einer Warnung zieht eine "Rattenschwanz" von Änderungen von Proc zu Proc nach sich...

Ach ja 64Bit kann ich überhaupt nicht compilieren... Da hagelt es nur Interne-Fehlermeldungen vom Compiler... Aber das ist eine andere Geschichte... *heul* 4 Wochen Arbeit... Ergebinss: Besser lassen!

Delphi 6 ist doch sehr schön...

Mavarik