Hallo Leute!
Ich habe ne Frage!
Ich habe folgende Funktionen.

zusammenfalten · markieren

Delphi-Quellcode:

function TDataChar.getData: Char;
var
  aLongint: Longint;
begin
  aLongint := Self.AbstractData;
  Result := char(aLongint);
end;

(*******************************************************************************
*
*******************************************************************************)
procedure TDataChar.setData(newvalue: Char);
begin
  Self.AbstractData := Ord(newvalue);
end;

AbstractData ist eine Variable vom Typ Variant . Mit der setData() tu ich den Ordinalwert eines Char newvalue in AbstractData zuweisen.
Mit getData() möchte ich wieder den Ordinalwert von newvalue , in den charZeichen umwandeln, so das ich wieder das Zeichen zur weiterverbeitung benutzen kann.

Ich hab das wie oben gemacht. doch char(aLongInt) funktioniert irgendwie nicht.

Kann einer vielleicht helfen?
Danke

Hi!

Was heißt, es funktioniert nicht?

Kommen Fehlermeldungen?


Ciao Frederic

Die Funktion heißt Chr!

Typecasting kann man nur mit Datentypen machen, die gleich groß sind und die selbe Speicherdarstellung (also Ganzzahl bzw. Fließkommazahl) haben.

Zitat von Oxmyx:

Typecasting kann man nur mit Datentypen machen, die gleich groß sind

Nein. Geb mal ein & kompiliere es:

markieren

Delphi-Quellcode:

var
  i: Integer;
begin
  i := 567840003;
  ShowMessage(InttoStr(Byte(i))); //gibt 3
end;

Zitat von Oxmyx:

und die selbe Speicherdarstellung (also Ganzzahl bzw. Fließkommazahl) haben.

Na ja, sagen wir mal so: Ein Cast ändert nur den Typ und nicht den Inhalt. Und da ein Variannt eine Datenstruktur ist, die mehrere Datenfelder enthält, funktioniert ein einfacher Cast nicht. Es sollte aber dann Umwandlungsmethoden geben. Welche, weiß ich nicht, da ich noch nie mit Variabts gearbeitet habe.

Zitat von Chewie:

Zitat von Oxmyx:

Typecasting kann man nur mit Datentypen machen, die gleich groß sind

Nein. Geb mal ein & kompiliere es:

markieren

Delphi-Quellcode:

var
  i: Integer;
begin
  i := 567840003;
  ShowMessage(InttoStr(Byte(i))); //gibt 3
end;

Aus der Delphi-Hilfe:
"You can cast any variable to any type, provided their sizes are the same and you do not mix integers with reals."
Du hast einfach drei Bytes von deinem Integer abgeschnitten, so eine Art Bitmaske also.

Die Delphi-Hilfe sagt, dass Casts möglich sind, wenn die Typen gleich groß sind. Sie sagt aber nicht, dass es nicht möglich ist, wenn die Typen nicht gleich groß sind
Klar schneid ich was ab, trotzdem ist es ein gültiger Cast.