Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
6. Jun 2008
Vielen Dank euch beiden!
Gruß
K-H
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
6. Jun 2008
@Muetze1
danke! das ist mal eine gute Erklärung! Werd es mir hinter die Ohren schreiben.
In dem Zusammenhang eine Frage:
Besteht zwischen
bvar:=(a and b);
if bvar then ....
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
5. Jun 2008
@Muetze
Naja halte ich für Geschmackssache. Deine Version gefällt mir besser aber ist sie darum richtiger. Ist schließlich little Buddas Code und er muß sich darin zurechtfinden.
Gruß
K-H
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
5. Jun 2008
Hallo Little Budda,
sorry ich hab mich etwas vergallopiert, Aus mir unerfindlichen Gründen ist bei der Dateigröße von $3AEC (ca 15 000) Schluß mit lustig. Da liegt das Problem weniger in Deinem Code als irgendwo anders.
Gruß
K-H
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
5. Jun 2008
Hallo little Budda,
Ich habe Deinen Code einmal ausprobiert und leicht geändert:
procedure TForm1.Button1Click(Sender: TObject);
var aFileBuffer : array of byte;
iFileLength, ix, iByteCounter : integer;
datei : tfilestream;
bStreamOk : boolean;
s_filename, startpfad : string;
begin