[gelöst] Integer -> Byte Konvertierung

[Bauer321]

Ich möchte eine Datei mit dem folgenden Schema schreiben:
Titel 0D0A
irgendwas 09 irgendwas 09 irgendwas 09 irgendwas 0D0A
irgendwas 09 irgendwas 09 irgendwas 09 irgendwas

0D0A -> Zeilenende
09 -> Tab, Trennung der Datensätze

Das geht auch so weit.

Code: Alles auswählen

f: File of Byte;
 
assignfile(f, path);
rewrite(f); 
write(f, ord(title[n])); (title ist ein String den ich via forschleife byte für byte schreibe)
write(f, $0D); //Die beiden Zeilen zusammen sind ein Zeilenende
write(f, $0A);
closefile(f);

was nicht geht ist aber das schreiben eines Integers. Meine erste Idee war folgende:
eine Variable (tmp) dann den Integer in einen String konvertieren tmp := IntToStr(i); -> dann write(f, ord(tmp[n])); (wie oben)
Das geht aber leider nicht.
Auch nicht funktionieren tut write(f, i); (i ist ein Integer wert zwischen 1 und 15)

[theo]

Willst du nicht lieber TFileStream verwenden? Das wäre komfortabler.

[Bauer321]

Mir fehlt jetzt so eigentlich nur noch das Speichern der Integer Werte. Und ich würde es gerne erstmal auf diese Art fertigstellen, hab noch genügend anderes zu tun

[theo]

Ich kann nicht nachvollziehen, warum du eine Textdatei in einem File of Byte speichern willst.
Das kann eine TStringList total problemlos.
Wie kommt denn der Integer jetzt ins Spiel? Davon sehe ich in deinem Beispiel nichts.

[Scotty]

Je nachdem, was du bzw. dein OS/Compiler unter Integer verstehst, ist Lo()/Hi() dein Freund. Beide sind IMHO nur Makros für bitshiftings, d.h. hi = <int16> shr 8 und lo =<int16> and 256.
http://lazarus-ccr.sourceforge.net/docs ... em/lo.html

PS: Abgesehen davon, dass theo recht hat, gibt es auch noch typisierte Dateien. Und verschlüsseln geht auch besser...

[Bauer321]

Ich hab keine Ahnung woran es lag, aber genau das was ich vorhin versucht habe geht jetzt auf einmal

Code: Alles auswählen

tmp := IntToStr(p^.mark[x]);
write(f, $09);
for n := 1 to length(tmp) do write(f, Ord(tmp[n]));

[theo]

Ich hab keine Ahnung woran es lag, aber genau das was ich vorhin versucht habe geht jetzt auf einmal

Code: Alles auswählen

tmp := IntToStr(p^.mark[x]);
write(f, $09);
for n := 1 to length(tmp) do write(f, Ord(tmp[n]));

Wenn man es umständlich und merkwürdig mag...

[Bauer321]

ich weiß das es auch anders geht aber ich will das in diesem Fall so haben.

Ich verstehe auch das du eine andere Lösung bevorzugen würdest.

[Socke]

Je nachdem, was du bzw. dein OS/Compiler unter Integer verstehst, ist Lo()/Hi() dein Freund. Beide sind IMHO nur Makros für bitshiftings, d.h. hi = <int16> shr 8 und lo =<int16> and 256.
http://lazarus-ccr.sourceforge.net/docs ... em/lo.html

Die beiden Funktionen entsprechen einem direkten Zugriff auf die entsprechenden Speicherteile des übergebenen Datentyps und sind daher kein Bitshifting. Der Rückgabetyp ist nur halb so lang wie der Eingangsparameter. Bei Bitshifting wäre er gleich lang.