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
Zitat
Baum-Darstellung
