Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi widestring: charat(i) ? (https://www.delphipraxis.net/69506-widestring-charat-i.html)

sancho1980 16. Mai 2006 09:23


widestring: charat(i) ?
 
hallo

wenn ich folgende deklaration habe:

Delphi-Quellcode:
var
  s: string;
...kann ich mit s[i] den character an pos i bekommen

warum geht das nicht mit widestring? was muss ich tun?

danke,

martin

sakura 16. Mai 2006 09:32

Re: widestring: charat(i) ?
 
Also ich kenne da keine Probleme. Folgender Code läuft ohne Probleme
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  WC: WideChar;
  WS: WideString;
  I: Integer;
begin
  WS := '桜 の 空手';
  MessageBoxW(0, PWideChar(WS), 'no caption', 0);
  for I := 0 to Length(WS) do
  begin
    WC := WS[I];
    MessageBoxW(0, PWideChar(WideString(WC)), 'no caption', 0);
  end;
end;
...:cat:...

sancho1980 16. Mai 2006 09:38

Re: widestring: charat(i) ?
 
hmm..
es scheint tatsächlich ein anderes problem zu sein+
kann es sein, dass eine function

Delphi-Quellcode:
function Irgendwas(c: WideChar): Integer;
..als Argument c keinen normalen Char entgegennimmt (also beispielsweise '.')?

sakura 16. Mai 2006 09:42

Re: widestring: charat(i) ?
 
Zitat:

Zitat von sancho1980
..als Argument c keinen normalen Char entgegennimmt (also beispielsweise '.')?

Wenn Du direkt '.' schreibst, dann geht es, wenn Du allerdings einen Parameter vom Typ Char übergeben willst, dann musst Du den vorher konvertieren, z.B.
Delphi-Quellcode:
Irgendwas(WideChar(SC));
...:cat:...

himitsu 16. Mai 2006 10:59

Re: widestring: charat(i) ?
 
Hab ich auch schon mitbekommen, daß man es einfach nur "konvertieren" muß, da Delphi das sonst immer als AnsiChar verwendet ... hatte anfangs sogar ganze CharSets in einen Vergleiche zerlegt, weil's nicht mir 'nem WideChar zusammenarbeiten wollte :wall:


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz