Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by F.W.,
23. Aug 2004
Da gibt's doch noch was besseres (meine Methode geht zwar auch, aber das hab ich in nem Tut gelesen):
var
S: String;
begin
{ ... }
SetLength(S, Len);
FS.ReadBuffer(S, Len);
{ ... }
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by F.W.,
21. Aug 2004
:thumb: Das funktioniert! :thumb:
:idea: Stelle fest: Auslesen funktioniert dann folgender Maßen
const
L: Integer = 5; //Länge
var
S: Array of Char;
//oder S: Array of Char;
FS: TFileStream;
{ ... }
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by F.W.,
20. Aug 2004
Das ist ja schonmal ein Anfang.
Mir ist gerade was aufgefallen: Wenn ich jedes Zeichen einzeln schreibe (von 'Hallo') wird die Datei 5 Bytes groß und es steht richtig "Hallo" drin (wenn man sie mit HexEditor öffnet). Mach ich es mit
S := 'Hallo';
WriteBuffer(S, SizeOf(S));
Dann ist die Datei nurnoch 4 Bytes groß :gruebel: und mit HE kann man Hallo nicht lesen.
Ich habs aber noch nicht...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by F.W.,
20. Aug 2004
Aber wenn ich nach der Position suche und der Stream 4 MB groß ist, dauert das bei mir schon länger, ich glaube ich mach es nicht richtig:
Ich möchte ein Prog schreiben, was ein Bild und text in eine Datei speichert, erst soll es ein paar Memolines in den TFileStream schreiben und dann das Bild. Da der Text des Memos keine Begrenzung haben soll, würde ich beim Datei schreiben einfach ein '' in...