Hallo Leute!
Ich habe ne Frage!
Ich habe folgende Funktionen.
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