Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Binär (https://www.delphipraxis.net/106048-binaer.html)

Strahlex 4. Jan 2008 11:55


Binär
 
Hi, :-D

Ich habe einen Binärstring also 1010101..., wie kann ich den jetzt so speichern das er möglichst wenig Platz einnimmt? :?:

FAlter 4. Jan 2008 11:59

Re: Binär
 
Hi,

als Byte, Word, LongWord oder Int64 :gruebel: je nachdem, wie lang der String maximal sein kann.

Mfg
FAlter

Strahlex 4. Jan 2008 12:09

Re: Binär
 
Ich meine wie ichs am besten auf die Festplatte speichere...
25 Stellen im normalfall

DeddyH 4. Jan 2008 12:12

Re: Binär
 
Was soll denn in der Datei drinstehen? Nur die Zahl, dahintersteht, oder doch lieber als String oder wie?

FAlter 4. Jan 2008 12:13

Re: Binär
 
Hi,

mit TFileStream :gruebel: Ich versteh echt nicht, was du meinst. Du machst ein Longword (max. 32 Stellen) draus und schreibst das in deine Datei.

[edit] @DeddyH: Er möchte Speicherplatz sparen, also bestimmt nicht als String. [/edit]

Mfg
FAlter

mashutu 4. Jan 2008 12:22

Re: Binär
 
Hmm, mir ist noch nicht ganz klar worauf die WIRKLICH hinauswsillst.

a) einen Wert speichern
b) die Binaerzahl als String speichern.

a) muesste man den String in eine Zahl konvertieren und diese dann Speichern - da sollte ein Integer reichen, wenn Dir 25 Stellen fuer die Binaerzahl ausreichend erscheinen
b) VORSICHT - bist Du sicher, dass Dir 25 Stellen genuegen?

Zu b)
[pseudocode]
Delphi-Quellcode:
const
  ciBinSize = 25;
type
  tBinString = String[ciBinSize];

var
  txt : system.text;
  s  : string;
  i  : integer;
begin
  assign(txt,sMyfileName);
  rewrite(txt);
  for i:=0 to myBinStringList.count-1 do
  begin
    s:=myBinStringList[i];
    writeln(txt,s);
  end;
  system.close(txt);
end;
[/pseudocode]


Okay, das Beispiel geht davon aus, dass Du die binaerzahlen in einer Stringlist namens
myBinStringList hast.
Und das Lesen aus der Datei geht dann genau umgekehrt.

Strahlex 4. Jan 2008 12:49

Re: Binär
 
Ok hab das gelöst mit dem FileStream.

Ich will eigentlich nur eine Versionsdatei für ein Updateprogramm erstellen, die möglichst klein ist und mit 25 Bytes bin ich zufrieden. :wink:

DeddyH 4. Jan 2008 12:51

Re: Binär
 
Naja, als Integer wären es nur 4 Bytes.

HERMES 4. Jan 2008 14:53

Re: Binär
 
Aber eigentlich ist vollkommen egal, da die Clustergröße sowie viel größer ist ( >=512Byte glaub ich).

mashutu 4. Jan 2008 14:58

Re: Binär
 
Zitat:

Zitat von HERMES
Aber eigentlich ist vollkommen egal, da die Clustergröße sowie viel größer ist ( >=512Byte glaub ich).

Arbeitest Du noch mit Disketten?
[SCNR]


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:30 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz