Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
26. Dez 2002
Mir ist grade was aufgefallen an dem Code. Wenn die zweite Datei länger ist als die erste, können die immer noch als gleich getestet werden. Wird behoben. Aber meine eigentliche Frage bleibt. :coder:
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
25. Dez 2002
//Dateivergleich
procedure TForm1.Button8Click(Sender: TObject);
var Rein, Raus: TFileStream;
ReinKB, RausKB: array of byte;
x,y,i:integer;
begin
for i := 0 to 1023 do
begin
ReinKB := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
23. Dez 2002
Ok, wenn ich wissen will, ob meine Ver- Entschlüsselung geht, dann ist mir jede Checksumme zu ungenau. Also vergleich ich den Kram Byte für Byte.
...Never mind...
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
23. Dez 2002
Noch eine Frage, bevor ich mir jede Menge Arbeit mach:
Gibt es eine andere möglichkeit, zwei Dateien zu vergleichen, ohne beide komplett Byte für Byte einzulesen und jeweils zu vergleichen?
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
23. Dez 2002
d.h. er rückt die position in der datei automatisch nach dem lesen vor?
auf jeden fall schon mal vielen dank!!! :bouncing4: :hello:
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
23. Dez 2002
Ich hab die ganze DelphiHilfe nach "Read" durchsucht, aber nix gefunden, was mir zu helfen schien :(
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
23. Dez 2002
ok, für den speziellen fall reicht das vollkommen,
aber generell:
kann man auch die bytes einzeln einlesen, und dann immer 1 weitergehen, oder 8 oder sowas?
Forum: Object-Pascal / Delphi-Language
Delphi
by nailor,
23. Dez 2002
Wie kann ich von einer Datei die ersten 32 Byte (256 Bit) binär einlesen, und als Integer, Byte, String... (irgendwas womit man weiterarbeiten kann) benutzen??? Es muss egal sein, was für Werte da drin stehen, es muss immer klappen!