Typumwandlung, welche Variante zieht ihr vor.

[corpsman]

Hossa,

Ich habe einen String, welcher eine Vorzeichenbehaftete int16 Zahl darstellt. Dieser String sollte aber eigentlich eine Vorzeichenlose Int16 Zahl sein.

D.h. im Bereich 0.. 2^15-1 sind beide Interpretationen Gleich, danach wird die eine Negativ interpretiert, die andere entsprechend nicht. Zur Umwandlung habe ich mir die beiden Routinen

Code: Alles auswählen

Function convertsigned1(data: String): String;
Var
  i: word;
  s: Smallint;
  v: variant;
Begin
  s := strtoint(data);
  v := s;
  i := v;
  result := inttostr(i);
End;
 
Function convertsigned2(data: String): String;
Var
  i: ^word;
  s: Smallint;
Begin
  s := strtoint(data);
  i := @s;
  result := inttostr(i^);
End; 

geschrieben. Beide funktionieren, die Frage ist nun was wäre der "Sauberere" Programierstiel ? Als 3. Option gäbe es auch noch die Mathematische Variante

Code: Alles auswählen

 
Function convertsigned3(data: String): String;
Var
  i: word;
  s: Smallint;
Begin
  s := strtoint(data);
  If s >= 0 Then
    i := s
  Else
    i := 65536 + s;
  result := inttostr(i);
End;   

Nur ist mir diese "zu rechenintensiv". So welche Variante würdet ihr nun Vorziehen ?

Gruß

Corpsman

[diogenes]

Ich würd's mit

Code: Alles auswählen

function Signed2UnsignedStr( NumStr: string): string;
 var
  S: SmallInt;
begin
  S := StrToInt( NumStr);
  Result := IntToStr( PWord( @S)^)
 end;

probieren. Ähnlich Deiner 2. Variante, nur kompakter und mit einem Minimum an Variablenzuweisungen, die auch Zeit fressen.

[MmVisual]

Code: Alles auswählen

Result := IntToStr( StrToIntDef(sData, 0)); // << Rückgabe 0 wenn im String keine Zahl steht.

[corpsman]

@Mm Visual,

es geht nicht darum zu prüfen ob der String eine Gültige Zahl hat.

Sondern darum eine Zahl in String Form in die Byte Form zu konvertieren, und dann dieses Bitmuster als eine andere Zahlendarstellung zu interpretieren und daraus wieder einen String zu erzeugen.

Ein Beispiel in 8-Bit

Code: Alles auswählen

 
Binärdarstellung | Signed Interpretation | Unsigned Interpretation
------------------------------------------------------------------
00000000         | 0                     | 0
01111111         | 127                   | 127
10000000         | -128                  | 128
11111111         | -1                    | 255
 

Die von mir und diogenes geposteten Routinen wandeln einen String von "Signed Interpretation" in "Unsigned Interpretation" um.

[Michl]

Umwandlung ohne Zuweisung von Variablen funktioniert doch aber auch:

Code: Alles auswählen

Function convertsigned(data: String): String;
Begin
  result := inttostr(word(strtoint(data)));
End;