Suche konvertierung Integer / Long in 2Byte / 4Byte String

05.12.2006, 21:58

Dieter Mayer

Hallo

eine Byte Variable kann ich mit chr$(x) in einen String konvertieren
und mit ASC daraus wieder einen Integer machen

nur wie geht das elegant mit Integer in Word (2 byte (Lo/Hi))
long in dword (4 byte (Lo/../../Hi))
und currency (nur Ganzzahlen) in quadword? (8 byte)

mache das derzeit mit "Stringbasteln" über hex , erscheint mir aber
sehr langsam und Speicherfressend, da 10 Datensätze je Sekunde
verrechnet werden müssen

gibt es da elegante Funktionen zur Umwandlung auch in die Gegenrichtung

Dieter

06.12.2006, 00:55

Thorsten Albers

Dieter Mayer <dtm> schrieb im Beitrag
<1165355914.446638.259320>...
> eine Byte Variable kann ich mit chr$(x) in einen String konvertieren
> und mit ASC daraus wieder einen Integer machen
> nur wie geht das elegant mit Integer in Word (2 byte (Lo/Hi))
> long in dword (4 byte (Lo/../../Hi))
> und currency (nur Ganzzahlen) in quadword? (8 byte)

Schematisch:

Private Declare Sub CopyMemory _
Lib "kernel32" Alias "RtlMoveMemory" _
( _
pDestination As Any, _
pSource As Any, _
ByVal lByteCount As Long _
)

Dim MyVar As <Variablentyp>
Dim abByte() As Byte
Dim lByteNr As Long

ReDim abByte(0 To (Len(MyVar) - 1)) As Byte
CopyMemory(abByte(0), MyVar, Len(MyVar))

For lByteNr = LBound(abByte) To UBound(abByte)
' Do what ever you want with abByte(lByteNr)
Next lByteNr

06.12.2006, 10:55

Dieter Mayer

Danke
funktioniert super
gewusst wie

Dieter

Ähnliche Themen
Konvertierung von "Integer" zu "String" in einem konstanten Ausdruck Guten Morgen irgendwie kriege ich nicht hin ein ganz normale Konvertierung von Integer zu String in einem konstanten Ausdruck Mein Fall: Private Const intZahl As Integer =...
_w64 long, LONG, UINT, int Warnung wegen Konvertierung Hallo, seit ich VS 2005 verwende, meckert der Compiler öfter mit der Warnung C4244 warning C4244: 'Argument': Konvertierung von '__w64 long' in 'int', möglicher...
Konstanten (long und Konvertierung) Hallo, sind lseek(fd, 0, SEEK_SET) und lseek(fd, 0L, SEEK_SET)
unsigned long integer in string konvertieren Hallo, ich suche eine Funktion um einen 4Byte Integerwert unsigned long in einen String zu konvertieren. Gibt es so etwas schon?
Suche funktion in Delphi 5: String is Integer? Hallo, ich suche in die Tiefen der Sysutils, etc... eine Funktion, die mir sagt, ob ein String auschließlich aus Ziffern besteht: '123456' = TRUE '123,56' = FALSE Mir ist...