Deutsches Lazarusforum

Was mir auch noch aufgefallen ist, dass in fpc-Classes.pas für ReadValue und WriteValue auch 1 Byte verwendet wird:   function TBinaryObjectReader.ReadValue: TValueType; var b: byte; begin Read(b, 1); Result := TValueType(b); end;   procedure TBinaryObjectWriter.WriteValue(Value:...

Danke, ich sollte bei gelegenheit Handbuch von fpc lesen, ich bin noch aus 90ern (tp, delphi4)

@Mathias:
Es ging um die Größe bei fpc, Delphi macht es ja 1 Byte, Ich habe vor dem Posten der Frage nochmal mit Turbo Delphi (D2006) kontrolliert, lieferte erwartungsgemäß 1.

Ist es normal das Freepascal bei SizeOf(vaString)=4 liefert ?   // vaString ist ein Teil von TValueType aus Classes type TValueType = (vaNull, vaList, vaInt8, vaInt16, vaInt32, vaExtended, vaString, vaIdent, vaFalse, vaTrue, vaBinary, vaSet, vaLString, vaNil, vaCollection, vaSingle, vaCurrency, ...

Danke euch beiden, das mit dem Bit-Shiften ist Quatsch, war gestern wahrscheinlich am Ende zu müde. ... Für Widestrings habe ich folgendes im fpspreadsheet: Bist du der wp aus dem englischen Forum, der an Fpspreadsheet arbeitet? Wenn das so ist dann haben wir uns ja schon dort begegnet und ich gratu...

mse hat geschrieben:

Soner hat geschrieben:Weiß jemand vielleicht wieviel Bytes Freepascal für eine String braucht?
(also für die Verwaltung die Länge, Rereferenz-Zähler ..)

viewtopic.php?f=10&t=10541&start=6

Danke

Ich muß eine Zahl aus dem Speicher mittels Reader lesen. Damit ich nicht byte für byte lesen muß verwende ich folgenden code. Ist denn mein Vorgehen richtig oder wird es bei Bit-Endigan-Maschinen Fehler verursachen?   var i: LongWord; //longword =4byte begin //00000012 <-- Im Speicher/Datei steht di...

Was soll den dieser Unsinn? Lösung gefunden und dann einfach alles gelöscht - so ergibt das keinen Sinn mehr Wenn das jeder so macht, kann man das ganze Forum löschen! Es war keine Lösung präsentiert. Nach der Fragestellung habe ich weiteruntersucht und meine Ergebnisse hier präsentiert, in der Hof...

Naja, so richtige Lösung ist es nicht, irgendwie fügt fpc bei jede String 4 Byte lange 0-Byte davor. Ich habe "dirty-hack" verwendet, weil ich über Free Pascals Stringverwaltung nichts weiß. Ich muß herausfinden wie ein String im Speicher liegt. Früher hieß es ein Längenbyte davor, danach ...

..

..

..

Es ist nicht von mir, es ist von TurboPower-Programmierer. Ich selbst verwende "with..do"-Konstruktionen nie, damit man weiß was verwendet wird. .. Ich hatte im ersten Beitrag angegeben dass es von der 'FFSINFO.FF2' -Datei gelesen wird, das stimmt aber nicht, es ist noch Memorystream das v...

Damit hier nicht wie Selbstgespräch aussieht habe ich alle gelöscht.
Der ganze Beitrag kann gelöscht werden.

In der datei VersionSupport.pas vom ersten Beitrag hast du es nicht, aber ich habe die Funktion von deinem letzten Beitrag hinzugefügt, es kompiliert fehlerfrei.

Ich habe jeztzt die versionsupport.pas-Datei heruntergeladen, es wurde ohne Fehler kompiliert. (Windows-Platform)
Es gibt dort keine GetLocaleFormatSettings-Funktion.