Chr() - Probleme mit Variable

[Muellermilchtrinker]

Hallo DP,

ich hab folgendes:
Ich hab eine Funktion, die ein PWideChar möchte.
Ich muss aber jetzt nur eine 1 senden. Das mache ich mit Funktionxy(Chr(1)). Soweit funktioniert alles auch.
Wenn ich aber das jetzt mit einer Variable machen will, dann funktioniert das nicht (Funktionxy(Chr(i)).
Die Variable hat bekommt in einer Schleife die Werte von 0 bis 4.
Wenn ich das nun mit der Variable machen will, dann bekomme ich den Error: Inkompatible Typen: 'Char' und 'PWideChar'

Wie muss ich das jetzt machen, dass das mit der Variable funktioniert?
Danke schonmal.

[Bernhard Geyer]

Wie schaut der Quellcode (mit variablendefiniton) aus?

Probier mal statt Chr(i) PWideChar(i)

[Muellermilchtrinker]

Also der Code wär eigentlich so:

Delphi-Quellcode:

  for I := 0 to 4 do
  begin
    USB_LCD_Command(128,0);
    USB_LCD_Data(Chr(i),1,0);
    sleep(250);
  end;

Mit PWideChar kann ich es compilieren aber beim ausführen bekomm ich eine AV. Das einzigste was geht ist mit der Konstanten und mit Chr()

[sx2008]

Man braucht einfach nur eine Zwischenvariable:

Delphi-Quellcode:

var
  zeichen : Char;
begin
  ...
  zeichen := Chr(i);
  Funktionxy(@zeichen);

Ein direkter Cast wie z.B. PWideChar(i) kann nach hinten losgehen, denn wenn i=1 dann ist PWideChar(i) gleich $00000001 (also ein Zeiger der auf die Adresse 1 zeigt). ==> Zugriffsverletzung
Was aber gebraucht wird ist ein Zeiger, der auf einen 2-Byte Speicherplatz zeigt, dessen Inhalt = 1 ist.

Also könnte man auf die Idee kommen PWideChar(@i) zu übergeben.
Ein Integer ist aber 4 Bytes lang und man ist dann abhängig von der CPU-Architektur (Big-Endian vs. Small-Endian).

Mit einer Zwischenvariablen erspart man sich die ganzen Probleme.

[mkinzler]

Versuch mal
PWideChar( Chr(i))

[Muellermilchtrinker]

Funktioniert. Danke.