Datentypen von String zu Byte und wieder zurück

[himitsu]

Ja, Natürlich kann man nur auf ganze Bytes zugreifen und Delphi rundet immer auf.
Ein Boolean kennt auch 1x False und 255x True

Aber blöd wird es, wenn man die Bereichsprüfung mal aktiviert und dann der Typ zu klein deklariert ist.

[Uwe Raabe]

Das ist sogar noch witziger:

Delphi-Quellcode:

type
  TSet = set of 0..3;

procedure Main;
var
  s: TSet;
  I: 0..3;
begin
  s := [1,3];
  for I in s do 
  begin          // <== BreakPoint 1
    Writeln(I);  // <== BreakPoint 2
  end;
end;             // <== BreakPoint 3

BreakPoint 1 wird 8x durchlaufen! BreakPoint 2 erwartungsgemäß nur 2x.

Bei den Durchläufen vor dem ersten Writeln hat I nicht mal einen definierten Wert.

[Graw]

Leider bekomm ich es doch nicht ans laufen...

Wenn ich der Funktion feste Werte übergebe funktioniert sie wunderbar.

Code:

PBuf := Convert('00003FFFC000','00003FFFC000');

Wenn ich aber meine Buffer der Funktion übergebe kommt nichts aus ihr raus.

Code:

BEGIN

          PBuf1 := Copy(PBuf10,13,Length(PBuf10)-3);
          PBuf2 := Copy(PBuf20,13,Length(PBuf20)-3);


          if (length(PBuf1) = length(PBuf2)) then
          begin
           PBuf := Convert(PBuf1,PBuf2);
           PBufSend := PBuf;          
          end;
         
END;

Könnt ihr mir sagen was ich da falsch mache?

[Olli73]

Wie sind denn die PBuf.. deklariert und was sagt der Debugger?

[Graw]

Ist alles als String deklariert

[Olli73]

Dann setze mal einen Haltepunkt und schau dir an was in den Strings, die du übergibst, drin steht.

[Uwe Raabe]

Zitat von Graw:

PBuf1 := Copy(PBuf10,13,Length(PBuf10)-3);

Was soll damit erreicht werden? Vorausgesetzt, PBuf10 ist als string deklariert, dann versuchst du hier 9 Zeichen mehr zu kopieren als vorhanden sind. Delphi fängt das natürlich ab, aber der Code riecht nach einem Fehler.

Eventuell versuchst du ja auch nur die ersten 12 und die letzen 2 oder 3 Zeichen abzuschneiden? Dann ist das aber der falsche Befehl.

[Graw]

Ja das Stimmt.. Ich will von dem String die ersten 12 Zeichen wegschneiden und am Ende die letzten drei.


Ist es so besser?

Code:

BEGIN

          Delete(PBuf10,0,12);
          Delete(PBuf20,0,12);
          Delete(PBuf10,length(PBuf10)-3,3);
          Delete(PBuf10,length(PBuf20)-3,3);


          if (length(PBuf10) = length(PBuf20)) then
          begin
           PBuf := Convert(PBuf10,PBuf20);
           PBufSend := PBuf;        
          end;
         
END;

Es sind alle Buffer mit string deklariert. Die Strings sind alle 60 Zeichen lang.

[Uwe Raabe]

Zitat von Graw:

Ist es so besser?

Welche Delphi-Version und welche Zielplattform?

[Graw]

Delphi 2010 Windows 7